#!/usr/bin/perl

print "Content-type: text/html\n\n";

use CGI ':standard';

$temp = param('who');
$temp =~ s/\ //g;
open(FIL,">who.txt");
print FIL $temp;
close(FIL);
$temp = param('message');
open(FIL,">message.txt");
print FIL $temp;
$temp =~ s/\n/\<br\>/g;
close(FIL);
$temp = param('still');
open(FIL,">still.txt");
print FIL $temp;
close(FIL);

open(FIL,"who.txt");
$who = <FIL>;
close(FIL);
open(FIL,"message.txt");
$message = join('',<FIL>);
$message =~ s/\<br\>/\n/g;
close(FIL);
open(FIL,"still.txt");
$still = int(<FIL>);
close(FIL);
open(FIL,"count.txt");
$count = int(<FIL>);
close(FIL);

print "Currently, $count messages have been sent<br>\n";

print "<form action=index.cgi method=POST>\n";
print "Who to: <input type=text name=who value=$who><br>\n";
print "Message:<br>";
print "<textarea cols=90 rows=10 name=message>$message</textarea><br>\n";
print "Enter 1 to enable or 0 to disable messaging: <input type=text name=still value=$still><br>\n";
print "<input type=submit name=Submit value=Submit>\n";
print "</form>";