Where is Bin Laden? Message Board

#!/usr/bin/perl -Tw ### msgboard.cgi use CGI qw/:standard/; use CGI::Cookie; require "/home/ericll75/www/common/dbcommon.sub"; require "/home/ericll75/www/common/eltaint.sub"; BEGIN { use CGI::Carp qw(carpout); open(LOG, ">>/home/ericll75/www/steepturns.com/binladen/msgs2001-2002/msgboard.log") or die("Unable to open msgboard.log: $!\n"); carpout(LOG); } use CGI::Carp qw(fatalsToBrowser); $CGI::POST_MAX = 1024; print "Content-Type: text/html\n\n"; my $ii; my $key; my $value; my $ThisGroup; my $LastMessage; my $ThisMessage; my @both; my @temp; my %cookies = fetch CGI::Cookie; $ThisMessage = elonlynum(param('ThisMsg')); $LastMessage = elonlynum(param('LastMsg')); unless($ThisMessage) { if (length($cookies{'LastMessage1'}) > 0) { $LastMessage = $cookies{'LastMessage1'}->value; $ThisMessage = $LastMessage; } if ($ThisMessage eq '/' || $ThisMessage eq '') { $ThisMessage = 1; } } # while (($key,$value) = each(%cookies)) { # if ($key =~ m/LastMessage/) { # $LastMessage = $value; # $LastMessage = substr $LastMessage,12; # @temp = split /;/,$LastMessage; # $LastMessage = $temp[0]; # $ThisMessage = $temp[0]; # } # } # unless ($ThisMessage) { # $ThisMessage = 1; # } #} open (MsgMax, "/home/ericll75/www/steepturns.com/binladen/msgs2001-2002/MsgBinLaden1.max") || croak ("Cannot open message max data file!"); flock(MsgMax,1) || croak ("Cannot flock message max data file!"); $TotalMsgs = ; #The second line of PicScores tells total # of pics whose data is stored in that file. close (MsgMax) || croak ("Cannot close message max data file!"); chomp($TotalMsgs); if ($ThisMessage > $TotalMsgs || $ThisMessage < 1) { print "That message does not exist. You may have reached the last message. (error 1)
"; if ($LastMessage <= $TotalMsgs && $LastMessage >= 1) { $ThisMessage = $LastMessage; } else { $ThisMessage = $TotalMsgs; } } my $jj; &GetMsg; if ($jj==0) { #If that message number does not exist, get the #last message viewed instead. $ThisMessage = $LastMessage; &GetMsg; print "That message does not exist. You may have reached the last message.
"; } my $MsgNum; my $PostDate; my $FromName; my $ToName; my $MsgSubject; my $ReplyOf; my @FollowUps; my $MsgContent; my $ThPrev; my $ThNext; foreach (@$ThisGroup) { $MsgNum = @$_[0]; $PostDate = @$_[1]; $FromName = @$_[2]; $ToName = @$_[3]; $MsgSubject = @$_[4]; $ReplyOf = @$_[5]; @FollowUps = split(/\^/, @$_[6]); $MsgContent = @$_[7]; $ThPrev = @$_[9]; $ThNext = @$_[10]; } if (length($MsgContent) > 3072) { $MsgContent = substr($MsgContent,0,3072); } $MsgContent =~ s/\r\n/\/g; #Change return + newline to
. #----------------------------------------------- print qq` Where is Bin Laden? Message Board Return to HOME

Where is Bin Laden?

`; if ($ReplyOf) { print qq` `; } if (scalar(@FollowUps) > 0) { print qq` "; } print qq`

In Reply to :	$ReplyOf
Follow-Ups :	`; print qq`$FollowUps[0]`; for ($ii=1;$ii<=$#FollowUps;$ii++) { print qq`, $FollowUps[$ii]`; } print "

Indexes:

By Date

By Thread

`; # # # # print qq`---

`; exit; #--------------------------------------------- sub GetMsg { #Pull a message from the database, and check for errors. &CreateDBConnection; $SQL = "SELECT * FROM MsgBinLaden1 WHERE MsgNum = $ThisMessage"; &DoSQL; $ThisGroup = $sth->fetchall_arrayref; $dbh->disconnect; if(defined($str)) { #If they tried to retrieve a non-existant message, then... &CreateDBConnection; $SQL = "SELECT * FROM MsgBinLaden1 WHERE MsgNum = $LastMessage"; &DoSQL; $ThisGroup = $sth->fetchall_arrayref; $dbh->disconnect; if(defined($str)) { &CreateDBConnection; $SQL = "SELECT * FROM MsgBinLaden1 WHERE MsgNum = 1"; &DoSQL; $ThisGroup = $sth->fetchall_arrayref; $dbh->disconnect; if (defined($str)) { print "MySQL Error! $str"; exit; } } } $jj = 0; foreach (@$ThisGroup) { $jj ++; } }