#!/usr/local/bin/perl
##############################################################################
# WWWBoard                      Version 2.0 ALPHA 2.1                        #
# Copyright 1996 Matt Wright    mattw@worldwidemart.com                      #
# Created 10/21/95              Last Modified 11/25/95                       #
# Security Patches/Bug Fixes:   January 07, 2000                             #
# Scripts Archive at:           http://www.worldwidemart.com/scripts/        #
##############################################################################
# COPYRIGHT NOTICE                                                           #
# Copyright 1996 Matthew M. Wright  All Rights Reserved.                     #
#                                                                            #
# WWWBoard may be used and modified free of charge by anyone so long as      #
# this copyright notice and the comments above remain intact.  By using this #
# code you agree to indemnify Matthew M. Wright from any liability that      #  
# might arise from it's use.                                                 #  
#                                                                            #
# Selling the code for this program without prior written consent is         #
# expressly forbidden.  In other words, please ask first before you try and  #
# make money off of my program.                                              #
#                                                                            #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium.  In all cases copyright and header must remain intact.#
##############################################################################
# Define Variables

use Socket;

@referers = ('www.yoyodave.com','yoyodave.com','www.nmia.com','nmia.com');
$basedir = "/home3/whistler/public_html/wwwboard";
$baseurl = "http://www.nmia.com/~whistler/wwwboard";
$cgi_url = "http://www.nmia.com/cgi-bin/cgiwrap/whistler/wwwboard.pl";
$graphicdir = "/home3/whistler/public_html/wwwboard";
$basegraphic = "/~whistler/wwwboard/graphics/custom";

$badword_file = "badwords.txt";
$mesgdir = "messages";
$datafile = "data.txt";
$mesgfile = "index_big.htm";
$faqfile = "faq.htm";

$ext = "htm";

$title = "Dave's Yo-Yo Talk";

###########################################################################
# New Variables and Multi Page Layout Information
# Create by Steven Miller Jr Email: webmaster@vaultworld.com
# Site http://www.vaultworld.com/cgi-scripts
# Last Updated: 2 Mar 98
###########################################################################
#Config Items
$use_proboard = 1; # 1 = YES; 0 = NO
$pageprefix = "daves";   #This is the name of the multiply files ex polevault1.html
$perpagedisplay = 35; #Display the Number of Original Post Per Page
#Note qq? and qq+ same as " but eliminates all \/ /" Stuff
#$pagedirectoryfaq = qq? <center>[ <a href="#post">Post Message</a> ][ <a href="faq.html">FAQ</a> ][<a href="$mesgfile">One Page Version</a>]\n</center> ?;
$pagedirectoryfaq = "";
#$pagedirectory = qq? <center>[ <a href="#post">Post Message</a> ][<a href="$mesgfile">One Page Version</a>]\n</center> ?;
$pagedirectory = "";
$counter = qq+ <!-- Put Your Counter Code Here (Note Only Appears on Page One) --> +;
###Ads Banner Option
$show_ads = 0; #1 = Yes 0 = No
$adsbanner = qq+ <!-- Enter Your Banner Info Here--> +;
###################  No Need to Edit Below Lines   ################################
$ext2 = ".html"; 
$pagename = "";
@page_contents = "";
$countpages = 0; # The Current Page Count
$pages_needed = 0; # Total Number of Pages Needed
$one = 1;
$firstpagename = $pageprefix . $one . $ext2;


# Done
###########################################################################

#This is where you can block IPs, emails etc...for emails you MUST include the \ before the @ sign.

@ipblocks = ('127.0.0.1');
@emailblocks = ('test\@test.com','blank\@blank.com');
@nameblocks = ('jiminy cricket','Jiminy Cricket','Diogenes','diogenes','Gary Sumptner','gary sumptner','Shade','shade','Tom Carlton','tom carlton');

# Done
###########################################################################

###########################################################################
# Configure Options

$kill_badwords = 1;   # 1 = YES; 0 = NO
$show_faq = 1;		# 1 - YES; 0 = NO
$allow_html = 0;	# 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

$show_poster_ip = 1;    # 1 = Show the IP of every poster; 0 = Don't
$enforce_max_len = 0;   # 2 = YES, error; 1 = YES, truncate; 0 = NO
%max_len = ('name', 80, 
            'email', 70, 
            'subject', 80, 
            'url', 150, 
            'url_title', 80,
            'img', 150,
            'body', 3000,
            'origsubject', 80,
            'origname', 50,
            'origemail', 70,
            'origdate', 50);
# Done
###########################################################################

# Get the Data Number
&get_number;

&check_url;

# Get Form Information
&parse_form;

$ip_number = $ENV{'REMOTE_ADDR'};
$ip_address = &do_dns($ip_number);
$SIZE=@ipblocks;
      for($i=0;$i<$SIZE;$i++)
        {
           if ($ip_address =~ $ipblocks[$i] || $ENV{'REMOTE_ADDR'} =~ $ipblocks[$i])
		     {
		      print "Content-type: text/html\n\n";
     			print "<html><head><title>Sorry, you can't post</title></head>\n";
				print "<Body bgcolor=\"#0090DD\"> \n";
				print "<h1>Your Server is Blocked. Access Denied</h1> \n";
				print "</html> \n";
				exit;
		   }
		}
$SIZE=@emailblocks;
      for($i=0;$i<$SIZE;$i++)
        {
           if ($FORM{'email'} =~ $emailblocks[$i])
		     {
		      print "Content-type: text/html\n\n";
     			print "<html><head><title>Sorry, you can't post</title></head>\n";
				print "<Body bgcolor=\"#0090DD\"> \n";
				print "<h1>Your Server is Blocked. Access Denied</h1> \n";
				print "</html> \n";
				exit;
		   }
		}
$SIZE=@nameblocks;
      for($i=0;$i<$SIZE;$i++)
        {
           if ($FORM{'name'} =~ $nameblocks[$i])
		     {
		      print "Content-type: text/html\n\n";
     			print "<html><head><title>Sorry, you can't post</title></head>\n";
				print "<Body bgcolor=\"#0090DD\"> \n";
				print "<h1>Your Server is Blocked. Access Denied</h1> \n";
				print "</html> \n";
				exit;
		   }
		}

# Put items into nice variables
&get_variables;

if ($kill_badwords == 1) {
   &CDA_filter;
}

&check_hit;
# Open the new file and write information to it.
&new_file;

# Open the Main WWWBoard File to add link
&main_page;

# Now Add Thread to Individual Pages
if ($num_followups >= 1) {
   &thread_pages;
}

# Create on the fly Main WWWBoard File
if($use_proboard)
{
  &on_the_fly_main_page;
}

# Return the user HTML
#if($use_proboard)
#{
#   &return_proboad;
#}
#else
#{
   &return_html;
#}

# Increment Number
&increment_num;

sub randomgraphic
{
	opendir(DIR, $graphicdir) || die "can't opendir $some_dir: $!";
	@filenames = readdir(DIR);  
   closedir DIR;
    
do
{
	srand(time ^ $$);
	$n = rand(@filenames); # Pick a Random Number

}
until ($filenames[$n] =~ "logo_");
$icongraphic = "$filenames[$n]";
}

sub check_url {
    # Localize the check_referer flag which determines if user is valid.     
    local($check_referer) = 0;

    # If a referring URL was specified, for each valid referer, make sure    
    # that a valid referring URL was passed to WWWBoard script.                     

    if ($ENV{'HTTP_REFERER'}) {
        foreach $referer (@referers) {
            if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$referer|i) {
                $check_referer = 1;
                last;
            }
        }
    }
    else {
        $check_referer = 0;
    }

    # If the HTTP_REFERER was invalid, send back an error.                   
    if ($check_referer != 1) { &error('bad_referer') }
}

sub CDA_filter {
   $badword_found = 0;
   
   # Fetch the list of CDA bad words
   open(BADWORDS,"$basedir/$badword_file") || die "FILE ERROR:$badword_file\n";
   @badwords = <BADWORDS>;
   close(BADWORDS);

   foreach $badword (@badwords) {
      # Strip any extra CR/LF's
      $badword =~ s/\n//g;
      $badword =~ s/\r//g;

      if (($body =~ /$badword/i) || ($subject =~ /$badword/i) || ($name =~ /$badword/i) || ($email =~ /$badword/i) || ($message_url_title =~ /$badword/i)) {
         $badword_found = 1;
         # If a bad word is found, highlight all occurances of it
         $body =~ s/($badword)/<B>$1<\/B>/ig;
         $subject =~ s/($badword)/<B>$1<\/B>/ig;
         $name =~ s/($badword)/<B>$1<\/B>/ig;
         $email =~ s/($badword)/<B>$1<\/B>/ig;
         $message_url_title =~ s/($badword)/<B>$1<\/B>/ig;
      }
   }

   # Be nice and give user chance to remove the bad words and repost
   if ($badword_found == 1) {
      &error(bad_words);
   }
}


sub get_number {
   open(NUMBER,"$basedir/$datafile");
   $num = <NUMBER>;
   close(NUMBER);
   if ($num == 999999 || $num !~ /^\d+$/)  {
      $num = "1";
   }
   else {
      $num++;
   }
}

#######################
# Parse Form Subroutine

sub parse_form {
   # Get the input
  if ( ($ENV{'REQUEST_METHOD'} eq "POST") || ($ENV{'REQUEST_METHOD'} ne "GET") ) {
   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;
	  # This eliminates blank whitespaces within the field
	  # IE. TAB to Name Field and hit the SPACEBAR with no text entry
	  $value =~ s/^\s*//g;  
	  $value =~ s/\s*$//g;
      if ($allow_html != 1) {
         $value =~ s/<p>/\n\n/g;
         $value =~ s/<br>/\n/g;
         $value =~ s/<([^>]|\n)*>//g;
      } else { unless ($name eq 'body') { $value =~ s/<([^>]|\n)*>//g; } }
     $FORM{$name} = $value;
     }
# If the request METHOD is invalid display the 'bad_referer' error message
   } else { &error('bad_referer'); }
 }

###############
# Get Variables

sub get_variables {

   if ($FORM{'followup'}) {
      $followup = "1";
      @followup_num = split(/,/,$FORM{'followup'});
      foreach $followupNum (@followup_num) {
      if ($followupNum !~ /^\d+$/) {
      &error('deny_post'); 
	  # Create an new error message in the &error sub routine
     }
   }
      $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/<//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/\&/\&amp\;/g;
      $subject =~ s/"/\&quot\;/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/&lt;/</g; 
      $body =~ s/&gt;/>/g; 
      $body =~ s/&quot;/"/g;
      $mesg_size = length($body);
   }
   else {
      &error(no_body);
   }

if ($FORM{'subject'}) {
      $subject = "$FORM{'subject'}";
      $subject =~ s/\&/\&amp\;/g;
      $subject =~ s/"/\&quot\;/g;
      $subject_length = length($subject);
     } else { &error(no_subject); }
  # Added to check the subject character length not to 
  # exceed 50 maxlength characters
   if ($subject_length > 80) {
       &error(too_long);
     }

if ($FORM{'name'}) {
$name = "$FORM{'name'}";

$name_length = length($name);
     } else { &error(no_name); }
  # Added to check the subject character length not to 
  # exceed 50 maxlength characters
   if ($name_length > 50) {
       &error(too_long);
     }

   if ($quote_text == 1) {
      $hidden_body = "$body";
      $hidden_body =~ s/</&lt;/g;
      $hidden_body =~ s/>/&gt;/g;
      $hidden_body =~ s/"/&quot;/g;
   }

   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

   $month = ($mon + 1);

   @months = ("January","February","March","April","May","June","July","August","September","October","November","December");

   $year += 1900;
   $long_date = sprintf("%s %02d, %4d at %02d:%02d:%02d",$months[$mon],$mday,$year,$hour,$min,$sec);

   $year %= 100;
   if ($use_time == 1) {
      $date = sprintf("%02d:%02d:%02d %02d/%02d/%02d",$hour,$min,$sec,$month,$mday,$year);
   }
   else {
      $date = sprintf("%02d/%02d/%02d",$month,$mday,$year);
   }
}      


sub check_hit {
$hit_log = "dbl-post.txt";
$ip_hit_addr = "$ENV{'REMOTE_ADDR'}";
$ip_hit = "$ip_hit_addr-$mesg_size";
  open(HITLOG,"$basedir/$hit_log") || die "FILE ERROR: $hit_log\n";
   $IP_NUM = <HITLOG>;
    close(HITLOG);
     if ($ip_hit eq $IP_NUM) {
      &error(dbl_post);
        } else {
      open(HITLOG,">$basedir/$hit_log") || die "FILE ERROR: $hit_log\n";
      print HITLOG "$ip_hit";
      close(HITLOG);
      }
    }

#####################
# New File Subroutine

sub new_file {
	if (-e "$basedir/$mesgdir/$num\.$ext") {
        $num++;
	}
   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=\"#A5D6FF\">\n";
    print NEWFILE "    <center>\n";
   print NEWFILE "      <h1>$subject</h1>\n";
   print NEWFILE "    </center>\n";
   print NEWFILE "<hr size=7 width=75%>\n";
   if ($show_faq == 1) {
      print NEWFILE "<center><a href=\"#followups\"><img border=\"0\" src=\"$baseurl/follow.gif\"></a> <a href=\"#postfp\"><img border=\"0\" src=\"$baseurl/post.gif\"></a> <a href=\"$baseurl/$firstpagename\"><img border=\"0\" src=\"$baseurl/board.gif\"></a> <a href=\"$baseurl/$faqfile\"><img border=\"0\" src=\"$baseurl/faq.gif\"></a></center>\n";
   }
   else {
      print NEWFILE "<center><a href=\"#followups\"><img border=\"0\" src=\"$baseurl/follow.gif\"></a> <a href=\"#postfp\"><img border=\"0\" src=\"$baseurl/post.gif\"></a> <a href=\"$baseurl/$firstpagename\"><img border=\"0\" src=\"$baseurl/board.gif\"></a></center>\n";
   }
   print NEWFILE "<hr size=7 width=75%><p>\n";

   print NEWFILE "<ul>Posted by ";

   if ($email) {
      print NEWFILE "<a href=\"mailto:$email\">$name</a> ";
   }
   else {
      print NEWFILE "$name \n";
   }
   if ($show_poster_ip) { 
   	$ip_number = $ENV{'REMOTE_ADDR'};
		#$ip_address = &do_dns($ip_number);
   	
   	#if ($ip_number eq $ip_address)
   	#{
   	#	$ip_address = $ip_number;
   	#}
   	
   	print NEWFILE "from <font size=\"-1\" color=\"blue\">($ip_number)</font></font> "; }
   print NEWFILE "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";
      }
   }

   if ($message_img) {
      print NEWFILE "<center><img src=\"$message_img\"></center><p>\n";
   }
   print NEWFILE "$body\n";
   print NEWFILE "<br>\n";
   if ($message_url) {
      print NEWFILE "<ul><li><a href=\"$message_url\">$message_url_title</a></ul>\n";
   }
   print NEWFILE "<!--Poster's IP : $ENV{'REMOTE_ADDR'}-->\n";
   print NEWFILE "<!--Poster's Browser : $ENV{'HTTP_USER_AGENT'}-->\n";
   print NEWFILE "<br><hr size=7 width=75%><p>\n";
   print NEWFILE "<a name=\"followups\">Follow Ups:</a><br>\n";
   print NEWFILE "<ul><!--insert: $num-->\n";
   print NEWFILE "</ul><!--end: $num-->\n";
   print NEWFILE "<br><hr size=7 width=75%><p>\n";
   print NEWFILE "<a name=\"postfp\">Post a Followup</a><p>\n";
   print NEWFILE "<form method=POST action=\"$cgi_url\">\n";
   print NEWFILE "<input type=hidden name=\"followup\" value=\"";
   if ($followup == 1) {
      foreach $followup_num (@followup_num) {
         print NEWFILE "$followup_num,";
      }
   }
   print NEWFILE "$num\">\n";
   print NEWFILE "<input type=hidden name=\"origname\" value=\"$name\">\n";
   if ($email) {
      print NEWFILE "<input type=hidden name=\"origemail\" value=\"$email\">\n";
   }
   print NEWFILE "<input type=hidden name=\"origsubject\" value=\"$subject\">\n";
   print NEWFILE "<input type=hidden name=\"origdate\" value=\"$long_date\">\n";
   print NEWFILE "Name: <input type=text name=\"name\" size=50><br>\n";
   print NEWFILE "E-Mail: <input type=text name=\"email\" size=50><p>\n";
   if ($subject_line == 1) {
      if ($subject_line =~ /^Re:/) {
         print NEWFILE "<input type=hidden name=\"subject\" value=\"$subject\">\n";
         print NEWFILE "Subject: <b>$subject</b><p>\n";
      }
      else {
         print NEWFILE "<input type=hidden name=\"subject\" value=\"Re: $subject\">\n";
         print NEWFILE "Subject: <b>Re: $subject</b><p>\n";
      }
   } 
   elsif ($subject_line == 2) {
      print NEWFILE "Subject: <input type=text name=\"subject\" size=50><p>\n";
   }
   else {
      if ($subject =~ /^Re:/) {
         print NEWFILE "Subject: <input type=text name=\"subject\"value=\"$subject\" size=80><p>\n";
      }
      else {
         print NEWFILE "Subject: <input type=text name=\"subject\" value=\"Re: $subject\" size=80><p>\n";
      }
   }
   print NEWFILE "Comments:<br>\n";
   print NEWFILE "<textarea name=\"body\" COLS=50 ROWS=10>\n";
   if ($quote_text == 1) {
      @chunks_of_body = split(/\&lt\;p\&gt\;/,$hidden_body);
      foreach $chunk_of_body (@chunks_of_body) {
         @lines_of_body = split(/\&lt\;br\&gt\;/,$chunk_of_body);
         foreach $line_of_body (@lines_of_body) {
            print NEWFILE ": $line_of_body\n";
         }
         print NEWFILE "\n";
      }
   }
   print NEWFILE "</textarea>\n";
   print NEWFILE "<p>\n";
   print NEWFILE "Optional Link URL: <input type=text name=\"url\" size=50><br>\n";
   print NEWFILE "Link Title: <input type=text name=\"url_title\" size=48><br>\n";
   print NEWFILE "Optional Image URL: <input type=text name=\"img\" size=49><p>\n";
   print NEWFILE "<input type=submit value=\"Submit Follow Up\"> <input type=reset>\n";
   print NEWFILE "<p><hr size=7 width=75%></ul>\n";
   if ($show_faq == 1) {
      print NEWFILE "<center><a href=\"#followups\"><img border=\"0\" src=\"$baseurl/follow.gif\"></a> <a href=\"#postfp\"><img border=\"0\" src=\"$baseurl/post.gif\"></a> <a href=\"$baseurl/$firstpagename\"><img border=\"0\" src=\"$baseurl/board.gif\"></a> <a href=\"$baseurl/$faqfile\"><img border=\"0\" src=\"$baseurl/faq.gif\"></a></center>\n";
   }
   else {
      print NEWFILE "<center><a href=\"#followups\"><img border=\"0\" src=\"$baseurl/follow.gif\"></a> <a href=\"#postfp\"><img border=\"0\" src=\"$baseurl/post.gif\"></a> <a href=\"$baseurl/$firstpagename\"><img border=\"0\" src=\"$baseurl/board.gif\"></a></center>\n";
   }
   print NEWFILE "</body></html>\n";
   close(NEWFILE);
   $mode = 0644;      
   $file = "$basedir/$mesgdir/$num\.$ext";
   chmod $mode, $file;
}

###############################
# Main WWWBoard Page Subroutine

sub 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-->/) {
            print MAIN "<!--begin-->\n";
            if ($name eq "Steve Brown")
            {
            	$icongraphic = "$basegraphic/albino.gif";
        		}
        		elsif ($name eq "Gibberish*")
        		{
        			$icongraphic = "$basegraphic/bpt.gif";
        		}
        		elsif ($name eq "John Higby")
        		{
        				$icongraphic = "$basegraphic/higby.gif";
        		}
        		elsif ($name eq "Abejero")
        		{
        				$icongraphic = "$basegraphic/abejero.gif";
        		}
        		elsif ($name eq "Scarecrow")
        		{
        				$icongraphic = "$basegraphic/craft1.gif";
        		}
        		elsif ($name eq "David Hall")
        		{
        				$icongraphic = "$basegraphic/dave.gif";
        		}
        		else
        		{  			
        			&randomgraphic;
        		}
	    print MAIN "<!--top: $num--><font color=\"#A5D6FF\"><li>&nbsp;</font><img align=\"middle\" src=\"$icongraphic\">&nbsp;<a href=\"$mesgdir/$num\.$ext\">$subject</a> - <b>$name</b> <i>$date</i>\n";
            print MAIN "(<!--responses: $num-->0)\n";
            print MAIN "<ul><!--insert: $num-->\n";
            print MAIN "</ul><!--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";
            if ($name eq "Steve Brown")
            {
            	$icongraphic = "$basegraphic/albino.gif";
        		}
        		elsif ($name eq "Gibberish*")
        		{
        			$icongraphic = "$basegraphic/bpt.gif";
        		}
        		elsif ($name eq "John Higby")
        		{
        				$icongraphic = "$basegraphic/higby.gif";
        		}
        		elsif ($name eq "Abejero")
        		{
        				$icongraphic = "$basegraphic/abejero.gif";
        		}
        		elsif ($name eq "Scarecrow")
        		{
        				$icongraphic = "$basegraphic/craft1.gif";
        		}
        		elsif ($name eq "David Hall")
        		{
        				$icongraphic = "$basegraphic/dave.gif";
        		}
        		else
        		{  			
        			&randomgraphic;
        		}
            print MAIN "<!--top: $num--><font color=\"#A5D6FF\"><li>&nbsp;</font><img align=\"middle\" src=\"$icongraphic\">&nbsp;<a href=\"$mesgdir/$num\.$ext\">$subject</a> - <b>$name</b> <i>$date</i>\n";
            print MAIN "(<!--responses: $num-->0)\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 Pages
sub thread_pages {
   foreach $followup_num (@followup_num) {

# IF the follow up is valid the script will go on as normal

     if (-e "$basedir/$mesgdir/$followup_num\.$ext") {
      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";
	    if ($name eq "Steve Brown")
            {
            	$icongraphic = "$basegraphic/albino.gif";
        		}
        		elsif ($name eq "Gibberish*")
        		{
        			$icongraphic = "$basegraphic/bpt.gif";
        		}
        		elsif ($name eq "John Higby")
        		{
        				$icongraphic = "$basegraphic/higby.gif";
        		}
        		elsif ($name eq "Abejero")
        		{
        				$icongraphic = "$basegraphic/abejero.gif";
        		}
        		elsif ($name eq "Scarecrow")
        		{
        				$icongraphic = "$basegraphic/craft1.gif";
        		}
        		elsif ($name eq "David Hall")
        		{
        				$icongraphic = "$basegraphic/dave.gif";
        		}
        		else
        		{
        			&randomgraphic;
        		}
            print FOLLOWUP "<!--top: $num--><font color=\"#A5D6FF\"><li>&nbsp;</font><img align=\"middle\" src=\"$icongraphic\">&nbsp;<a href=\"$num\.$ext\"><b>$subject</b></a> $name <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);
     
# If it is NOT the script will generate an error message "deny_post"
# You will need to again, create another custom error message in the 
# sub routine "sub error" with the  } elsif ($error eq 'deny_post')  {
# and use the "exit;" call to halt the script.
     } else {
# Else we have a bogies message posted.
 &error('deny_post');
      }
   }
}

sub return_html {
   print "Content-type: text/html\n\n";
   print "<html><head><title>Message Added: $subject</title></head>\n";
	print "<body bgcolor=\"#A5D6FF\"><center><h1>Message Added: $subject</h1></center>\n";
   print "<ul>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 "</ul><center>[ <a href=\"$baseurl/$mesgdir/$num\.$ext\">Go to Your Message</a> ] [ <a href=\"$baseurl/$firstpagename\">$title</a> ]</center>\n";   
      print "</body></html>\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 "<html><head><title>$title ERROR: No Name</title></head>\n";
      print "<body bgcolor=\"#A5D6FF\"><center><h1>ERROR: No Name</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: 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 bgcolor=\"#A5D6FF\"><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: Name, Subject 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 bgcolor=\"#A5D6FF\"><center><h1>ERROR: No Message</h1></center>\n";
      print "You forgot to fill in the 'Message' field in your posting.  Correct it below and re-submit.  The necessary fields are: Name, Subject and Message.<p><hr size=7 width=75%><p>\n";
      &rest_of_form;
   }
   elsif ($error eq 'field_size') {
      printf "<html><head><title>$title ERROR: Field too Long</title></head>\n";
      print "<body bgcolor=\"#A5D6FF\"><center><h1>ERROR: Field too Long</h1></center>\n";
      print "One of the form fields in the message submission was too long.  The following are the limits on the size of each field (in characters):<p><ul>\n";
      print "<li>Name: $max_len{'name'}\n";
      print "<li>E-Mail: $max_len{'email'}\n";
      print "<li>Subject: $max_len{'subject'}\n";
      print "<li>Body: $max_len{'body'}\n";
      print "<li>URL: $max_len{'url'}\n";
      print "<li>URL Title: $max_len{'url_title'}\n";
      print "<li>Image URL: $max_len{'img'}\n";
      print "</ul>Please modify the form data and resubmit.<p><hr size=7 width=75%><p>\n";
      &rest_of_form; 
   }
     elsif ($error eq 'dbl_post') {
     print "<html><head><title>$title ERROR: Multiple Postings Abuse!</title></head>\n";
     print "<body><center><H2><b>ERROR: MULTIPLE POSTING DECTECTED!</b></H2></center>\n";
     print "<center><H2>A multiple posting has been detected!</H2></center><blockquote>\n";
     print "<BLOCKQUOTE><font size=4><b>The program has detected that you tried to submit the same message twice.\n";
     print "Please be more careful :-)</b></font><hr>\n";
     print "<center><i>Thank you for your cooperation.</i><br>Administrator for the <a href=\"$baseurl/$firstpagename\">$title</a></center><P>\n"; 
     print "<p></blockquote></body></html>\n";
     exit; 
   } 
   elsif ($error eq 'bad_words') {
      print "<html><head><title>$title ERROR: CDA Censor Activated!</title></head>\n";
      print "<body><center><font size=\"+4\" color=\"#ff0000\">ERROR: CDA Censor Activated!</font></center>\n";
      print "<center><h3>Your text contains one or more words that the U.S. Congress might find offensive.</h3></center>\n";
      print "<P>The unacceptable words are highlighted in bold below:<BR><HR><P>\n";
      print "FROM: $name<BR>\n";
      print "EMAIL: $email<BR>\n";
      print "URL TITLE: $message_url_title<BR>\n";
      print "SUBJECT: $subject<P>\n";
      print "BODY OF MESSAGE: $body<P><HR><P>\n";
      print "<center><h3>Please use your browser's BACK button to edit your text and make it suitable for everyone.</h3></center>\n";
      print "</body></html>\n";
      exit; 
  }
  elsif ($error eq 'bad_referer') {
  	 print "<html><head><title>$title ERROR!</title></head>\n";
      print "<body><center><font size=\"+4\" color=\"#ff0000\">ERROR!</font></center>\n";
      print "<center><h3>You are trying to post to this board from an unauthorized server.</h3><BR><HR><P>\n";
      print "</body></html>\n";
      exit; 
  	}
  	elsif ($error eq 'deny_post') {
  	 print "<html><head><title>$title ERROR!</title></head>\n";
      print "<body><center><font size=\"+4\" color=\"#ff0000\">ERROR!</font></center>\n";
      print "<center><h3>You are trying to post a message that will cause server errors, so your message will not be posted.</h3><BR><HR><P>\n";
      print "</body></html>\n";
      exit; 
  	}
  	 elsif ($error eq 'too_long') {
  	 print "<html><head><title>$title ERROR!</title></head>\n";
      print "<body><center><font size=\"+4\" color=\"#ff0000\">ERROR!</font></center>\n";
      print "<center><h3>Sorry, either your name or subject is too long, please hit back and fix it.</h3><BR><HR><P>\n";
      print "</body></html>\n";
      exit; 
  	}
   else {
      print "ERROR!  Undefined.\n";
   }
   exit;
}

sub PrintHeader {
  return "Content-type: text/html\n\n";
}

sub do_dns
{
    my($ip_addr) = shift;
    my($host);
    if ($ip_addr =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) 
	   {
        if (($host = $DNS{$ip_addr}) eq '') 
		   { 
            if (($host = (gethostbyaddr(pack('C4', $1, $2, $3, $4), &AF_INET))[0]) eq '')
			   {
                $DNS{$ip_addr} = $host = $ip_addr;
               }
			 else
			   {
                $DNS{$ip_addr} = $host;
               }
             $DNS{"$ip_addr:time"} = time;
           }
        return($host);
        }
     return($ip_addr);
}

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 "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/</&lt;/g;
   $FORM{'body'} =~ s/>/&gt;/g;
   $FORM{'body'} =~ s/"/&quot;/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\"><img border=\"0\" src=\"$baseurl/follow.gif\"></a> <a href=\"#postfp\"><img border=\"0\" src=\"$baseurl/post.gif\"></a> <a href=\"$baseurl/$firstpagename\"><img border=\"0\" src=\"$baseurl/board.gif\"></a> <a href=\"$baseurl/$faqfile\"><img border=\"0\" src=\"$baseurl/faq.gif\"></a></center>\n";
   }
   else {
      print "<center><a href=\"#followups\"><img border=\"0\" src=\"$baseurl/follow.gif\"></a> <a href=\"#postfp\"><img border=\"0\" src=\"$baseurl/post.gif\"></a> <a href=\"$baseurl/$firstpagename\"><img border=\"0\" src=\"$baseurl/board.gif\"></a></center>\n";
   }
   print "</body></html>\n";
}

#########################################################################################

# Multi Board Additions
############################

# On the Fly main page
sub on_the_fly_main_page
{
   $numofmainresponses = 0;
   open(MAIN,"$basedir/$mesgfile") || die $!;
   @maincopy = <MAIN>;
   close(MAIN);
   $number_of_lines_maincopy = @maincopy;
   #determine the number of main responses not replies
   for ($count = 0; $count < $number_of_lines_maincopy; $count++)
   {
      if ($maincopy[$count] =~ /<!--top: (\d*)-->*/)
      {
         $numofmainresponses++;
         $topvalue = $1;
         $count++;
         do
         {
            $count++;
         }while($maincopy[$count] !~ /<!--end: $topvalue-->*/);                            
      }
   }
   #determine the interger number of pages

   $pages_needed = $numofmainresponses / $perpagedisplay;
   $pages_needed_remander = $numofmainresponses % $perpagedisplay;
   #Store In Interger Format

   $pages_needed = ($pages_needed - ($pages_needed_remander/$perpagedisplay));
   
   #Added one because a remainder

   if ($pages_needed_remander)
   {
      $pages_needed++;
   }

   #determine what type of pages to type

   if($numofmainresponses < $perpagedisplay)
   {
      #print only one page
      # Logic: Begin Storing Lines after first top and until bottom tag is found
      $detect = 0;
      $countpages = 1;
      for ($count = 0; $count < $number_of_lines_maincopy; $count++)
      {
         if ($maincopy[$count] =~ /<!--bottom.*/)
         {
            $detect = 0;
         }
         if ($maincopy[$count] =~ /<!--top:.*/ || $detect)
         {
         $detect = 1;
         splice(@page_contents, -1, 0, $maincopy[$count])
         }
      }
      #Call Write One page
      &write_one_page;
   }
   else
   {
      #print more than one page note starts at one the last page will be handle individually
      #Start from the beginning of a file.
      $count = 0;
      for($countpages = 1; $countpages < ($pages_needed + 1); $countpages++)
      {
         @page_contents = "";
         $detect = 0;
         for ($counttops = 0;$counttops < $perpagedisplay; )
         {
            # Read the next line of maincopy
            $count++;
            #Error Checking if page in wrong format will exit loop
            $maincopylength = @maincopy;
            if ($count == $maincopylength)
            {
               $counttops = $perpagedisplay;
            }
            if ($maincopy[$count] =~ /<!--bottom.*/)
            {
               $counttops = $perpagedisplay;  
            }
            if ($maincopy[$count] =~ /<!--top: (\d*)-->*/)
            {
               $topvalue = $1;
               $counttops++;
               $detect = 1;
               splice(@page_contents, -1, 0, $maincopy[$count]);
               #read and store until next top
               $count++;
               while($maincopy[$count] !~ /<!--end: $topvalue-->*/)
               {
                  splice(@page_contents, -1, 0, $maincopy[$count]);
                  $count++;
                  last if ($count == $maincopylength);
                  last if ($maincopy[$count] =~ /<!--bottom.*/);
               }
               # Still want to include last line would have used do loop

               # but it doens't support last statement
               splice(@page_contents, -1, 0, $maincopy[$count]);               
            }
         }
         # Call Print Pages
    
         &print_multi_pages ($countpages, @page_contents) ;     
      }
   }
}
############################

# Write One Page Only
sub write_one_page

{

   # Finish by writing the Output to the File

   
   

   $pagename = $pageprefix . $one . $ext2;

   open (OUTFILE,">$basedir/$pagename")  || die $!;

   # print header

   &top_of_form2;

   print OUTFILE  "<ul>";

   # print body

   $number_of_lines_body = @page_contents;

	for ($count4 = 0; $count4 < $number_of_lines_body; $count4++)

   {

	   print OUTFILE "$page_contents[$count4] \n";

   }
   #print ending

   &rest_of_form2;

   
   close(OUTFILE);


}
############################

# Write Multi Pages
sub print_multi_pages

{

   my ($countpages, @page_contents) = @_;

   # Finish by writing the Output to the File

   


   $pagename = $pageprefix . $countpages . $ext2;

   open (OUTFILE,">$basedir/$pagename")  || die $!;

   
   # print header

   &top_of_form2;

   &print_page_numbers;

   print OUTFILE  "<ul>";

   
   # print body

   $number_of_lines_body = @page_contents;

	for ($count4 = 0; $count4 < $number_of_lines_body; $count4++)

   {

	   print OUTFILE "$page_contents[$count4] \n";

   }
   #print ending

   &rest_of_form2;

   
   close(OUTFILE);


}

#####################################################################################

# Write to of the Rest of the Form
sub rest_of_form2 {

   print OUTFILE qq? <a name="post"><center><h2>Post A Message!</h2></center></a><br> \n?;

   print OUTFILE "<form method=POST action=\"$cgi_url\">\n";

   print OUTFILE "Name: <input type=text name=\"name\" value=\"\" size=50><br>\n";

   print OUTFILE "E-Mail: <input type=text name=\"email\" value=\"\" size=50><p>\n";

   print OUTFILE "Subject: <input type=text name=\"subject\" value=\"\" size=50><p>\n";

   print OUTFILE "Message:<br>\n";

   print OUTFILE "<textarea COLS=50 ROWS=10 name=\"body\">\n";

   print OUTFILE "</textarea><p>\n";

   print OUTFILE "Optional Link URL: <input type=text name=\"url\" value=\"\" size=45><br>\n";

   print OUTFILE "Link Title: <input type=text name=\"url_title\" value=\"\" size=50><br>\n";

   print OUTFILE "Optional Image URL: <input type=text name=\"img\" value=\"\" size=45><p>\n";

   print OUTFILE "<input type=submit value=\"Post Message\"> <input type=reset>\n";

   print OUTFILE "</form>\n";

   print OUTFILE "<br><hr size=7 width=75%>\n";

   if($pages_needed != 1)

   {

   &print_page_numbers;

   }
   if($countpages == 1)

   {

      print OUTFILE "<br> $counter \n";

   }

   print OUTFILE <<END_HTML;
   
<HR>
<a name="drone"</a>

<BR>
<CENTER>
<MAP NAME="FrontPageMap1">
<AREA SHAPE="RECT" COORDS="232, 87, 305, 103" HREF="http://www.thebignow.com/yoyo/links/" TARGET="_blank">
<AREA SHAPE="RECT" COORDS="160, 87, 232, 103" HREF="http://www.proyo.com/proyohistory1.htm" TARGET="_blank">
<AREA SHAPE="RECT" COORDS="88, 87, 160, 103" HREF="http://www.yoyodave.com/yoyo.html" TARGET="_blank">
<AREA SHAPE="RECT" COORDS="232, 72, 305, 89" HREF="http://www.albany.net/~buzzbait/yoyo/" TARGET="_blank">
<AREA SHAPE="RECT" COORDS="160, 72, 232, 89" HREF="http://yoniverse.yvanovich.com:8080/" TARGET="_blank">
<AREA SHAPE="RECT" COORDS="88, 72, 160, 89" HREF="http://www.stuntpilot.com/" TARGET="_blank">
<AREA SHAPE="RECT" COORDS="232, 59, 305, 74" HREF="http://www.yoyo.together.com/yoyo/index.shtml" TARGET="_blank">
<AREA SHAPE="RECT" COORDS="160, 59, 232, 74" HREF="http://www.nmia.com/~whistler/wwwboard/daves1.htm" TARGET="_blank">
<AREA SHAPE="RECT" COORDS="88, 59, 160, 74" HREF="http://www.davesyoyos.com" TARGET="_blank">
</MAP>

<img ismap usemap="#FrontPageMap1" border="0" height="106" src="toolbar2.gif" width="349">
</CENTER>
<BR>

<center>

<P>Click here to Visit <A HREF="http://ssl1.nmia.com/cgi-bin/cgiwrap/whistler/shop.pl/page=4sale.html" target=_top> <FONT SIZE=+1>Dave and Mark's Yo-Yo Store</FONT></A>.... </P>





<P>Click here to Visit  <FONT SIZE=+1><A HREF="http://www.nmia.com/~whistler/yo-yos.html" target=_top>Dave's Wonderful World of Yo-Yos</A></FONT>....

</P>

</center>
   
   
END_HTML

}
#####################################################################################

# Write to of the Form for One Page Only

sub top_of_form2 {

   # print OUTFILE "<html>\n";
   # 
   # print OUTFILE "  <head>\n";
   # 
   # print OUTFILE "    <title>$title</title>\n";
   # 
   # print OUTFILE "  </head>\n";
   # 
   # print OUTFILE "  <body $body_eval>\n";
   # 
   # print OUTFILE "    <center>\n";
   # 
   # print OUTFILE "      <h1>$title</h1>\n";
   # 
   # print OUTFILE "    </center>\n";
   # 
   # print OUTFILE "<hr size=7 width=75%>\n";
   print OUTFILE <<END_HTML;
   
   
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="en-us">
<title>Dave's Web Board</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body bgcolor="#A5D6FF">
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td align="center"><map name="FPMap0">
        <area href="http://www.proyo.com" shape="rect" coords="2, 103, 103, 152">
        <area href="http://www.yoyotimes.com" shape="rect" coords="102, 106, 206, 152">
        <area href="http://yoyocollective.com" shape="rect" coords="205, 106, 306, 152">
        <area href="http://www.bandalore.com/chat" shape="rect" coords="307, 106, 408, 152">
        <area href="http://www.yoyojam.com" shape="rect" coords="409, 107, 508, 153">
        <area href="http://www.yoyodave.com" shape="rect" coords="351, 27, 508, 101">
        <area href="http://ssl1.nmia.com/cgi-bin/cgiwrap/whistler/shop.pl/page=4sale.html" shape="rect" coords="1, 26, 156, 103">
        <area href="#post" shape="rect" coords="192, 155, 317, 182">
        <area href="http://www.nmia.com/~whistler/wwwboard/topic.htm" coords="62, 156, 189, 183" shape="rect">
        <area href="http://www.nmia.com/~whistler/wwwboard/faq.htm" coords="323, 157, 449, 183" shape="rect"></map><img border="0" src="http://www.nmia.com/~whistler/board2.gif" usemap="#FPMap0" width="509" height="184"></td>
    </tr>
    <tr>
      <td align="center"><font size="-1">Maintained and Managed by David W.
        Hall, &quot;The Yo-Yo Collector&quot;, <a href="mailto:whistler\@nmia.com">whistler\@nmia.com</a>.</font></td>
    </tr>
  </table>
  </center>
</div>

END_HTML

   if ($show_faq == 1) {

      print OUTFILE $pagedirectoryfaq;

   }

   else {

      print OUTFILE $pagedirectory;

   }

   
   print OUTFILE "<hr size=7 width=75%>\n";
   if ($show_ads == 1) {

      print OUTFILE $adsbanner;

      print OUTFILE "<hr size=7 width=75%>\n";

   }
}
#########################################################################################

# Proboard Return
sub return_proboad {

   print "Content-type: text/html\n\n";

   print "<html><head><title>Message Added: $subject</title></head>\n";

   print "<body $body_eval><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/$firstpagename\">$title</a> ]</center>\n";

   print "</body></html>\n";

}


#####################################################################################

# Write to of the Form for One Page Only

sub print_page_numbers

{
   $pagename = $pageprefix . $countpages . $ext2;

   $pagenameminus = $pageprefix . ($countpages - 1) . $ext2;

   $pagenamemore = $pageprefix . ($countpages + 1) . $ext2;
   if($countpages == 1)

   {

      print OUTFILE "<center><B>Pages</B><BR>\n";

      for ($i = 1; $i <= $pages_needed; $i++)

      {

         if ($i == ($countpages + 10))

         {

            #Note qq? same as " but eliminates all \/ /" Stuff

            print OUTFILE qq? <a href="$pageprefix$i$ext2">[Next]</a> <b>$pages_needed Total Pages</b> \n ?;

         }

         # exit out of for loop

         last if ($i == ($countpages + 10));
         if ($i == $countpages)

         {

            print OUTFILE qq? [<a href="$pageprefix$i$ext2"><font size =+2>$i</font></a>]?;

         }

         else

         {

            print OUTFILE qq? [<a href="$pageprefix$i$ext2">$i</a>]?;

         }

      }

      print OUTFILE "</center>\n";

      print OUTFILE "<hr size=7 width=75%>\n";

   }

   elsif($countpages == $pages_needed)

   {

      if ($pages_needed > 10)

      {

         
          print OUTFILE "<center><B>Pages</B><BR>\n";

         #Note qq? same as " but eliminates all \/ /" Stuff

         $i = $pages_needed - 11;

         print OUTFILE qq? [<a href="$pageprefix$i$ext2">Previous</a>]?;

         
         for ($i = $pages_needed - 10; $i <= $pages_needed; $i++)

         {


            if ($i == $countpages)

            {

               print OUTFILE qq? [<a href="$pageprefix$i$ext2"><font size =+2>$i</font></a>]?;

            }

            else

            {

                  print OUTFILE qq? [<a href="$pageprefix$i$ext2">$i</a>]?;

            }

         }

         print OUTFILE "</center>\n";

         print OUTFILE "<hr size=7 width=75%>\n";

      }

      else

      {

          print OUTFILE "<center><B>Pages</B><BR>\n";

         for ($i = 1; $i <= $pages_needed; $i++)

         {

            if ($i == $countpages)

            {

               print OUTFILE qq? [<a href="$pageprefix$i$ext2"><font size =+2>$i</font></a>]?;

            }

            else

            {

                  print OUTFILE qq? [<a href="$pageprefix$i$ext2">$i</a>]?;

            }

         }

         print OUTFILE "</center>\n";

         print OUTFILE "<hr size=7 width=75%>\n";

      }

   }

   else

   {

      if ($pages_needed > 10)

      {

         
         print OUTFILE "<center><B>Pages</B><BR>\n";

         #Note qq? same as " but eliminates all \/ /" Stuff

         $i = $countpages - 1;

         print OUTFILE qq? [<a href="$pageprefix$i$ext2">Previous</a>]?;

         
         for ($i = $countpages; $i <= $pages_needed; $i++)

         {
            if ($i == ($countpages + 10))

            {

               #Note qq? same as " but eliminates all \/ /" Stuff

               print OUTFILE qq?<a href="$pageprefix$i$ext2">[Next]</a> $pages_needed Total Pages\n?;

            }

            # exit out of for loop

            last if ($i == ($countpages + 10));

         
            if ($i == $countpages)

            {

               print OUTFILE qq?[<a href="$pageprefix$i$ext2"><font size =+2>$i</font></a>]?;

            }

            else

            {

                  print OUTFILE qq?[<a href="$pageprefix$i$ext2">$i</a>]?;

            }

         }

         print OUTFILE "</center>\n";

         print OUTFILE "<hr size=7 width=75%>\n";

      }

      else

      {

         print OUTFILE "<center><B>Pages</B><BR>\n";

         for ($i = 1; $i <= $pages_needed; $i++)

         {

            if ($i == $countpages)

            {

               print OUTFILE qq?[<a href="$pageprefix$i$ext2"><font size =+2>$i</font></a>]?;

            }

            else

            {

                  print OUTFILE qq?[<a href="$pageprefix$i$ext2">$i</a>]?;

            }

         }

         print OUTFILE "</center>\n";

         print OUTFILE "<hr size=7 width=75%>\n";

      }

   }
}
 


# End Multi Board Additions

#########################################################################################