#!/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 "\n"; exit; sub urlDecode() { $_ = $ARGV[0]; tr/+/ /; s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; return($_); }