
desmondo
Deleted
Jan 20, 2000, 4:38 AM
Post #3 of 9
(3471 views)
|
Thanks Scott here it is! #!/usr/bin/perl $logfile ="../holdata/potential.txt"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; } # Print the http header print "Content-type: text/html\n\n"; # Open the log open(LOG,">>$logfile") | | die "I can't open $logfile \n"; print LOG "$in{'email'}:$in{'forename'}:$in{'surname'}\n"; close(LOG);
|