#!/Perl/bin/perl 

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


print &PrintHeader;

$aon=1;

&initial;

&check_admin;

$newuser=$input{'newuser'};
$newuser=~tr/[a-z]/[A-Z]/;

$idfile=$idspath . $s . "U_" . $newuser;

if (!(-e $idfile)) {
  $emsg="New user: $newuser! ... Password: $pswd<br>\n";
  &writeit;
        print "
        <form method=post action=\"/cgi-bin/prof1.pl\" name=profile>
        <center>
        <input type=hidden name=player value=$newuser>
        <input type=hidden name=filetype value=P>
        <input type=hidden name=update value=1>
        <input type=\"submit\" value=\"Update profile\">
        </center>
        </form>";





} else {
  $emsg="Reset $newuser password to: $pswd <br>\n";
  &writeit;
}
exit;

sub writeit {
  if (open (ID,">$idfile")) {
    &good($emsg);
    print ID "$pswd\n";
    close ID;
  } else {
     &bad("Bad open: $idfile $!");
  }
}