--- loncom/interface/lonmsg.pm 2000/10/31 22:31:37 1.5 +++ loncom/interface/lonmsg.pm 2001/02/06 16:51:24 1.6 @@ -10,7 +10,8 @@ # # 10/05 Gerd Kortemeyer) # -# 10/19,10/20,10/30 Gerd Kortemeyer +# 10/19,10/20,10/30, +# 02/06/01 Gerd Kortemeyer package Apache::lonmsg; @@ -30,8 +31,12 @@ sub packagemsg { $subject=~s/\>/\>\;/g; my $now=time; $msgcount++; - my $msgid=$now.'_'.$ENV{'user.name'}.'_'. - $ENV{'user.domain'}.'_'.$msgcount.'_'.$$; + my $partsubj=$subject; + $partsubj=&Apache::lonnet::escape($partsubj); + $partsubj=substr($partsubj,0,50); + my $msgid=&Apache::lonnet::escape( + $now.':'.$partsubj.':'.$ENV{'user.name'}.':'. + $ENV{'user.domain'}.':'.$msgcount.':'.$$); return $msgid, ''.$ENV{'user.name'}.''. ''.$ENV{'user.domain'}.''. @@ -69,6 +74,19 @@ sub unpackagemsg { return %content; } +# ======================================================= Get info out of msgid + +sub unpackmsgid { + my $msgid=shift; + my ($sendtime,$shortsubj,$fromname,$fromdomain)=split(/\:/, + &Apache::lonnet::unescape( + &Apache::lonnet::unescape($_))); + my %status=&Apache::lonnet::get('email_status',$msgid); + if ($status{$msgid}=~/^error\:/) { $status{$msgid}=''; } + unless ($status{$msgid}) { $status{$msgid}='new'; } + return ($sendtime,$shortsubj,$fromname,$fromdomain,$status{$msgid}); +} + # =============================== Automated message to the author of a resource sub author_res_msg { @@ -177,11 +195,56 @@ sub handler { return OK if $r->header_only; +# --------------------------- Get query string for limited number of parameters + + map { + my ($name, $value) = split(/=/,$_); + $value =~ tr/+/ /; + $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; + if (($name eq 'display') || ($name eq 'replyto') || + ($name eq 'forward') || ($name eq 'mark')) { + unless ($ENV{'form.'.$name}) { + $ENV{'form.'.$name}=$value; + } + } + } (split(/&/,$ENV{'QUERY_STRING'})); + # --------------------------------------------------------------- Render Output $r->print('EMail and Messaging'); $r->print(''); $r->print('

EMail

'); + if ($ENV{'form.display'}) { + } elsif ($ENV{'form.replyto'}) { + } elsif ($ENV{'form.forward'}) { + } elsif ($ENV{'form.mark'}) { + } else { + $r->print(''. + ''); + map { + my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)= + &Apache::lonmsg::unpackmsgid($_); + if ($status eq 'new') { + $r->print(''); + } elsif ($status eq 'read') { + $r->print(''); + } elsif ($status eq 'replied') { + $r->print(''); + } else { + $r->print(''); + } + $r->print(''); + } sort split(/\&/,&Apache::lonnet::reply('keys:'. + $ENV{'user.domain'}.':'. + $ENV{'user.name'}.':nohist_email', + $ENV{'user.home'})); + $r->print('
 DateUsernameDomainSubjectStatus
Open'.localtime($sendtime).''. + $fromname.''.$fromdomain.''. + &Apache::lonnet::unescape($shortsubj).''. + $status.'
'); + + } $r->print(''); return OK;