#!/usr/local/bin/perl

open (F,".forumconfig");
@data=<F>;
close (F);

chop (@data);
($basedir, $baseurl, $cgi_url, $mesgdir, $datafile, $mesgfile, $faqfile, $ext, $passwd_file, $title) = split(/:/, join(':', @data));

if ($ENV{'REQUEST_METHOD'} eq "GET") {          # Using GET..
        $FORM_DATA = $ENV{'QUERY_STRING'};      # Save data to FORM_DATA
} else {                                        # Using POST..
        $LENGTH = $ENV{'CONTENT_LENGTH'};       # How much data to read?
        if ($LENGTH > "32768") {
                die "major network spam, stopped";
        }
        while ($LENGTH--) {     
                $C = getc(STDIN);               # Get next character
                if ($C eq "=" || $C eq "&") {   # Check for start/end of value
                        $START="0";
                } else {
                        $START++;
                }
                if ($START <= "17000") {        # 17k should be enough!
                        $FORM_DATA .= $C;       # Save data to FORM_DATA
                }
        }
}

# Parse data into NAME=VALUE pairs and jam into an associative array

foreach (split(/&/, $FORM_DATA)) {
        ($NAME, $VALUE) = split(/=/, $_);
        $NAME =~ s/\+/ /g;
        $NAME =~ s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
        $VALUE =~ s/\+/ /g;
        $VALUE =~ s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
        # Find Unique name
        $NUM="0";
        while ($MYDATA{$NAME} ne "") {
                $NUM++;
                $NAME =~ s/\.([0-9]+$)|$/\.$NUM/;
        }
        # Store NAME=VALUE pair
        $MYDATA{$NAME} = $VALUE;
}

## here we go

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

open (F, "Resources/main_header.html");
while (<F>)
   {
   print;
   }

## up and down buttons

$pagenum=1;
if ($MYDATA{'page'})
   {
   $pagenum=$MYDATA{'page'};
   }

$count=0;
$maxcount = $pagenum*250;
$mincount = ($pagenum-1)*20;
$more=0;
$ulcount = 0;
$start=0;

if ($pagenum>1)
   {
   $gotopage= $pagenum - 1;
   print "<p><a href=\"index.pl?page=$gotopage\">\n";
   print "<font size=5><i>Previous 250 Posts...</i></font></a><p>\n";   
   }

print "<ul>\n";
open (F,"post_index.html");
while(<F>)
   {
   $printed=$_;
   if ($printed =~ /--top:/) { ++$count; }
   if ($count > $maxcount)
      {
      if ($ulcount>0) { print $printed; }
      while ($ulcount>0)
	  {	      
	      $printed=<F>;
              if ($printed =~ /^<ul>/) { ++$ulcount; }
              if ($printed =~ /^<\/ul>/) { --$ulcount; }
              print $printed;
	  }

      $more=1;
      last;
      } 
   if ($printed =~ /^<ul>/) { ++$ulcount; }
   if ($printed =~ /^<\/ul>/) { --$ulcount; }
   if (($count>$mincount) && (!$ulcount) && ($printed =~ /--top:/)) { $start=1; }
   if ($start) { print "$printed"; }
   }
close(F);

print "</ul></ul></ul></ul><p>\n";

if ($more>0)
   {
   $gotopage= $pagenum + 1;
   print "<p><a href=\"index.pl?page=$gotopage\">\n";
   print "<font size=5><i>Next 250 Posts...</i></font></a><p>\n";   
   }


print <<EOF;
<b>NOTE & DISCLAIMER</b>: <i>The Lycaeum exists to foster the free
exchange of information on a subject that is taboo in today's world. 
However, there are limits to what we can discuss.  No person shall post
anything which discusses ongoing or future illegal activity, or which can
be construed as discussing ongoing or future illegal activity.  A simple
guideline for appropriate posts is to always keep them impersonal and
timeless.  Posts which can be construed as indicating that a particular
person even if anonymous is engaged in illegal activity will be deleted
and the offending member removed.  Thank you.  </i>
<p>
EOF

open (F, "Resources/main_footer.html");
while (<F>)
   {
   print;
   }
close (F);