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

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

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

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

&do_header($maintitle);

my($today) = "";

$count = 0;

$sth = $dbh->prepare("select *,date_format(date, '%a, %d %b %Y %H:%I:%S EST') as nicedate from messages where thread_id=0 order by date 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";
   }

   # 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(<item>
   <title>$f->{subject}</title>
   <link>$url2/message.cgi?$f->{id}</link>
   <guid>$url2/message.cgi?$f->{id}</guid>
   <pubDate>$f->{nicedate}</pubDate>
   <description>Posted by $f->{author} - $responses</description>
   </item>
   );

   $count = $count + 1;
}

&do_footer;