Thanks
You could probably customize that page's appearance in the perl code somewhere, but the primary function of the script is to email you the form info they submit.
I don't know of any scripts who's sole function is to generate an html page displaying form input though...
use strict;
use CGI::Carp qw(fatalsToBrowser);
print <<"FIN";
Content-type: text/html; charset=iso-8859-1
<html>
<head>
<title>Post Text</title>
</head>
<body>
<form action="post.pl" method="post">
<textarea rows="6" cols="45" wrap="VIRTUAL" name="usertext"></textarea><p>
<input type="submit" value="Post"></p>
</form>
<p>
FIN
open(db, "data.tmp") ¦¦ die "datafile not found";
my @Lines = <db>;
close(db);
foreach(@Lines,)
{print "$_\n";}
print "</body></html>\n";
[post.pl (in the same folder)]
#!perl
read(STDIN, my $Data, $ENV{'CONTENT_LENGTH'});
my @Formfields = split(/&/, $Data);
my ($Field, $Name, $Value);
my %Form;
foreach $Field (@Formfields)
{(my $Name, my $Value) = split(/=/, $Field);
$Value =~ tr/+/ /;
$Value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$Value =~ s/</</g;
$Value =~ s/>/>/g;
$Form{$Name} = $Value;}
open (db, "> data.tmp");
print (db "$Form{usertext}\n");
close (db);
print "Location: post.cgi\n\n";
a file (data.tmp) will be created the first time you use the script
(in case the script is not executed because of that error create that
file yourself)
