$subject

; close(MAIN); open(MAIN,">$basedir/$mesgfile") || die $!; if ($followup == 0) { foreach $main_line (@main) { if ($main_line =~ //) { print MAIN "\n"; print MAIN "
$subject\n"; print MAIN "$name
\n"; print MAIN "$date
\n"; print MAIN "\n"; print MAIN "\n"; } else { print MAIN "$main_line"; } } } else { foreach $main_line (@main) { $work = 0; if ($main_line =~ /
/) { print MAIN "
\n"; print MAIN "
$subject - $name $date\n"; print MAIN "
\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 "
$subject $name $date\n"; print FOLLOWUP "(0)\n"; print FOLLOWUP "
\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 "$backgroundMessage Added: $subject
[ Go to Your Message ] [ $title ]$endback\n"; print "The following information was added to the message board:
\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($message_url) { print "Link:$message_url_title
\n"; } if ($message_img) { print "Image:
\n"; } print "
Name: $name
E-Mail: $email
Subject: $subject
Body of Message:
\n"; print "$body
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 "$background
ERROR: No Name
$endback\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 "$background
ERROR: No Subject
$endback\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 "$background
ERROR: No Message
$endback\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 "
\n"; if ($followup == 1) { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print "Name:
\n"; print "E-Mail:
\n"; if ($subject_line == 1) { print "\n"; print "Subject: $FORM{'subject'}
\n"; } else { print "Subject:
\n"; } print "Message:
\n"; print "\n"; $FORM{'body'} =~ s/</</g; $FORM{'body'} =~ s/>/>/g; $FORM{'body'} =~ s/"/"/g; print "$FORM{'body'}\n"; print "
\n"; print "Optional Link URL:
\n"; print "Link Title:
\n"; print "Optional Image URL:
\n"; print " \n"; print "
\n"; print "
\n"; if ($show_faq == 1) { print "[ Follow Ups ] [ Post Followup ] [ $title ] [ FAQ ]\n"; } else { print "[ Follow Ups ] [ Post Followup ] [ $title ]\n"; } print "

\n"; }