;
close(NUMBER);
if ($num == 99999) {
$num = "1";
}
else {
$num++;
}
}
#######################
# Parse Form Subroutine
sub parse_form {
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
# Un-Webify plus signs and %-encoding
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
if ($allow_html != 1) {
$value =~ s/<([^>]|\n)*>//g;
}
else {
unless ($name eq 'body') {
$value =~ s/<([^>]|\n)*>//g;
}
}
$FORM{$name} = $value;
}
}
###############
# Get Variables
sub get_variables {
if ($FORM{'followup'}) {
$followup = "1";
@followup_num = split(/,/,$FORM{'followup'});
$num_followups = @followups = @followup_num;
$last_message = pop(@followups);
$origdate = "$FORM{'origdate'}";
$origname = "$FORM{'origname'}";
$origsubject = "$FORM{'origsubject'}";
}
else {
$followup = "0";
}
if ($FORM{'name'}) {
$name = "$FORM{'name'}";
$name =~ s/"//g;
$name =~ s/
$name =~ s/>//g;
$name =~ s/\&//g;
}
else {
&error(no_name);
}
if ($FORM{'email'} =~ /.*\@.*\..*/) {
$email = "$FORM{'email'}";
}
if ($FORM{'subject'}) {
$subject = "$FORM{'subject'}";
$subject =~ s/\&/\&\;/g;
$subject =~ s/"/\"\;/g;
}
else {
&error(no_subject);
}
if ($FORM{'url'} =~ /.*\:.*\..*/ && $FORM{'url_title'}) {
$message_url = "$FORM{'url'}";
$message_url_title = "$FORM{'url_title'}";
}
if ($FORM{'img'} =~ /.*tp:\/\/.*\..*/) {
$message_img = "$FORM{'img'}";
}
if ($FORM{'body'}) {
$body = "$FORM{'body'}";
$body =~ s/\cM//g;
$body =~ s/\n\n//g;
$body =~ s/\n/
/g;
$body =~ s/</
$body =~ s/>/>/g;
$body =~ s/"/"/g;
}
else {
&error(no_body);
}
if ($quote_text == 1) {
$hidden_body = "$body";
$hidden_body =~ s/
$hidden_body =~ s/>/>/g;
$hidden_body =~ s/"/"/g;
}
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
if ($sec < 10) {
$sec = "0$sec";
}
if ($min < 10) {
$min = "0$min";
}
if ($hour < 10) {
$hour = "0$hour";
}
if ($mon < 10) {
$mon = "0$mon";
}
if ($mday < 10) {
$mday = "0$mday";
}
$month = ($mon + 1);
@months =
("January","February","March","April","May","June","July","August","Septembe
r","October","November","December");
if ($use_time == 1) {
$date = "$hour\:$min\:$sec $month/$mday/$year";
}
else {
$date = "$month/$mday/$year";
}
chop($date) if ($date =~ /\n$/);
$long_date = "$months[$mon] $mday, 19$year at $hour\:$min\:$sec";
}
#####################
# New File Subroutine
sub new_file {
open(NEWFILE,">$basedir/$mesgdir/$num\.$ext") || die $!;
print NEWFILE "\n";
print NEWFILE "
\n";
print NEWFILE " $subject\n";
print NEWFILE " \n";
print NEWFILE "
\n";
print NEWFILE " \n";
print NEWFILE " $subject
\n";
print NEWFILE " \n";
print NEWFILE "
\n";
if ($show_faq == 1) {
print NEWFILE "[ $title
]\n";
}
else {
print NEWFILE "[ $title
]\n";
}
print NEWFILE "
\n";
print NEWFILE "Posted by ";
if ($email) {
print NEWFILE "$name on $long_date:
\n";
}
else {
print NEWFILE "$name on $long_date:
\n";
}
if ($followup == 1) {
print NEWFILE "In Reply to:
href=\"$last_message\.$ext\">$origsubject posted by ";
if ($origemail) {
print NEWFILE "$origname on
$origdate:\n";
}
else {
print NEWFILE "$origname on $origdate:
\n";
}
}
if ($message_img) {
print NEWFILE "
\n";
}
print NEWFILE "$body\n";
print NEWFILE "
\n";
if ($message_url) {
print NEWFILE "
-
href=\"$message_url\">$message_url_title
\n";
}
print NEWFILE "
\n";
if ($show_faq == 1) {
print NEWFILE "[ $title
]\n";
}
else {
print NEWFILE "[ $title
]\n";
}
print NEWFILE "
\n";
print NEWFILE
\n";
close(NEWFILE);
}
###############################
# Main WWWBoard Page Subroutine
sub main_page {
open(MAIN,"$basedir/$mesgfile") || die $!;
@main = ;
close(MAIN);
open(MAIN,">$basedir/$mesgfile") || die $!;
if ($followup == 0) {
foreach $main_line (@main) {
if ($main_line =~ //) {
print MAIN "\n";
print MAIN "
href=\"$mesgdir/$num\.$ext\">$subject - $name $date\n";
print MAIN "(0)\n";
print MAIN "\n";
}
else {
print MAIN "$main_line";
}
}
}
else {
foreach $main_line (@main) {
$work = 0;
if ($main_line =~ //) {
print MAIN "\n";
print MAIN "-
href=\"$mesgdir/$num\.$ext\">$subject - $name $date\n";
print MAIN "(0)\n";
print MAIN "\n";
}
elsif ($main_line =~ /\((.*)\)/) {
$response_num = $1;
$num_responses = $2;
$num_responses++;
foreach $followup_num (@followup_num) {
if ($followup_num == $response_num) {
print MAIN "($num_responses)\n";
$work = 1;
}
}
if ($work != 1) {
print MAIN "$main_line";
}
}
else {
print MAIN "$main_line";
}
}
}
close(MAIN);
}
############################################
# Add Followup Threading to Individual Pages
sub thread_pages {
foreach $followup_num (@followup_num) {
open(FOLLOWUP,"$basedir/$mesgdir/$followup_num\.$ext");
@followup_lines = ;
close(FOLLOWUP);
open(FOLLOWUP,">$basedir/$mesgdir/$followup_num\.$ext");
foreach $followup_line (@followup_lines) {
$work = 0;
if ($followup_line =~ //) {
print FOLLOWUP "\n";
print FOLLOWUP "-
href=\"$num\.$ext\">$subject $name $date\n";
print FOLLOWUP "(0)\n";
print FOLLOWUP "\n";
}
elsif ($followup_line =~ /\((.*)\)/) {
$response_num = $1;
$num_responses = $2;
$num_responses++;
foreach $followup_num (@followup_num) {
if ($followup_num == $response_num) {
print FOLLOWUP "($num_responses)\n";
$work = 1;
}
}
if ($work != 1) {
print FOLLOWUP "$followup_line";
}
}
else {
print FOLLOWUP "$followup_line";
}
}
close(FOLLOWUP);
}
}
sub return_html {
print "Content-type: text/html\n\n";
print "
Message Added: $subject\n";
print "
Message Added: $subject
\n";
print "The following information was added to the message board:
size=7 width=75%>\n";
print "Name: $name
\n";
print "E-Mail: $email
\n";
print "Subject: $subject
\n";
print "Body of Message:
\n";
print "$body
\n";
if ($message_url) {
print "Link:
href=\"$message_url\">$message_url_title
\n";
}
if ($message_img) {
print "Image:
\n";
}
print "Added on Date: $date\n";
print "
\n";
print "[ Go to Your
Message ] [ $title ]\n";
print "
\n";
}
sub increment_num {
open(NUM,">$basedir/$datafile") || die $!;
print NUM "$num";
close(NUM);
}
sub error {
$error = $_[0];
print "Content-type: text/html\n\n";
if ($error eq 'no_name') {
print "
$title ERROR: No Name\n";
print "
ERROR: No Name
\n";
print "You forgot to fill in the 'Name' field in your posting.
Correct it below and re-submit. The necessary fields are: Name, Subject
and Message.
\n";
&rest_of_form;
}
elsif ($error eq 'no_subject') {
print "
$title ERROR: No Subject\n";
print "
ERROR: No Subject
\n";
print "You forgot to fill in the 'Subject' field in your posting.
Correct it below and re-submit. The necessary fields are: Name, Subject
and Message.
\n";
&rest_of_form;
}
elsif ($error eq 'no_body') {
print "
$title ERROR: No Message\n";
print "
ERROR: No Message
\n";
print "You forgot to fill in the 'Message' fieldin your posting.
Correct it below and re-submit. The necessary fields are: Name, Subjectand
Message.
\n";
&rest_of_form;
}
else {
print "ERROR! Undefined.\n";
}
exit;
}
sub rest_of_form {
print "