#!/usr/bin/perl



local ($buffer, @pairs, $pair, $name, $value, %FORM);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "GET")
{
   $buffer = $ENV{'QUERY_STRING'};
}



# Split information into name/value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
   ($name, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%(..)/pack("C", hex($1))/eg;
   $FORM{$name} = $value;
}

$navn = $FORM{navn};
$navn2 = $FORM{navn2};
$adj1  = $FORM{adj1};
$bann1  = $FORM{bann1};

open(my $fh, '>>', 'stories.html');
print "Content-type:text/html\r\n\r\n";
print $fh "<HR color=#000000 SIZE=4>\n<h3>$navn something. $bann1!!! shouted $navn! A $adj1 $navn2 something $navn!! something $navn said $bann1! Hihi.</h3>\n";
print "<a href='stories.html'>READ STORY</a>";
close $fh;