#!/Perl/bin/perl

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

print &PrintHeader;

$aon=1;

&initial;

&getdate;

$user=$input{'user'};
$newuser=$input{'newuser'};
$filetext=$input{'filetext'};
$filetype=$input{'filetype'};
$file=$input{'file'};
$delit=$input{'delit'};





if ($newuser) {
        $file=~s/$user/$newuser/;
} else {
        $newuser=$user;
}

#$backup=$file . ".B_" . $hr . $min ;

if ($filetype eq "M") {
        if ($delit) {
                unlink $file;
                &good("Message deleted!");
        } else {
                &bad("No action!!!");
        }
        exit;
}

&check_admin;

open (IN,$file);
@info=<IN>;
close IN;

#open (BACKUP,">$backup");
#print BACKUP "@info";
#close BACKUP;

$filetext=~s/\x0d//g;

if (open (OUT,">$file")) {
    print OUT "$filetext";
    close OUT;
    &comm("File $file Backup: $backup");
    if ($filetype eq "U") {
       &good("Text updated for $newuser!!!")
    } else {
       &good("$file updated!!!")
    }
    print "<p><center><a href=/cgi-bin/show_text.pl?file=$file>See it</a></center><p>\n";    
} else {
    &bad("Bad open: $file $!");
}
exit;