#!/usr/bin/perl # MessageCenter by Greg Dykes # November 22, 1998 use CGI qw(:standard); #-------------------------------------------------------------------------# # Configuration # Set the following to fit your needs # BASEURL is the internet path to forum. make sure you end it # with a trailing / or it will not work right. my $BASEURL = "http://www.geauga.kent.edu/greg/"; # Send top of HTML form to user print < Todays Quotes

END_OF_START # Parameters Grabed from HTML Form my $username = param("uname"); my $useremail = param("email"); my $userlink = param("link"); my $message = param("message"); my $font_color = param("fontcolor"); my $forum_name = param("forum"); # Forum specifies what html doc to open for output if ($forum_name eq "") { print "

Server Error!


No Forum Specified!
"; die; # kill progie } else { } # Check users email input if ($useremail eq "") { $useremail = "None Given"; } else { $useremail = "$useremail"; } # Check Users URL input if ($userlink eq "") { $userlink = "None Given"; } elsif ($userlink eq "http://") { $userlink = "None Given"; } else { $userlink = "$userlink"; } #Check to see if user entered a message and a Name # If both pass, write to the file specified in $forum_name if ($message eq "") { print "

Please Enter A Quote!

"; print "

Click your browser's Back button to return."; } elsif ($username eq "") { print "

Please Enter A Name!

"; print "

Click your browser's Back button to return."; } else { open(HTOUT, ">>/www/httpd/htdocs/greg/$forum_name"); print ""; print HTOUT "

"; print HTOUT "Name: $username
"; print HTOUT "Email: $useremail
URL: $userlink
"; print HTOUT "Message: $message"; print HTOUT "
"; close (HTOUT); print "

Message Has Been Added!


"; print "Click Here to Return to the Forum"; } # End of Script