#########################################################################################
#########################################################################################
# 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 "</body></html>\n";
}

#####################################################################################
# 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";

   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>\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>\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>\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>\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>\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
#########################################################################################
#########################################################################################