#!/usr/bin/perl

######################################################
##                                                  ##
##  AreaBoard                                       ##
##                                                  ##
##  Area-based message board system                 ##
##                                                  ##
##  (c) 2000, Uplink Productions                    ##
##      uplink@uplink.com.au                        ##
##      www.uplink.com.au                           ##
##                                                  ##
##  Australian-made software.                       ##
##                                                  ##
##  See Readme.txt for installation/setup details.  ##
##                                                  ##
######################################################

#------------ do not edit below this line ------------

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

open(INF,"areaboard.ini") or &ini;
$home = <INF>;
$fc = <INF>;
close(INF);

open(INF,"msgheader.txt");
@lh = <INF>;
close(INF);

foreach $lh (@lh) { print $lh }

($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) = 
	localtime(time);
$longyr = $year + 1900;
$fixmo = $mon + 1;
if ($isdst == 1) {
	$tz = "CDT";
} else {
	$tz = "CST";
}
$yr2 = substr($longyr,2,2);

$date2 = "$mday/$fixmo/$longyr";


@first = ();
@reply = ();

opening:
open(INF,"areas.txt") or retry();
	@areasl1 = <INF>;
close(INF);

$loop = 0;

foreach $temp (@areasl1) {
	$areax = $areax + 1;
	if ($areax <= 10) { push(@areas,"$temp"); }
}

opening2:
open(INF,"msgindex.txt") or retry2();
	@msgs = <INF>;
close(INF);

#if (substr(@msgs[0],0,3) eq "%%%") { shift(@msgs) }

foreach $iii (@msgs) {
	$total = $total + 1;
	$test = substr($iii,0,6);
	if ($test eq "first|") { push(@first,"$iii|$total"); }
	if ($test eq "reply|") { push(@reply,"$iii|$total"); }
}

print "<b>Forum oversikt</b><br><Br>";
print "<table width=700>";
print "<tr valign=top><td width=400><font face=\"Tahoma, Verdana, Arial\" color=$fc size=2><b><UL>Emne</UL><br></td><td width=200><font face=\"Tahoma, Verdana, Arial\" color=$fc size=2><b>meldinger/svar<br><br></td></tr>";

foreach $ex1 (@areas) {
	($acode,$aname) = split(/\|/,$ex1);

$ldate = "Ingen meldinger.";

	foreach $dtc (@msgs) {
		($rtype,$rarea,$rdate,$rtitle,$rname,$rtime,$rcounter) = split(/\|/,$dtc);
		if ($rarea eq $acode) { $ldate = $rdate }
	}


$ex22 = 0;
$ff = 0;
$rr = 0;

	foreach $ex2 (@first) {
		($rtype,$rarea,$rdate,$rtitle,$rname,$rtime,$rcounter) = split(/\|/,$ex2);
		if ($rarea eq $acode) { $ex22 = $ex22 + 1; $ff = $ff + 1 }
	}
	foreach $ex2 (@reply) {
		($rtype,$rarea,$rdate,$rtitle,$rname,$rtime,$rcounter) = split(/\|/,$ex2);
		if ($rarea eq $acode) { $ex22 = $ex22 + 1; $rr = $rr + 1 }
	}

$ex23 = $ex22;
#if ($ex22 > 50) { $ex22 = 50}
print "<tr valign=top><td><font face=\"Tahoma, Verdana, Arial\" color=$fc size=2><font face=\"Tahoma, Verdana, Arial\" color=$fc size=2><UL><LI><a href=msgsum.pl?area=$acode><b>$aname</a></UL><br></td><td><font face=\"Tahoma, Verdana, Arial\" color=$fc size=2>$ff/$rr<br></td></tr>";

}

print "</table>";

print "</td></tr>";

print "<tr><td></td><td>";

print "<IMG SRC=../../grafikk/faner/bunn.jpg WIDTH=720 HEIGHT=44 BORDER=0></CENTER></TD></TR></TABLE>";

print "<center><P>";

print "<font size=2 face=arial,helvetica color=#C0C0C0>";

print "<B>Copyright 20&copy;00 Samliv.net</B><BR>";

print "Samliv.net, Postboks 76, 3351 Prestfoss";



print "</font><P>";

exit;

          sub dienice {
              my($errmsg) = @_;
              print "<h2>Error</h2>\n";
              print "$errmsg<p>\n";
              print "</body></html>\n";
              exit;
          }

sub retry { goto("opening") }
sub retry2 { goto("opening2") }
sub ini { print "Error!  Can not open AreaBoard config file!"; exit; }