ModPerl::Util::exit: (120000) exit was called at (eval 339) line 19BEGIN failed--compilation aborted at (eval 339) line 25.
print qq||; our $dbh; # "our" makes it a persistant global variable. BEGIN { $| = 1; # No output buffering. $ENV{PATH}=''; use strict; use DBI; use KET::PerlEx; use LitLink::Login; use LitLink::MessageCenter; use CGI; # ReOpenDatabase allows for persistent connections. if (!ReOpenDatabase(\$dbh, "DBI:ODBC:newlitlink_edit")) { warn "ReOpenDatabase didn't work.\n"; exit 1; # Will trigger PerlEx to reload channel. } $dbh->{LongReadLen} = 16000; # This should give them more than enough. $dbh->{LongTruncOk} = 0; # We need to hear about this. } my $cgi = new CGI; my $content = ""; my $username = ""; my $fname = ""; my $mname = ""; my $lname = ""; my $zip = ""; my $session_last_update = ""; my $user_type = ""; my $session_id = undef; my $mode_line = ""; my $get_local = ""; my $email_allowed = ""; my $agreed_to_email_terms = ""; my $action = $cgi->param('action') || "show_inbox"; my $page = $cgi->param('page') || "1"; my $mid = $cgi->param('mid') || undef; my $txt_sql = ""; my $sth; my %message = ( 'login_expired' => qq(

Login expired

Your login has expired. Please return to the Login page and log in again.

), 'not_logged_in' => qq(

Not logged in

Sorry, this page requires you to be logged in. Please return to the Login page and log in.

If you are not a LiteracyLink user, you can register. It's fast, easy, and free!

) ); $session_id = LitLink::Login::IsLoggedIn($cgi); $mode_line = LitLink::Login::MakeModeline($dbh, $session_id); if ($session_id) { # check login time vs. current time ($username, $fname, $mname, $lname, $zip, $session_last_update, $user_type, $local_station, $email_allowed, $agreed_to_email_terms) = LitLink::Login::UserInfoExtended($dbh, $session_id); # error checking should happen now $get_local = LitLink::Login::MakeGetLocal($dbh, $session_id); if ($action eq "show_inbox") { $content .= LitLink::MessageCenter::DisplayInbox($dbh, $session_id, $page); } elsif ($action eq "show_saved") { $content .= LitLink::MessageCenter::DisplaySaved($dbh, $session_id, $page); } elsif ($action eq "show_trash") { $content .= LitLink::MessageCenter::DisplayTrash($dbh, $session_id, $page); } elsif ($action eq "view" && $mhid) { $content .= LitLink::MessageCenter::ViewMessage($dbh, $session_id, $mhid); } } else { $content = $message{'not_logged_in'} } print qq| Message Center: In Box
|; print $mode_line; print qq| |; print $get_local; print qq| pbs
navigationexitloginsitemapsitemaphelp
section header graphic
|; print $content; print qq|

---

PartnersKentuckyKETNCALPBS

Valid HTML 4.01! Bobby WorldWide Approved 508

|;