#!/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;
}

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

&do_header($maintitle);
## BEGIN HEADER PAGE CONTENT ##

my($today) = "";

$count = 0;

# 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 and approved=1 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";
   }
   
#   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};
#   }

   print qq(<h1 align="left" style="font-size:12pt; font-weight:bold"><hr>$f->{subject}<br>
<span style="color:#0000FF;font-size:8pt;font-weight:normal">Posted by $f->{author}: $f->{nicedate} ($f->{nicetime}) [MSG ID: $f->{id}]</font></span></h1>\n);

   # 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;
   
    # Convert <embed> tag back to HTML.
    #$f->{message} =~ s/&lt;embed/<embed/g;
    #$f->{message} =~ s/&gt;embed/<embed/g;
    
    # Convert <object> tag back to HTML.
    #$f->{message} =~ s/&lt;object/<object/g;
    #$f->{message} =~ s/&gt;object/<object/g;
    
    # Handle youtube in post
    $f->{message} =~s/\[youtube]+[^\s]+[a-z0-9\/\.]\[\/youtube]/<object width=\"425\" height=\"344\"\><param name=\"movie\" value=\"http:\/\/www.youtube.com\/v\/$&\"><\/param\><param name=\"allowFullScreen\" value=\"true\"><\/param><param name=\"allowscriptaccess\" value=\"always\"><\/param\><embed src=\"http:\/\/www.youtube.com\/v\/$&\" type=\"application\/x-shockwave-flash\" allowscriptaccess=\"always\" allowfullscreen=\"true\" width=\"425\" height=\"344\"><\/embed><\/object>/g;
    $f->{message} =~s/\[youtube]//g;
    $f->{message} =~s/\[\/youtube]//g;
    
    # Handle hulu in post
    $f->{message} =~s/\[hulu]+[^\s]+[a-z0-9\/\.\A-Z]\[\/hulu]/<object width=\"512\" height=\"296\"><param name=\"movie\" value=\"http:\/\/www.hulu.com\/embed\/$&\"><\/param><param name=\"allowFullScreen\" value=\"true\"><\/param><param name=\"allowscriptaccess\" value=\"always\"><\/param\><embed src=\"http:\/\/www.hulu.com\/embed\/$&\" type=\"application\/x-shockwave-flash\" allowFullScreen=\"true\"  width=\"512\" height=\"296\"><\/embed><\/object>/g;
    $f->{message} =~s/\[hulu]//g;
    $f->{message} =~s/\[\/hulu]//g;

    # Handle myspace in post
    $f->{message} =~s/\[myspace]+[^\s]+[a-z0-9\/\.\A-Z]\[\/myspace]/<object width=\"425px\" height=\"360px\"><param name=\"allowFullScreen\" value=\"true\"\/><param name=\"wmode\" value=\"transparent\"\/><param name=\"movie\" value=\"http:\/\/mediaservices.myspace.com\/services\/media\/embed.aspx\/m=$&,t=1,mt=video\"\/><embed src=\"http:\/\/mediaservices.myspace.com\/services\/media\/embed.aspx\/m=$&,t=1,mt=video\" width=\"425\" height=\"360\" allowFullScreen=\"true\" type=\"application\/x-shockwave-flash\" wmode=\"transparent\"><\/embed><\/object>/g;
    $f->{message} =~s/\[myspace]//g;
    $f->{message} =~s/\[\/myspace]//g;

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

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="index.cgi?start=$prev">&lt; Previous $maxcount</a></p>\n);
    }
    if ($count == $maxcount) {
      my($next);
      $next = $limit + $maxcount;
      print qq(<p><a id="title" href="index.cgi?start=$next">Next $maxcount &gt;</a></p>\n);
    }
}
&do_footer;