#!/Perl/bin/perl

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

&initial;

$file=$input{'file'};
$update=$input{'update'};
$filetype=$input{'filetype'};
$user=$input{'user'};
$li=rindex($file,$s);
$what=substr($file,$s);
$usercall=0;



if ($filetype eq "U") {
        $what=$user;
        $file=$idspath . $s . "M_" . $user;
}
if (($filetype eq "P") || ($filetype eq "D")) {
        $what=$user;
        $file=$idspath . $s . $filetype . "_" . $user;
        $usercall=1;
}

print &PrintHeader;

if ($filetype eq "U") {
if (! $user) {
        &bad("No player selected!");
        exit;
}
}



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



&comm("File $file");

&print_skel;

sub do_content {

    if (($update) || ($filetype eq "M")) {
        print "<form name=update method=post action=\"/cgi-bin/update.pl\">";
        print "<input type=hidden name=filetype value=$filetype>";
    }

    if ($update) {
        print "<center><font size=5 color=cyan >Update: <font color=white>$what</font></font><br>";
        if ($usercall) {
                print "<font size=4>OR Copy this information for: ";
                $selname="newuser";
                &select_users;
                print "</font><br>\n";
        }
        print "<textarea name=filetext cols=100 rows=20>";
    }


    &Get_text($file);

    if ($update) {
        print "</textarea><br>";
        print "<input type=submit value=Update><br>";
    }
    if ($filetype eq "M") {                                                                             
        print "<center>Check this to delete: <input type=radio name=delit value=D>";
        print "<input type=submit value=Delete></center><br>";
    }
    if ($update) {
        print "<hr width=80%><table width=60%><tr><td><font size=1>Table hints:
        </font></td><tr><td><font size=1><ul>
        <li>Start and end each row with \"&lt;tr&gt;\"
        and \"&lt;/tr&gt;\",
        <li>Start and end each column inside the row with \"&lt;td&gt;\" and
        \"&lt;/td&gt;\" and 
        <li>Start and end the whole table with \"&lt;table&gt;\ and
        \"&lt;/table&gt;\"
        <li>Example: A 2 column table looks like this:<br>
        \"&lt;table&gt;&lt;tr&gt;&lt;td&gt;Column one&lt;/td&gt;
        &lt;td&gt;Column two&lt;/td&gt;&lt;/tr&gt;
        &lt;/table&gt;\"</font></td><tr></table>\n";
        
    }
    if (($update) || ($filetype eq "M")) {
        print "<input type=hidden name=user value=$user>";
        print "<input type=hidden name=file value=$file>";
        print "</center></form>";
    }
    
}

exit;