# 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,7/27,8/3,8/15, # 11/5/01 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

ENDDOCUMENT my $st='

'; my $en='

'; $r->print('

'. $st.'All Messages'.$en.'

'. $st.'Critical Messages'.$en.'

'. $st.'Send message to user(s)'.$en ); if (($ENV{'request.course.id'}) && (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { $r->print( '

'.$st. 'Broadcast message to course'.$en. '

'.$st. 'Upload messages to course'.$en); } $r->print(<New Messages ENDTABLE 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).'
'); return OK; } 1; __END__