Make your own free website on Tripod.com

Post New Message

Your Name: Email:

Subject:

How to Post a Message

Enter your message in the text box provided below. Do not use the return key. Some browsers interpret the return key as a click of the submit button. Click Submit when you are finished. If you want to receive responses by email, provide a valid email address above.

Enter Message


#!/usr/bin/perl #post_message.pl $buffer=$ENV{'QUERY_STRING'}; $buffer =~ tr/+/ /; $buffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $buffer =~ s// /g; $buffer =~ tr/\\|[|]|<|!|"|$|{|}|*|#|'|>|||;|%/ /; @pairs = split(/&/,$buffer); foreach $pair(@pairs){ ($key,$value)=split(/=/,$pair); $formdata{$key}.="$value"; } $yourname=$formdata{'yourname'}; $email=$formdata{'email'}; $subject=$formdata{'subject'}; $message=$formdata{'message'}; open(INFO, ">>message_board.txt"); # Open for appending print INFO "$yourname|$email|$subject|$message\n"; close (INFO); open(INFO, "message_board.txt"); # Open db for reading and display @array=; close (INFO); print "Content-type:text/html\n\n"; #Follow with blank line print < Message Board

Message Board

End_of_Head foreach $line (@array){ ($yourname,$email,$subject,$message)=split(/\|/,$line); print < End_of_line } print <

Post a New Message End_of_Doc
Posted by: $yourname Return Message by Email
Subject:$subject

Message:

$message