#!/usr/bin/perl
use strict;
#use lib 'C:\Inetpub\wwwroot\Sites\asp\echoingw\members\login.';
use lib '.';
use MyBoard;

# declare variables
my($sth, $rv, $f, $count);

my($limit);
# untaint the limit count
if ($cgi->param('start') =~ /^(\d+)$/) {
  $limit = $1;
} else {
  $limit = 0;
}

my $count = 0;

# how many msgs to display per page
my($maxcount) = 500;

&do_header($maintitle);

## BEGIN HEADER PAGE CONTENT ##
print qq(<p><table border="0" bgcolor="#EAEAFF" cellpadding="0" cellspacing="5" width="650" height="10"><tr><td>
<span style="font-face:Geneva,Arial,Helvetica;">

<p><b>Archives:</b><br>Welcome to the archives! Archived messages are listed below by title, date, time posted, and the number of comments.
<br><br>To view a message, simply click on the title and that message, (including comments), will be opened in a new window.
</span></tr></td></table>

<font face="Geneva, Arial, Helvetica" size="2">);

my($today) = "";

# delete the forum_id stuff in the query, 
# alter the date format to read "Thursday, May 8, 2002"
# and format the time into "12:30 PM"
# 
$sth = $dbh->prepare("select *,date_format(date, '%W, %M %e, %Y') as nicedate, date_format(date, '%l:%i %p') as nicetime from messages where thread_id=0 order by id desc limit $limit, $maxcount") or &dbdie;
$rv = $sth->execute;

while ($f = $sth->fetchrow_hashref) {
	
	my($asth) = $dbh->prepare("select count(*) from messages where thread_id=$f->{id}");
		$rv = $asth->execute;
	my($r) = $asth->fetchrow_array;
	my($responses);
	if ($r == 1) {
		$responses = "1 comment";
	} elsif ($r > 1) {
		$responses = "$r comments";
	} else {
		$responses = "0 comments";
	}

#   if ($f->{nicedate} ne $today) {
#      if ($today ne "") {
#         print qq(<hr>\n);
#      }
#      print qq(<p><b>Dateline: </b>$f->{nicedate}</p>\n);
#      $today = $f->{nicedate};
#   }

   # Convert hard returns to line returns in post.
   $f->{message} =~ s/\r/<br>/g;
   
   # Stip all HTML Tags and convert to &alt characters.
   $f->{message} =~ s/</&lt;/g;
   $f->{message} =~ s/</&gt;/g;

   # Convert <br> tag back to HTML.
   $f->{message} =~ s/&lt;br/<br/g;
   $f->{message} =~ s/&gt;br/<br/g;

   # Italics
   $f->{message} =~ s/\[i\]/\<i>/g;
   $f->{message} =~ s/\[\/i\]/\<\/i>/g;

   # Bold
   $f->{message} =~ s/\[b\]/\<b>/g;
   $f->{message} =~ s/\[\/b\]/\<\/b>/g;

   # Underline
   $f->{message}=~ s/\[u\]/\<u>/g;
   $f->{message} =~ s/\[\/u\]/\<\/u>/g;
   
   # Lists
   $f->{message}=~ s/\[ul\]/\<ul>/g;		# ul tags
   $f->{message} =~ s/\[\/ul\]/\<\/ul>/g;
   $f->{message}=~ s/\[ol\]/\<ol>/g;		# ol tags
   $f->{message} =~ s/\[\/ol\]/\<\/ol>/g;
   $f->{message}=~ s/\[li\]/\<li>/g;		# li tags
   $f->{message} =~ s/\[\/li\]/\<\/li>/g;

   # Handle URL's in post
   $f->{message} =~ s/\[url]+http:\/\/[^\s]+[a-z0-9\/\.]\[\/url]/<a href=\"$&\" target=\"_blank\" title=\"$&\">$&\[img]$imgdir\/go.gif[\/img\]<\/a>/g;
   $f->{message} =~s/\[url]//g;
   $f->{message} =~s/\[\/url]//g;
   
   # Handle images in post
   #   $f->{message} =~ s'<img src=[^\s]+[a-z0-9\/\.]'$&?"<img src=\"$&\">":""'eig;
   $f->{message} =~ s/\[img\]/\<img src=\"/g;
   $f->{message} =~ s/\[\/img\]/\"\ border=\"0\">/g;
   
print qq(<h1 align="left" style="font-size:12pt;"><hr><a href="message.cgi?$f->{id}" target="_blank"><b>$f->{subject}</b></a><br>
<span style="color:#0000FF;font-size:8pt;">Posted by $f->{author}: $f->{nicedate} ($f->{nicetime}) <font color="red"><< $responses >></font></span></h1><p>);

# smiliefy is optional...
   #print &smiliefy($f->{message}), qq(<p>\n);
   my($author) = &linkify($f->{author}, $f->{email});
   #print qq(<a id="title" href="message.cgi?$f->{id}#post"><< $responses >></a></font><p>\n);
   #$count = $count + 1;
   
	## COUNTS ##
   	$count++;

	# print the previous and next links
	#if ($count == 0) {
	#   print qq(No messages.<p>\n);
	#} else {
	#   my($prev);
	#   if ($limit > 0) {
	#       $prev = $limit - $maxcount;
	#       if ($prev < 0) {
	#	 $prev = 0;
	#       }
	#       print qq(<p><a href="archives.cgi&start=$prev"><font size="2"><b>previous $maxcount</b></font></a> <font size="2"><b>| </b></font> \n);
	#    }
	#   if ($count == $maxcount) {
	#      my($next);
	#      $next = $limit + $maxcount;
	#      print qq(<a id="title" href="archives.cgi?&start=$next"><font size="2"><b>next $maxcount</b></font></a>\n);
	#   }
	#}
	## COUNTS ##
}

&do_footer;