#!/Perl/bin/perl

require "cgi-lib.pl";
require "common.pl";
require "cookie.lib";
$aon=1;
&initial;

$player=$input{'player'};
$playername=$input{'PLAYERNAME'};
$file=$input{'file'};
$filetype=$input{'filetype'};

print &PrintHeader;
&comm(" $player = $playername");
&check_admin;

&comm("File $file");

open (OUT,">$file");
foreach $key (keys %input) {
  if ($key ne 'file') {
        $recout=$key . '=' . $input{$key};
        print OUT "$recout\n";
  }
}
close OUT;
                                                                                                                
&good("$player updated!");

print "<p><center><a href=/cgi-bin/prof1.pl?filetype=$filetype&player=$player&readonly=1&key=MARADONA>See it </a></center><p>\n";

if ($filetype eq "P") {
        print "
        <form method=post action=\"/cgi-bin/prof1.pl\" name=profile>
        <center>
        <input type=hidden name=player value=$player>
        <input type=hidden name=playername value=\"$playername\">
        <input type=hidden name=filetype value=D>
        <input type=hidden name=update value=1>
        <input type=\"submit\" value=\"Update detail\">
        </center>
        </form>";
}



exit;