#!/Perl/bin/perl

require "cgi-lib.pl";
require "common.pl";
 
&initial;

print &PrintHeader;

&print_skel;

sub do_content {
print "<center><table width=80% cellpadding=0 cellspacing=0 border=1";  

        print "<tr>\n";
        print "<th>Number:</th>";
        print "<th>Player:</th>";
        print "<th>D.O.B.:</th>";
        print "<th>Positions:</th>";
        print "<th>Notes:</th>";
        print "</tr>\n";

opendir (IDSDIR,"$idspath");
@idfiles=readdir IDSDIR;
closedir IDSDIR;

foreach $i (0 .. $#idfiles) {
     $file=$idfiles[$i];
     if (substr($file,0,2) eq "P_") {
        $file=$idspath . $s . $file;
        &readinfo;
        print "<tr>\n";
        print "<td>&nbsp;$PLAYERNUMBER</td>";
        print "<td>&nbsp;$PLAYERNAME</td>";
        print "<td>&nbsp;$DOB</td>";
        print "<td>&nbsp;$POSITION</td>";
        print "<td>&nbsp;$NOTES</td>";
        print "</tr>\n";
     

     }
}

print "</table></center>";


}



exit;