#!/usr/local/bin/perl
##############################################################################
# This is the script made my Matt Kraft <MDKraft@hotmail.com> and used at the WICN News Board.  The original #
# WWWBoard script was made by Matt Wright of Matt's Script Archive <http://www.worldwidemart.com/scripts/ #
# I was originally going to sell this but I think I would rather give it away so other wrestling sites can use it as a #
# tool to improve their newsboards. ##
# I must admit I did sort of a screwy job when writing this script.  I realize I could have done a lot of these things #
# with less lines of code, but I was in a hurry when writing this.  The script may also be hard to understand. #
# You need to create many different separate folders and files in order to get the script to work.  In fact, I'm sure #
# this script will be almost useless to most people.  Except for being used as a learning tool of course. #
#
# Please help spread this script around.  I'd like as many people to see it as possible.  But please leave this header #
# intact.  Thanks. ### Matt Kraft #
#############################################################################
# Define Variables$basedir = "/u2/home/mkraft/public_html/wicnnewsboard";
$baseurl = "http://www.M-D-K.com/wicnnewsboard";
$cgi_url = "http://www.M-D-K.com/cgi-bin/board/vienna152va.pl";
$HOST = $ENV{"REMOTE_HOST"};$ADDR = $ENV{"REMOTE_ADDR"};
$AGENT = $ENV{"HTTP_USER_AGENT"};$mesgdir = "messages";$subdir = "subject";
$datafile = "data.txt";$datefile = "date.txt";$mesgfile = "index.html";
$faqfile = "faq.html";$ext = "html";$txt = "txt";$date_command = "/bin/date";
$title = "WICN News Board";# Done
###########################################################################
###########################################################################
# Configure Options$show_faq = 0;          # 1 - YES; 0 = NO
$allow_html = 1;        # 1 = YES; 0 = NO
$quote_text = 1;        # 1 = YES; 0 = NO
$subject_line = 0;      # 0 = Quote Subject Editable; 1 = Quote Subject 
                        #   UnEditable; 2 = Don't Quote Subject, Editable.
$use_time = 1;          # 1 = YES; 0 = NO# Done
###########################################################################
# Get the Data Number&get_number;# Get the Date Number&get_date_number;
# Get Previous Messages&get_prev;&get_prev_sub;# Get Form Information
&parse_form;# Put items into nice variables&get_variables;# Check Password
&check_password;############################# Get Data Number Subroutine
sub get_number {   open(NUMBER,"$basedir/$datafile");   $num = <NUMBER>;
   close(NUMBER);   if ($num == 99999)  {     !$num = "1";   }   else {
      $num++;   }}############################# Get Prev & Nextsub get_prev {
   open(NUMBER,"$basedir/$datafile");   $first_prev = <NUMBER>;   close(NUMBER);
		$second_prev = ($first_prev - 1);		$third_prev = ($first_prev - 2);
		$fourth_prev = ($first_prev - 3);		$fifth_prev = ($first_prev - 4);
		$first_next = ($num + 1);		$second_next = ($num + 2);
		$third_next = ($num + 3);		$fourth_next = ($num + 4);
		$fifth_next = ($num + 5);		$sixth_next = ($num + 6);
		$seventh_next = ($num + 7);		$eighth_next = ($num + 8);
		$ninth_next = ($num + 9);		$tenth_next = ($num + 10);}
############################# Get Prev Subsub get_prev_sub {
		open(FIRST,"$basedir/$subdir/$first_prev\.$txt");		$first_prev_sub = <FIRST>;
		close(FIRST);		open(SECOND,"$basedir/$subdir/$second_prev\.$txt");
		$second_prev_sub = <SECOND>;		close(SECOND);
		open(THIRD,"$basedir/$subdir/$third_prev\.$txt");		$third_prev_sub = <THIRD>;
		close(THIRD);		open(FOURTH,"$basedir/$subdir/$fourth_prev\.$txt");
		$fourth_prev_sub = <FOURTH>;		close(FOURTH);
		open(FIFTH,"$basedir/$subdir/$fifth_prev\.$txt");		$fifth_prev_sub = <FIFTH>;
		close(FIFTH);}############################# Get Date Number
sub get_date_number {	 open(DATENUM,"$basedir/$datefile");
	 $datenum = <DATENUM>;	 close(DATENUM);}#######################
# Parse Form Subroutinesub 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/<!--(.|\n)*-->//g;      if ($allow_html != 1) {
         $value =~ s/<([^>]|\n)*>//g;      }      else {
         unless ($name eq 'body') {            $value =~ s/<([^>]|\n)*>//g;
         }      }      $FORM{$name} = $value;			$FORM{$username} = $value;
			$FORM{$password} = $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{'username'}) {      $username = "$FORM{'username'}";
      $username =~ s/"//g;      $username =~ s/<//g;      $username =~ s/>//g;
      $username =~ s/\&//g;   }   else {      &error(no_username);   }
   if ($FORM{'password'}) {      $password = "$FORM{'password'}";
      $password =~ s/"//g;      $password =~ s/<//g;      $password =~ s/>//g;
      $password =~ s/\&//g;   }   else {      &error(no_password);   }
   if ($FORM{'name'}) {      $name = "$FORM{'name'}";      $name =~ s/"//g;
      $name =~ s/<//g;      $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/<p>/g;      $body =~ s/\n/<br>/g;
      $body =~ s/</</g;       $body =~ s/>/>/g; 
      $body =~ s/"/"/g;   }   else {      &error(no_body);   }
   if ($quote_text == 1) {      $hidden_body = "$body";
      $hidden_body =~ s/</</g;      $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 > 12) {		$normalHour = $hour - 12;	}	 else {
		$normalHour = $hour;	}   if ($mon < 10) {      $mon = "0$mon";   }
   if ($mday < 10) {      $mday = "0$mday";   }$PM = "PM";$AM = "AM";
if ($hour > 12) {	$apmmin = "$min $PM";}else {	$apmmin = "$min $AM";}
	$the_time = "$normalHour\:$apmmin";   $month = ($mon + 1);
   @months = ("January","February","March","April","May","June","July","August","September","October","November","December");
   if ($use_time == 1) {      $date = "$normalHour\:$apmmin $month/$mday/$year";
   }   else {      $date = "$month/$mday/$year";   }	$weekday = ($wday + 1);
	@weekday = ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
		$wdate = "$weekday";		if ($wdate eq "1")								{$prevdate = "Saturday"}
		elsif ($wdate eq "2")								{$prevdate = "Sunday"}		elsif ($wdate eq "3")
								{$prevdate = "Monday"}		elsif ($wdate eq "4")
								{$prevdate = "Tuesday"}		elsif ($wdate eq "5")
								{$prevdate = "Wednesday"}		elsif ($wdate eq "6")
								{$prevdate = "Thursday"}		elsif ($wdate eq "7")
								{$prevdate = "Friday"}		if ($wdate eq "1")								{$weekdate = "Sunday"}
		elsif ($wdate eq "2")								{$weekdate = "Monday"}		elsif ($wdate eq "3")
								{$weekdate = "Tuesday"}		elsif ($wdate eq "4")
								{$weekdate = "Wednesday"}		elsif ($wdate eq "5")
								{$weekdate = "Thursday"}		elsif ($wdate eq "6")
								{$weekdate = "Friday"}		elsif ($wdate eq "7")
								{$weekdate = "Saturday"}   chop($date) if ($date =~ /\n$/);
   $long_date = "$months[$mon] $mday, 19$year at $normalHour\:$apmmin";
	 $begin_date = "$month/$mday/$year";}         
###################################	Check Passwordsub check_password {
####################   if ($username eq "MattKraft") 
									{ if ($password eq "twisted01") {	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}######################Copy this and change Username and Password##
####################   elsif ($username eq "DemianAllik") 
										{ if ($password eq "royal34"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}######################End Copying######################
   elsif ($username eq "Museluv") 										{ if ($password eq "rlatngml"){
	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####Dave the Rave   elsif ($username eq "davetherave") 
										{ if ($password eq "iloverassl"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####Darkside   elsif ($username eq "darkside") 
										{ if ($password eq "tsninfo"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####DDPeck   elsif ($username eq "diamonddpeck") 
										{ if ($password eq "ddpecksare4ever"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####Sportsworld   elsif ($username eq "sportsworld") 
										{ if ($password eq "backstage"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####Oscar Garcia   elsif ($username eq "newguyis1") 
										{ if ($password eq "guyisnew1"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####David Trahan   elsif ($username eq "wrestler") 
										{ if ($password eq "martelcoach"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####WWFMadness   elsif ($username eq "madness") 
										{ if ($password eq "imcrazy"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####Steve Slagle   elsif ($username eq "iamknown") 
										{ if ($password eq "idontknow"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####Ogibeht   elsif ($username eq "greatpics") 
										{ if ($password eq "pictures"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####The Flying Scotsman   elsif ($username eq "Scots") 
										{ if ($password eq "GlasgowPWW"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####Kevin Ash   elsif ($username eq "nashpac") 
										{ if ($password eq "fd34ay"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####Major   elsif ($username eq "major") 
										{ if ($password eq "hollywood"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####SJJ   elsif ($username eq "SJJ") 										{ if ($password eq "981wctk"){
	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####Mike Green   elsif ($username eq "mikeg") 
										{ if ($password eq "chloe"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####Ryan Slater   elsif ($username eq "Ryan") 
										{ if ($password eq "wwf10"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####Tom Claffey   elsif ($username eq "report99") 
										{ if ($password eq "saturn12"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####M. Kidd   elsif ($username eq "MKidd") 
										{ if ($password eq "NDLancer23"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}####Jonathan Michaels   elsif ($username eq "RSW") 
										{ if ($password eq "tapout"){	&everything_else;}				 else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
}	}######################Last Username/Password##         else {
									print "Location: http://www.M-D-K.com/wicnnewsboard/wrongpass.html\n\n";
         }}############################################	Every Else Subroutine
sub everything_else {# Open the new file and write information to it.&new_file;
# Open the new subject file&new_subject;
# Open the Main WWWBoard File to add link&themain_page;
# Now Add Thread to Individual Pagesif ($num_followups >= 1) {   &thread_pages;}
# Return the user HTML&return_html;# Increment Number&increment_num;
# Increment Date Number&increment_date_num;# Write Subject into Prev Messages
&first_prev_page;&second_prev_page;&third_prev_page;&fourth_prev_page;
&fifth_prev_page;}###################### New File Subroutinesub new_file {
   open(NEWFILE,">$basedir/$mesgdir/$num\.$ext") || die $!;
   print NEWFILE "<html>\n";   print NEWFILE "  <head>\n";
   print NEWFILE "    <title>$subject</title>\n";   print NEWFILE "  </head>\n";
   print NEWFILE "  <body bgcolor=\"#FFFFFF\">
<!-- following code added by server. PLEASE REMOVE -->
<!-- preceding code added by server. PLEASE REMOVE -->\n";
	 print NEWFILE " <TABLE BORDER=0><TR>\n";
	 print NEWFILE " <TD VALIGN=top WIDTH=135 BGCOLOR=\"#aaaacc\">\n";
	 print NEWFILE " <CENTER><BR>\n";
	 print NEWFILE " <FONT FACE=ARIAL SIZE=+1><B>Next 5 Messages</B></FONT><HR>\n";
	 print NEWFILE " <FONT SIZE=-1 FACE=ARIAL>\n";
	 print NEWFILE " <A HREF=\"http://www.M-D-K.com/wicnnewsboard/messages/$fifth_next\.$ext\">\n";
	 print NEWFILE " <!--$fifth_next-->Not Posted Yet\n";
	 print NEWFILE " </A><p>\n";
	 print NEWFILE " <A HREF=\"http://www.M-D-K.com/wicnnewsboard/messages/$fourth_next\.$ext\">\n";
	 print NEWFILE " <!--$fourth_next-->Not Posted Yet\n";
	 print NEWFILE " </A><p>\n";
	 print NEWFILE " <A HREF=\"http://www.M-D-K.com/wicnnewsboard/messages/$third_next\.$ext\">\n";
	 print NEWFILE " <!--$third_next-->Not Posted Yet\n";
	 print NEWFILE " </A><p>\n";
	 print NEWFILE " <A HREF=\"http://www.M-D-K.com/wicnnewsboard/messages/$second_next\.$ext\">\n";
	 print NEWFILE " <!--$second_next-->Not Posted Yet\n";
	 print NEWFILE " </A><p>\n";
	 print NEWFILE " <A HREF=\"http://www.M-D-K.com/wicnnewsboard/messages/$first_next\.$ext\">\n";
	 print NEWFILE " <!--$first_next-->Not Posted Yet\n";
	 print NEWFILE " </A><p>\n";	 print NEWFILE " </FONT>\n";
	 print NEWFILE " <BR><FONT FACE=ARIAL SIZE=+1><B>Previous 5 Messages</B></FONT><HR>\n";
	 print NEWFILE " <FONT SIZE=-1 FACE=ARIAL>\n";
	 print NEWFILE " <A HREF=\"http://www.M-D-K.com/wicnnewsboard/messages/$first_prev\.$ext\">$first_prev_sub</A><p>\n";
	 print NEWFILE " <A HREF=\"http://www.M-D-K.com/wicnnewsboard/messages/$second_prev\.$ext\">$second_prev_sub</A><p>\n";
	 print NEWFILE " <A HREF=\"http://www.M-D-K.com/wicnnewsboard/messages/$third_prev\.$ext\">$third_prev_sub</A><p>\n";
	 print NEWFILE " <A HREF=\"http://www.M-D-K.com/wicnnewsboard/messages/$fourth_prev\.$ext\">$fourth_prev_sub</A><p>\n";
	 print NEWFILE " <A HREF=\"http://www.M-D-K.com/wicnnewsboard/messages/$fifth_prev\.$ext\">$fifth_prev_sub</A><p></FONT></CENTER><BR></TD>\n";
	 print NEWFILE " <TD WIDTH=5></TD>\n";
	 print NEWFILE " <TD VALIGN=TOP WIDTH=550><CENTER><P><P><P><P>\n";
	 print NEWFILE " <table bgcolor=\"#000000\" border=0 cellpadding=0 cellspacing=0 width=\"100%\">\n";
	 print NEWFILE " <tr valign=top>\n";	 print NEWFILE " <td>\n";
	 print NEWFILE " <table border=0 cellpadding=2 cellspacing=1 width=\"100%\">\n";
	 print NEWFILE " <tr align=center bgcolor=\"#cccccc\">\n";
	 print NEWFILE " <td width=\"20%\"><font size=-1 face=arial>\n";
	 print NEWFILE " <a href=\"http://www.wicwrestling.simplenet.com\">WIC</a></font></td>\n";
	 print NEWFILE " <td width=\"20%\"><font size=-1 face=arial>\n";
	 print NEWFILE " <a href=\"http://www.M-D-K.com/wicnnewsboard/index.html\">WICN News Board</a></font></td>\n";
	 print NEWFILE " <td width=\"20%\"><font size=-1 face=arial>\n";
	 print NEWFILE " <a href=\"http://www.M-D-K.com\">M-D-K.com</a></font></td>\n";
	 print NEWFILE " <td width=\"20%\"><font size=-1 face=arial>\n";
	 print NEWFILE " <a href=\"http://www.M-D-K.com/mailinglist.html\">Subscribe to WICN</a></font></td>\n";
	 print NEWFILE " <td width=\"20%\"><font size=-1 face=arial>\n";
	 print NEWFILE " <a href=\"http://www.M-D-K.com/man/\">M.A.N.</a></font></td>\n";
	 print NEWFILE " </tr>\n";
	 print NEWFILE " <tr bgcolor=\"#aaaacc\"><td colspan=5 align=center>
<font face=arial>\n";
	 print NEWFILE " <br><h1>$subject</h1></font></td></tr>\n";
	 print NEWFILE " <tr bgcolor=\"#cccccc\"><td colspan=5 align=center>
<font size=-1 face=arial>\n";	 print NEWFILE " Posted by \n";   if ($email) {
      print NEWFILE "<a href=\"mailto:$email\">$name</a> on $long_date<p>\n";
   }   else {      print NEWFILE "$name on $long_date<p>\n";   }
   if ($followup == 1) {
      print NEWFILE "In Reply to: <a href=\"$last_message\.$ext\">$origsubject</a> posted by ";
      if ($origemail) {
         print NEWFILE "<a href=\"$origemail\">$origname</a> on $origdate:<p>\n";
      }      else {         print NEWFILE "$origname on $origdate:<p>\n";      }
   }	 print NEWFILE " </font></td></tr></table></td></tr></table></center>\n";
	 print NEWFILE " <!--$HOST/$ADDR/$AGENT/$username/$wday/$datenum-->\n";
   if ($message_img) {
      print NEWFILE "<center><br><img src=\"$message_img\"></center><p>\n";   }
   print NEWFILE "<br><font size =-1 face=arial>$body</font><p>\n";
   if ($message_url) {
      print NEWFILE "<ul><li><a href=\"$message_url\"><font size =-1 face=arial>$message_url_title</font></a></ul>\n";
   }   print NEWFILE "</font><br>\n";
	 print NEWFILE " <table border=0 bgcolor=\"#000000\" cellpadding=0 cellspacing=0 width=\"100%\"><tr><td>\n";
	 print NEWFILE " <table border=0 bgcolor=\"#000000\" cellpadding=2 cellspacing=1 width=\"100%\">\n";
	 print NEWFILE " <tr bgcolor=\"#cccccc\" align=center valign=bottom>\n";
	 print NEWFILE " <td width=\"100%\" align=center colspan=5><font size=-1 face=arial>\n";
	 print NEWFILE "Subscribe to the Wrestling Information Center Newsletter.  The Official Newsletter of WICN!  Don't wait any longer, subscribe now!\n";
	 print NEWFILE " </font></td></tr>\n";
	 print NEWFILE " <tr bgcolor=\"#aaaacc\"><td colspan=5 align=center>\n";
	 print NEWFILE " <FORM METHOD=GET ACTION=\"http://www.findmail.com/cgi-bin/subscribe.py\">\n";
	 print NEWFILE " <FONT SIZE=-1 FACE=ARIAL>Enter your e-mail address:<BR>\n";
	 print NEWFILE " <INPUT TYPE=\"TEXT\" NAME=\"emailaddr\" VALUE=\"your e-mail\" SIZE=18>\n";
	 print NEWFILE " <INPUT TYPE=\"hidden\" NAME=\"listname\" VALUE=\"wicn\">\n";
	 print NEWFILE " </FONT></TD></TR>\n";
	 print NEWFILE " <TR BGCOLOR=\"#cccccc\"><TD COLSPAN=5 ALIGN=CENTER><FONT FACE=ARIAL SIZE=-1>\n";
	 print NEWFILE " <INPUT TYPE=\"SUBMIT\" NAME=\"SubmitAction\" VALUE=\"Subscribe\">\n";
	 print NEWFILE " </font></td></tr></table>\n";
	 print NEWFILE " </td></tr></table>\n";	 print NEWFILE " </td></tr></table>\n";
	 print NEWFILE " </td></tr></table>\n";   print NEWFILE "</body></html>\n";
   close(NEWFILE);}###################### New Subject File Subroutine
sub new_subject {   open(NEWFILE,">$basedir/$subdir/$num\.$txt") || die $!;
   print NEWFILE "$subject\n";   close(NEWFILE);}###############################
# The Main Pagesub themain_page {	 if ($weekday eq $datenum)
								{&main_page;}			 else {&dmain_page;}}###############################
# Main WWWBoard Page Subroutinesub main_page {
   open(MAIN,"$basedir/$mesgfile") || die $!;   @main = <MAIN>;   close(MAIN);
   open(MAIN,">$basedir/$mesgfile") || die $!;   if ($followup == 0) {
      foreach $main_line (@main) {
         if ($main_line =~ /<!--begin$begin_date-->/) {
            print MAIN "<!--begin$begin_date-->\n";
            print MAIN "<!--top: $num-->\n";
						print MAIN " <td align=center width=\"60%\" bgcolor=\"#aaaacc\"><font size=-1 face=arial>\n";
						print MAIN " <a href=\"$mesgdir/$num\.$ext\">$subject</a></font></td>\n";
						print MAIN " <td width=\"20%\" bgcolor=\"#aaaacc\"><font size=-1 face=arial>\n";
						print MAIN " <b>$name</b></font></td>\n";
						print MAIN " <td width=\"20%\" bgcolor=\"#aaaacc\"><font size=-1 face=arial>\n";
						print MAIN " <i>$date</i></font></td></tr>\n";
            print MAIN "<!--insert: $num-->\n";
            print MAIN "<!--end: $num-->\n";         }         else {
            print MAIN "$main_line";         }      }   }   else {
      foreach $main_line (@main) {         $work = 0;
         if ($main_line =~ /<ul><!--insert: $last_message-->/) {
            print MAIN "<ul><!--insert: $last_message-->\n";
            print MAIN "<!--top: $num--><li><a href=\"$mesgdir/$num\.$ext\">$subject</a> - <b>$name</b> <i>$date</i>\n";
            print MAIN "<ul><!--insert: $num-->\n";
            print MAIN "</ul><!--end: $num-->\n";         }
         elsif ($main_line =~ /\(<!--responses: (.*)-->(.*)\)/) {
            $response_num = $1;            $num_responses = $2;
            $num_responses++;            foreach $followup_num (@followup_num) {
               if ($followup_num == $response_num) {
                  print MAIN "(<!--responses: $followup_num-->$num_responses)\n";
                  $work = 1;               }            }
            if ($work != 1) {               print MAIN "$main_line";
            }         }         else {            print MAIN "$main_line";
         }      }   }   close(MAIN);}###################################
# D Main Pagesub dmain_page {   open(MAIN,"$basedir/$mesgfile") || die $!;
   @main = <MAIN>;   close(MAIN);   open(MAIN,">$basedir/$mesgfile") || die $!;
   if ($followup == 0) {      foreach $main_line (@main) {
         if ($main_line =~ /<!--begin$prevdate-->/) {
						print MAIN "<!--begin$weekdate-->\n";
						print MAIN "<center> <table bgcolor=\"#000000\" border=0 cellpadding=0 cellspacing=0 width=300><td align=center><font size=-1 face=arial color=white>The News for $weekdate</font>\n";
						print MAIN "<table border=0 cellpadding=2 cellspacing=1 width=600>\n";
            print MAIN "<!--begin$begin_date-->\n";
            print MAIN "<!--top: $num-->\n";
						print MAIN " <td align=center width=\"60%\" bgcolor=\"#aaaacc\"><font size=-1 face=arial>\n";
						print MAIN " <a href=\"$mesgdir/$num\.$ext\">$subject</a></font></td>\n";
						print MAIN " <td width=\"20%\" bgcolor=\"#aaaacc\"><font size=-1 face=arial>\n";
						print MAIN " <b>$name</b></font></td>\n";
						print MAIN " <td width=\"20%\" bgcolor=\"#aaaacc\"><font size=-1 face=arial>\n";
						print MAIN " <i>$date</i></font></td></tr>\n";
            print MAIN "<!--insert: $num-->\n";
            print MAIN "<!--end: $num-->\n";
						print MAIN "</table></td></table></center><BR>\n";
						print MAIN "<!--end$weekdate-->\n";
						print MAIN "<!--begin$prevdate-->\n";         }         else {
            print MAIN "$main_line";         }      }   }   else {
      foreach $main_line (@main) {         $work = 0;
         if ($main_line =~ /<ul><!--insert: $last_message-->/) {
            print MAIN "<ul><!--insert: $last_message-->\n";
            print MAIN "<!--top: $num--><li><a href=\"$mesgdir/$num\.$ext\">$subject</a> - <b>$name</b> <i>$date</i>\n";
            print MAIN "<ul><!--insert: $num-->\n";
            print MAIN "</ul><!--end: $num-->\n";         }
         elsif ($main_line =~ /\(<!--responses: (.*)-->(.*)\)/) {
            $response_num = $1;            $num_responses = $2;
            $num_responses++;            foreach $followup_num (@followup_num) {
               if ($followup_num == $response_num) {
                  print MAIN "(<!--responses: $followup_num-->$num_responses)\n";
                  $work = 1;               }            }
            if ($work != 1) {               print MAIN "$main_line";
            }         }         else {            print MAIN "$main_line";
         }      }   }   close(MAIN);}
############################################
# Add Followup Threading to Individual Pagessub thread_pages {
   foreach $followup_num (@followup_num) {
      open(FOLLOWUP,"$basedir/$mesgdir/$followup_num\.$ext");
      @followup_lines = <FOLLOWUP>;      close(FOLLOWUP);
      open(FOLLOWUP,">$basedir/$mesgdir/$followup_num\.$ext");
      foreach $followup_line (@followup_lines) {         $work = 0;
         if ($followup_line =~ /<ul><!--insert: $last_message-->/) {
            print FOLLOWUP "<ul><!--insert: $last_message-->\n";
            print FOLLOWUP "<!--top: $num--><li><a href=\"$num\.$ext\">$subject</a> <b>$name</b> <i>$date</i>\n";
            print FOLLOWUP "(<!--responses: $num-->0)\n";
            print FOLLOWUP "<ul><!--insert: $num-->\n";
            print FOLLOWUP "</ul><!--end: $num-->\n";         }
         elsif ($followup_line =~ /\(<!--responses: (.*)-->(.*)\)/) {
            $response_num = $1;            $num_responses = $2;
            $num_responses++;            foreach $followup_num (@followup_num) {
               if ($followup_num == $response_num) {
                  print FOLLOWUP "(<!--responses: $followup_num-->$num_responses)\n";
                  $work = 1;               }            }
            if ($work != 1) {               print FOLLOWUP "$followup_line";
            }         }         else {
            print FOLLOWUP "$followup_line";         }      }
      close(FOLLOWUP);   }}######################	Return HTMLsub return_html {
   print "Content-type: text/html\n\n";
   print "<html><head><title>Message Added: $subject</title></head>\n";
   print "<body><center><h1>Message Added: $subject</h1></center>\n";
   print "The following information was added to the message board:<p><hr size=7 width=75%><p>\n";
   print "<b>Name:</b> $name<br>\n";   print "<b>E-Mail:</b> $email<br>\n";
   print "<b>Subject:</b> $subject<br>\n";
   print "<b>Body of Message:</b><p>\n";   print "$body<p>\n";
   if ($message_url) {
      print "<b>Link:</b> <a href=\"$message_url\">$message_url_title</a><br>\n";
   }   if ($message_img) {
      print "<b>Image:</b> <img src=\"$message_img\"><br>\n";   }
   print "<b>Added on Date:</b> $date<p>\n";   print "<hr size=7 width=75%>\n";
   print "<center>[ <a href=\"$baseurl/$mesgdir/$num\.$ext\">Go to Your Message</a> ] [ <a href=\"$baseurl/$mesgfile\">$title</a> ]</center>\n";
   print "</body></html>\n";}######################## Increment Number
sub increment_num {   open(NUM,">$basedir/$datafile") || die $!;
   print NUM "$num";   close(NUM);}#######################
# Increment Date Numbersub increment_date_num {
	 open(DATENUM,">$basedir/$datefile") || die $!;	 print DATENUM "$weekday";
	 close(DATENUM);}######################## Add Subject into Previous Messages
sub first_prev_page {
   open(FIRST,"$basedir/$mesgdir/$first_prev\.$ext") || die $!;
   @first = <FIRST>;   close(FIRST);
   open(FIRST,">$basedir/$mesgdir/$first_prev\.$ext") || die $!;
   if ($followup == 0) {      foreach $first_line (@first) {
         if ($first_line =~ /<!--$num-->Not Posted Yet/) {
               print FIRST "<!--$num-->\n";
               print FIRST "$subject\n";
               print FIRST "<!--end$num-->\n";         } else {
            print FIRST "$first_line";						}         }    }   close(FIRST);}###
sub second_prev_page {
   open(SECOND,"$basedir/$mesgdir/$second_prev\.$ext") || die $!;
   @second = <SECOND>;   close(SECOND);
   open(SECOND,">$basedir/$mesgdir/$second_prev\.$ext") || die $!;
   if ($followup == 0) {      foreach $second_line (@second) {
         if ($second_line =~ /<!--$num-->Not Posted Yet/) {
			print SECOND "<!--$num-->\n";			print SECOND "$subject\n";
			print SECOND "<!--end$num-->\n";				         } else {
            print SECOND "$second_line";						}					}					}	   close(SECOND);}
###sub third_prev_page {
   open(THIRD,"$basedir/$mesgdir/$third_prev\.$ext") || die $!;
   @third = <THIRD>;   close(THIRD);
   open(THIRD,">$basedir/$mesgdir/$third_prev\.$ext") || die $!;
   if ($followup == 0) {      foreach $third_line (@third) {
         if ($third_line =~ /<!--$num-->Not Posted Yet/) {
		print THIRD "<!--$num-->\n";		print THIRD "$subject\n";
		print THIRD "<!--end$num-->\n";            } else {
            print THIRD "$third_line";							}					}					}	   close(THIRD);}###
sub fourth_prev_page {
   open(FOURTH,"$basedir/$mesgdir/$fourth_prev\.$ext") || die $!;
   @fourth = <FOURTH>;   close(FOURTH);
   open(FOURTH,">$basedir/$mesgdir/$fourth_prev\.$ext") || die $!;
   if ($followup == 0) {      foreach $fourth_line (@fourth) {
         if ($fourth_line =~ /<!--$num-->Not Posted Yet/) {
			print FOURTH "<!--$num-->\n";			print FOURTH "$subject\n";
			print FOURTH "<!--end$num-->\n";         } else {
            print FOURTH "$fourth_line";						}					}				}	   close(FOURTH);}###
sub fifth_prev_page {
   open(FIFTH,"$basedir/$mesgdir/$fifth_prev\.$ext") || die $!;
   @fifth = <FIFTH>;   close(FIFTH);
   open(FIFTH,">$basedir/$mesgdir/$fifth_prev\.$ext") || die $!;
   if ($followup == 0) {      foreach $fifth_line (@fifth) {
         if ($fifth_line =~ /<!--$num-->Not Posted Yet/) {
			print FIFTH "<!--$num-->\n";			print FIFTH "$subject\n";
			print FIFTH "<!--end$num-->\n";					         } else {
            print FIFTH "$fifth_line";						}					}				}	   close(FIFTH);}
###############################sub error {   $error = $_[0];
   print "Content-type: text/html\n\n";   if ($error eq 'no_username') {
      print "<html><head><title>$title ERROR: No Username</title></head>\n";
      print "<body><center><h1>ERROR: No Username</h1></center>\n";
      print "You forgot to fill in the 'Username' field in your posting.  Correct it below and re-submit.  The necessary fields are: Username, Password, Name, Subject and Message.<p><hr size=7 width=75%><p>\n";
      &rest_of_form;   }   if ($error eq 'no_password') {
      print "<html><head><title>$title ERROR: No Password</title></head>\n";
      print "<body><center><h1>ERROR: No Password</h1></center>\n";
      print "You forgot to fill in the 'Name' field in your posting.  Correct it below and re-submit.  The necessary fields are: Username, Password, Name, Subject and Message.<p><hr size=7 width=75%><p>\n";
      &rest_of_form;   }   if ($error eq 'no_name') {
      print "<html><head><title>$title ERROR: No Name</title></head>\n";
      print "<body><center><h1>ERROR: No Name</h1></center>\n";
      print "You forgot to fill in the 'Password' field in your posting.  Correct it below and re-submit.  The necessary fields are: Username, Password, Name, Subject and Message.<p><hr size=7 width=75%><p>\n";
      &rest_of_form;   }   elsif ($error eq 'no_subject') {
      print "<html><head><title>$title ERROR: No Subject</title></head>\n";
      print "<body><center><h1>ERROR: No Subject</h1></center>\n";
      print "You forgot to fill in the 'Subject' field in your posting.  Correct it below and re-submit.  The necessary fields are: Username, Password, Name, Subkect and Message.<p><hr size=7 width=75%><p>\n";
      &rest_of_form;   }   elsif ($error eq 'no_body') {
      print "<html><head><title>$title ERROR: No Message</title></head>\n";
      print "<body><center><h1>ERROR: No Message</h1></center>\n";
      print "You forgot to fill in the 'Message' fieldin your posting.  Correct it below and re-submit.  The necessary fields are: Username, Password, Name, Subject and Message.<p><hr size=7 width=75%><p>\n";
      &rest_of_form;   }   else {      print "ERROR!  Undefined.\n";   }   exit;
}sub rest_of_form {   print "<form method=POST action=\"$cgi_url\">\n";
   if ($followup == 1) {
      print "<input type=hidden name=\"origsubject\" value=\"$FORM{'origsubject'}\">\n";
      print "<input type=hidden name=\"origname\" value=\"$FORM{'origname'}\">\n";
      print "<input type=hidden name=\"origemail\" value=\"$FORM{'origemail'}\">\n";
      print "<input type=hidden name=\"origdate\" value=\"$FORM{'origdate'}\">\n";
      print "<input type=hidden name=\"followup\" value=\"$FORM{'followup'}\">\n";
   }
   print "Username: <input type=text name=\"username\" value=\"$FORM{'username'}\" size=50><br>\n";
   print "Password: <input type=text name=\"password\" value=\"$FORM{'password'}\" size=50><br>\n";
   print "Name: <input type=text name=\"name\" value=\"$FORM{'name'}\" size=50><br>\n";
   print "E-Mail: <input type=text name=\"email\" value=\"$FORM{'email'}\" size=50><p>\n";
   if ($subject_line == 1) {
      print "<input type=hidden name=\"subject\" value=\"$FORM{'subject'}\">\n";
      print "Subject: <b>$FORM{'subject'}</b><p>\n";   }    else {
      print "Subject: <input type=text name=\"subject\" value=\"$FORM{'subject'}\" size=50><p>\n";
   }   print "Message:<br>\n";
   print "<textarea COLS=50 ROWS=10 name=\"body\">\n";
   $FORM{'body'} =~ s/</</g;   $FORM{'body'} =~ s/>/>/g;
   $FORM{'body'} =~ s/"/"/g;   print "$FORM{'body'}\n";
   print "</textarea><p>\n";
   print "Optional Link URL: <input type=text name=\"url\" value=\"$FORM{'url'}\" size=45><br>\n";
   print "Link Title: <input type=text name=\"url_title\" value=\"$FORM{'url_title'}\" size=50><br>\n";
   print "Optional Image URL: <input type=text name=\"img\" value=\"$FORM{'img'}\" size=45><p>\n";
   print "<input type=submit value=\"Post Message\"> <input type=reset>\n";
   print "</form>\n";   print "<br><hr size=7 width=75%>\n";
   if ($show_faq == 1) {
      print "<center>[ <a href=\"#followups\">Follow Ups</a> ] [ <a href=\"#postfp\">Post Followup</a> ] [ <a href=\"$baseurl/$mesgfile\">$title</a> ] [ <a href=\"$baseurl/$faqfile\">FAQ</a> ]</center>\n";
   }   else {
      print "<center>[ <a href=\"#followups\">Follow Ups</a> ] [ <a href=\"#postfp\">Post Followup</a> ] [ <a href=\"$baseurl/$mesgfile\">$title</a> ]</center>\n";
   }   print "</body></html>\n";}
<!-- text below generated by server. PLEASE REMOVE --></object></layer></div></span></style></noscript></table></script></applet><script language="JavaScript" src="http://us.i1.yimg.com/us.yimg.com/i/mc/mc.js"></script><script language="JavaScript" src="http://us.js2.yimg.com/us.js.yimg.com/lib/smb/js/hosting/cp/js_source/geov2_001.js"></script><script language="javascript">geovisit();</script><noscript><img src="http://visit.geocities.yahoo.com/visit.gif?us1240902486" alt="setstats" border="0" width="1" height="1"></noscript>
<IMG SRC="http://geo.yahoo.com/serv?s=76001068&t=1240902486&f=us-w7" ALT=1 WIDTH=1 HEIGHT=1>