#! /usr/bin/perl
print "Content-type: text/html\n\n" ;

$_ = <> ;

$_ =~ tr/+/ / ;
$_ =~ s/%21/!/ ;

for (split /&/) {
  ($name,$value) = split /=/ ;
  $cgidat{$name} = $value ;
}

print "adding '$cgidat{'bar'}' of length ".length($cgidat{'bar'}) ;

# die ;

open OUTFILE,'add2tome.txt' ;

print "<pre><hr>here is what i have already:<hr>" ;
while (<OUTFILE>) { 
  chomp ; 
  if ($_ eq $cgidat{'bar'}) { $seenflag = 1; print "<b>seeing: $_</b>\n" }
  print "$_\n" 
}
close OUTFILE ;

if ($seenflag) { print "<hr>this line already exists in the file!\n" }
else {
  open OUTFILE,'>>','add2tome.txt' ;
  print OUTFILE "$cgidat{'bar'}\n" ;
}

# die ;

print "<hr>" ;
system("cat add2tome.txt")