ModPerl::Util::exit: (120000) exit was called at (eval 162) line 23
print qq||; use LitLink::Login qw(IsLoggedIn DBConnect); use LitLink::Compose; use CGI; my $dbh = DBConnect(); my $cgi = new CGI; my $login_required = 1; # set to 1 for yes, 0 for no. my ($user_id, $content) = IsLoggedIn($cgi, $dbh, $login_required); my ($eli) = $cgi->param('eli') || ""; my $referer = $ENV{'HTTP_REFERER'}; # Create the private message. LitLink::Compose::CreatePrivateMessage($dbh, $user_id, $eli); # Time to redirect. ### ### Commented out 8/18/2010 JLH - Chrome caches redirect permanently! It's a 301, so why not? ### print qq(); print qq(); exit 0; # my $redirect_url = 'http://' . $ENV{HTTP_HOST} . '/message_center/compose.aspl?return_to=' . $referer; # print "Status: 302 Moved Temporarily\n"; # print "Location: $redirect_url\n"; # print "\n"; #print "referer is [$referer]
\n"; #print "eli is [$eli]
\n";