#!/Perl/bin/perl

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

&initial;
&getdate;

$idfile=$idspath . $s . "U_" . $name;
$msgfile=$idspath . $s . "M_" . $name;

$input="players.htm";

if (open(ID,$idfile)) {
 $realpswd=<ID>;
 chop $realpswd;
 if ($pswd eq $realpswd) {
   $addr=$ENV{"REMOTE_ADDR"};
   &SetCookies('soccer_name',$name,'soccer_ip',$addr);

   print &PrintHeader;

    &write_log("Login");

    if ($name eq "ADMIN") {
        $adminfile=$idspath . $s . "admin";
        open (ADMIN,">$adminfile");
        print ADMIN "$addr";
        close ADMIN;
    }

    open(HTM,$input);
    while (<HTM>) {
        s/_PRACTICE_/$practice/;
        s/_GAME_/$game/g;
        s/_PLAYERSTATS_/$playerstats/g;
        s/_TEAMSTATS_/$teamstats/g;
        s/_NAME_/$name/g;
        if (/_PERSONAL_/) {
           if (-e $msgfile) {
              print "<li><a href=/cgi-bin/show_text.pl?&file=$msgfile&filetype=M>Personal message</a>\n";
           }
      } else {
          print $_;
      }
    }
    close HTM;
    exit;

 } else {
    print &PrintHeader;
    &bad("Bad password!!!");
 }
} else {
 print &PrintHeader;
 &bad("User not found: $name !");
}