#!/usr/local/bin/perl
# store.cgi by Sid Sowder
# version 1.0 Mon Jun 21 17:48:12 EST 1999
#
# Store the information we get from the QUERY_STRING
# into a flat file
$FILE = "/home/sid/www/urinine/shows/pics/keepers.txt";
$line = urlDecode($ENV{'QUERY_STRING'});
open(FILE, ">>$FILE") || die "$!";
print FILE $line;
close(FILE);
print "Content-type: text/html\n\n";
print "<HTML><BODY onLoad=\"self.close()\"></BODY></HTML>\n";
exit;
sub urlDecode() {
$_ = $ARGV[0];
tr/+/ /;
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
return($_);
}