#!/usr/bin/perl # #get the query string read(STDIN,$query,$ENV{CONTENT_LENGTH}); $query2=$ENV{QUERY_STRING}; #decode query string into variable list if (defined($query)) { @list=split('&', $query); foreach (@list) { my ($key,$value) = split /=/; $var{$key}=$value; $var{$key}=~s/\+/ /g; $var{$key}=~ s/%(..)/chr(hex($1))/ge ; } } if (defined($query2)) { @list=split('&', $query2); foreach (@list) { my ($key,$value) = split /=/; $var{$key}=$value; $var{$key}=~s/\+/ /g; $var{$key}=~ s/%(..)/chr(hex($1))/ge ; } } if(defined($var{message})) { $var{message}=~s/%0D%0A/\n/g; $var{message}=~s/%3C//g; $var{message}=~s/\+/ /g; $var{message}=~s/%09/\t/g; $var{message}=~s/%2F/\//g; $var{message}=~s/%23/#/g; $var{message}=~s/%2C/,/g; $var{message}=~s/%40/@/g; $var{message}=~s/%28/(/g; $var{message}=~s/%29/)/g; $var{message}=~s/%26/&/g; $var{message}=~s/%5F/_/g; $var{message}=~s/%5B/[/g; $var{message}=~s/%5D/]/g; $var{message}=~s/%3A/:/g; $var{message}=~s/%3B/;/g; $var{message}=~s/%7E/~/g; $var{message}=~s/%22/"/g; } #print "Content-type: text/html\n\n"; print "Content-type: text/html\n\n"; if(!defined($var{who})) { print"Send mail to the creator"; } elsif(defined($var{who})) { print"Send mail to an escort"; } print""; ################ ### Help bar ### ################ open(HELP, ") { chomp; if(!($_=~m/send/)or !($_=~m/href/)) { print"$_"; } elsif($_ =~m/send/) { ($first,$second)=split('>',$_); print"$first >$second >"; } } close(HELP); print'

'; if(!defined($var{who})) { print"If you have questions, comments, or concerns
please email the creator (aka Mike)

"; } elsif(defined($var{who})) { print"

Please email only one escort at a time.

"; } print''; print'

'; if(!defined($var{who})) { print'TO:	Mike Sokolsky
'; } elsif(defined($var{who})) { print"TO:	$var{who}
"; } print'FROM:
'; print'Subject:	'; print'

'; print''; print'

'; print""; print''; print'

'; if(defined($var{message})) { # open(SEND,"| mail -s '$var{subject}' peterpan_vs_hook\@yahoo.com"); open(SEND,"| mail -s '$var{subject}' $var{to}"); print SEND "from: $var{from}\n$var{message}\n"; # print SEND "\n<12345678910>"; close(SEND); print'

Your message has been sent

'; } print'';