#!/usr/bin/perl
#
# list ports maintained by Korean.
#

%kom={};

# read configurations
open(M, "/kfug/www/htdocs/projects/ports-kr/korean-maintainers");
while(<M>){
  chomp;
  @maint=split(/\|/);
  $kom{$maint[1]}=$maint[0];
  #print $maint[0]." ==> ".$maint[1]."\n";
}
close(M);

# search index and print out names
print "<table border=1>";
print "<tr><th>°ü¸®ÀÚ</th>\n";
print "<th>ÆÐÅ°Áö¸í</th>\n";
print "<th>¼³¸í</th>\n";
print "<th>Ä«Å×°í¸®</th></tr>\n";

foreach $name (sort keys(%kom))
{
  if ($name=~/^HASH/){
    #print $name;
    next;
  }

  open(PORTS, "(cd /usr/ports; make search key=\"$name\" ) |");
  #print "(cd /usr/ports; make search key=\"$kom{$name}\") |";
  while(<PORTS>)
  {
    @line=split(/:/,$_,2);
    $item=$line[0];
    $value=$line[1];
    if ($item=~/Port/){
      print "<tr><td><a href=\"mailto:$name\">$kom{$name}</a>\n";
      print "</td><td>$value</td>\n";
    }
    if ($item=~/Info/){
      print "<td>$value</td>\n";
    }
    if ($item=~/Index/){
      print "<td>$value</td></tr>\n";
    }
  }
  close(PORTS);
}
print "</table>";