#!/Perl/bin/perl

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


&initial;

print &PrintHeader;

$readonly=$input{'readonly'};
$update=$input{'update'};
$player=$input{'player'};
$filetype=$input{'filetype'};
$pname=$input{'playername'};
$title=1;
$skeleton="latest.skel" if ($filetype eq "L");
$skeleton="profile.skel" if ($filetype eq "P");
$skeleton="detail.skel" if ($filetype eq "D");


if ($update) {
  &read_keys;
  if ($key1 ne $key) {
          &bad("$user NOT Authorized");
          exit;
  }
} 

if (! $player) {
    &bad("No player selected!");
    exit;
}

$file=$idspath . $s . $filetype . "_" . $player;
&comm("File $file");

if (!($update)) {
        if (! (-e $file)) {
                &bad("$player profile NOT found!");
                exit;
        }
}



&print_skel;

sub do_content {

&readinfo if (-e $file);
#Keep playername if passed...
&comm("p $playername P $PLAYERNAME PLAYER $player");
if (!($PLAYERNAME)) {
	if ($pname) {
		$PLAYERNAME=$pname;
	}
}

open (IN,$skeleton);
while (<IN>) {
  if (/__/) {
      &changeit;
  }
  s/_PLAYER_/$player/;
  s/_FILE_/$file/;
  s/_FILETYPE_/$filetype/;
  print;
}
close IN;
if ($update) {
        print "<center><input type=submit value=Update></center>\n";
}

}

sub readrecs {
$empty=0;
open (IN,$file);
while (<IN>) {
  ($var,$value)=split(/=/,$_,2);
  $inst='$' . $var . "=" . $value . ";";
  eval($inst);
}
close IN;
}

sub changeit {
   ($p1,$varname,$p2)=split(/__/);
   $dashvar="__" . $varname . "__";
   $inst='$varvalue=$' . $varname .';';
   eval($inst);
if (($varname=~/PLAYERNAME/) && ($title)) {
      		if (!($PLAYERNAME)) {
			$PLAYERNAME=$player;
		}
		$inst='s^$dashvar^&nbsp;<font color=cyan>' . $PLAYERNAME . ' </font>^';
		$title=0;
} else {
if ($update)  {
      		$chg='<input type=text maxlength=500 size=60 name=' . $varname;
      		$chg.=' value="' . $varvalue . '">';
      		$inst="s^$dashvar^$chg^";
   	} else  {
      		$inst='s^$dashvar^&nbsp;<font color=cyan>' . $varvalue . ' </font>^';
   	}
}
   eval($inst);

}

exit;