print "\n$mb_title\n\n"; print "
$mb_title

\n"; print "By the way, if you didn't notice, this is under construction
\n"; print "\n"; foreach( $msg_num = $msg_count -1; $msg_num >= 0; $msg_num--){ foreach( $i = 0; $i < @messages; $i++){ $sth = $dbh->prepare("select $messages[$i] from messages limit $msg_num, 1"); $sth->execute; $messageval[$i] = $sth->fetchrow_array; $sth->finish; }; $from = $messageval[0]; $date = $messageval[1]; $subject = $messageval[2]; $message = $messageval[3]; $msg_id = $messageval[4]; $message =~s/(\r\n|\n\r|\r)/
\n/g; $message =~s/\n{3,}/\n\n/g; print "\n"; }; print "
\n"; print "Date: $date
\nFrom: $from
\nSubject: $subject
\nMessage:
\n$message
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; $message = $messageval[3]; $message =~s/(\r\n|\n\r|\r)/\n/g; print "\n"; print "\n
"; print "
\n"; print "\n\n"; #### Date: 26 Feb 2001 23:50:30 -0000
From: merlin@ethernaut.net
Subject: this is a test with lynx
Message:
I'm testing lynx



oh yeah....by the way....



yamama