ModPerl::Util::exit: (120000) exit was called at (eval 1571) 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";