#!/Perl/bin/perl

require "cgi-lib.pl";
require "common.pl";
require "cookie.lib";

print &PrintHeader;


&initial;


&print_skel;

sub do_content {

  &do_personal;

}
exit;

#---> Subs

sub do_personal {

print "
<form method=post action=\"/cgi-bin/prof1.pl\" name=seluser
onSubmit=\"return check(document.seluser,3)\">
<center>
<table width=90% cellpadding=5 cellspacing=5>
<tr><td align=center colspan=3><font size=5>See Player Profile/Detail</font></td></tr>

<td><font size=3>Select player:\n";
$selname="player";

&select_users;

print "
</font></td>
<td>Permission key: <input type=password name=key size=8></td>
<td align=center>
<font size=3>
<input type=radio checked  name=filetype value=\"P\">Profile
<input type=radio name=filetype value=\"D\">Detail
</font>
<input type=hidden name=update value=0>
</font>
</td></tr>
<td colspan=3 align=center>
<font size=4>
Press: <input type=\"submit\" value=\"Browse\">
</font></td></tr>
</table></center>
</form>";
}