#!/usr/bin/perl &ReadParse(*input); $name=$input{'name'}; $email=$input{'email'}; $message=$input{'message'}; print< dolst.com

Words  Noise  Gai-Ko Dojo  VSR  Kurata  Boboks  Politics  Contact  DeviantArt  Myspace

endhtml if((length($name) > 1) && (($email=~/@/g)&&($email=~/\./g)&&(length($email) > 5)) && (length($message) >= 2)) { print<
Thanks for acknowledging my existence!
Barring system failure or sheer lethargy,
I will respond soon.

Head on back endhtml $mailmessage="To: webmaster\@dolst.com\n"; $mailmessage.="From: $email\n"; $mailmessage.="Subject: dolst.com Comment\n\n"; $mailmessage.="-" x 75 ."\n"; $mailmessage.="Message from $name ($email)\n"; $mailmessage.="-" x 75 ."\n"; $mailmessage.="$message"; open(MAIL,"|/usr/sbin/sendmail -i -t -f $email"); print MAIL $mailmessage; close MAIL; } else { print<
Name: (Required)
Email Address: (Required)
Message: (Required)
endhtml } print<
All content Copyright © 2006 dolst.com
endhtml exit; sub ReadParse { local (*in) = @_ if @_; local ($i, $key, $val); # Read in text read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); @in = split(/[&;]/,$in); foreach $i (0 .. $#in) { # Convert plus's to spaces $in[$i] =~ s/\+/ /g; # Split into key and value. ($key, $val) = split(/=/,$in[$i],2); # splits on the first =. # Convert %XX from hex numbers to alphanumeric $key =~ s/%(..)/pack("c",hex($1))/ge; $val =~ s/%(..)/pack("c",hex($1))/ge; # Associate key and value $in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator $in{$key} .= $val; } return scalar(@in); }