version 1.4, 2000/10/20 18:06:08
|
version 1.5, 2000/10/31 22:31:37
|
Line 10
|
Line 10
|
# |
# |
# 10/05 Gerd Kortemeyer) |
# 10/05 Gerd Kortemeyer) |
# |
# |
# 10/19,10/20 Gerd Kortemeyer |
# 10/19,10/20,10/30 Gerd Kortemeyer |
|
|
package Apache::lonmsg; |
package Apache::lonmsg; |
|
|
Line 18 use strict;
|
Line 18 use strict;
|
use Apache::lonnet(); |
use Apache::lonnet(); |
use vars qw($msgcount); |
use vars qw($msgcount); |
use HTML::TokeParser; |
use HTML::TokeParser; |
|
use Apache::Constants qw(:common); |
|
|
# ===================================================================== Package |
# ===================================================================== Package |
|
|
Line 122 sub user_crit_msg {
|
Line 123 sub user_crit_msg {
|
sub user_crit_received { |
sub user_crit_received { |
my $message=shift; |
my $message=shift; |
my %contents=&unpackagemsg($message); |
my %contents=&unpackagemsg($message); |
&Apache::lonnet::log('Received critical message '.$contents{'msgid'}); |
my $status='rec: '. |
&user_normal_msg($contents{'sendername'},$contents{'senderdomain'}, |
&user_normal_msg($contents{'sendername'},$contents{'senderdomain'}, |
'Receipt: '.$ENV{'user.name'}.' at '.$ENV{'user.domain'}, |
'Receipt: '.$ENV{'user.name'}.' at '.$ENV{'user.domain'}, |
'User '.$ENV{'user.name'}.' at '.$ENV{'user.domain'}. |
'User '.$ENV{'user.name'}.' at '.$ENV{'user.domain'}. |
' acknowledged receipt of message "'. |
' acknowledged receipt of message "'. |
$contents{'subject'}.'" dated '.$contents{'time'}.".\n\n" |
$contents{'subject'}.'" dated '.$contents{'time'}.".\n\n" |
.'Message ID: '.$contents{'msgid'}); |
.'Message ID: '.$contents{'msgid'}); |
&Apache::lonnet::put('nohist_email',$contents{'msgid'} => $message); |
$status.=' trans: '. |
&Apache::lonnet::del('critical',$contents{'msgid'}); |
&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 |
# ======================================================== Normal communication |
Line 158 sub user_normal_msg {
|
Line 165 sub user_normal_msg {
|
return $status; |
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('<html><head><title>EMail and Messaging</title></head>'); |
|
$r->print('<body bgcolor="#FFFFFF">'); |
|
$r->print('<h1>EMail</h1>'); |
|
$r->print('</body></html>'); |
|
return OK; |
|
|
|
} |
# ================================================= Main program, reset counter |
# ================================================= Main program, reset counter |
|
|
sub BEGIN { |
sub BEGIN { |