# The LearningOnline Network # Communicate # # (Internal Server Error Handler # # (Login Screen # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) # # 3/1/1 Gerd Kortemeyer) # # 3/1,2/6 Gerd Kortemeyer # package Apache::loncommunicate; use strict; use Apache::Constants qw(:common); use Apache::lonmsg(); sub handler { my $r = shift; $r->content_type('text/html'); $r->send_http_header; return OK if $r->header_only; # # Start document # $r->print(< The LearningOnline Network with CAPA

Communicate

New Messages

ENDDOCUMENT map { my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)= &Apache::lonmsg::unpackmsgid($_); if ($status eq 'new') { $r->print( ''); } } sort split(/\&/,&Apache::lonnet::reply('keys:'. $ENV{'user.domain'}.':'. $ENV{'user.name'}.':nohist_email', $ENV{'user.home'})); $r->print( '

	Date	Username	Domain	Subject
Open	'.localtime($sendtime).'	'. $fromname.'	'.$fromdomain.'	'. &Apache::lonnet::unescape($shortsubj).'

All Messages'); return OK; } 1; __END__