--- loncom/interface/lonmsg.pm 2000/10/20 18:06:08 1.4
+++ loncom/interface/lonmsg.pm 2000/10/31 22:31:37 1.5
@@ -10,7 +10,7 @@
#
# 10/05 Gerd Kortemeyer)
#
-# 10/19,10/20 Gerd Kortemeyer
+# 10/19,10/20,10/30 Gerd Kortemeyer
package Apache::lonmsg;
@@ -18,6 +18,7 @@ use strict;
use Apache::lonnet();
use vars qw($msgcount);
use HTML::TokeParser;
+use Apache::Constants qw(:common);
# ===================================================================== Package
@@ -122,15 +123,21 @@ sub user_crit_msg {
sub user_crit_received {
my $message=shift;
my %contents=&unpackagemsg($message);
- &Apache::lonnet::log('Received critical message '.$contents{'msgid'});
- &user_normal_msg($contents{'sendername'},$contents{'senderdomain'},
+ my $status='rec: '.
+ &user_normal_msg($contents{'sendername'},$contents{'senderdomain'},
'Receipt: '.$ENV{'user.name'}.' at '.$ENV{'user.domain'},
'User '.$ENV{'user.name'}.' at '.$ENV{'user.domain'}.
' acknowledged receipt of message "'.
$contents{'subject'}.'" dated '.$contents{'time'}.".\n\n"
.'Message ID: '.$contents{'msgid'});
- &Apache::lonnet::put('nohist_email',$contents{'msgid'} => $message);
- &Apache::lonnet::del('critical',$contents{'msgid'});
+ $status.=' trans: '.
+ &Apache::lonnet::put('nohist_email',$contents{'msgid'} => $message);
+ $status.=' del: '.
+ &Apache::lonnet::del('critical',$contents{'msgid'});
+ &Apache::lonnet::log($ENV{'user.domain'},$ENV{'user.name'},
+ $ENV{'user.home'},'Received critical message '.
+ $contents{'msgid'}.
+ ', '.$status);
}
# ======================================================== Normal communication
@@ -158,6 +165,27 @@ sub user_normal_msg {
return $status;
}
+# ===================================================================== Handler
+
+sub handler {
+ my $r=shift;
+
+# ----------------------------------------------------------- Set document type
+
+ $r->content_type('text/html');
+ $r->send_http_header;
+
+ return OK if $r->header_only;
+
+# --------------------------------------------------------------- Render Output
+
+ $r->print('EMail and Messaging');
+ $r->print('');
+ $r->print('EMail
');
+ $r->print('');
+ return OK;
+
+}
# ================================================= Main program, reset counter
sub BEGIN {