[BACK]Return to lonmsg.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmsg.pm between versions 1.26 and 1.29

version 1.26, 2001/12/19 17:17:46 version 1.29, 2002/03/18 18:38:04
Line 39 Line 39
 # 07/27 Guy Albertelli  # 07/27 Guy Albertelli
 # 07/27,07/28,07/30,08/03,08/06,08/08,08/09,08/10,8/13,8/15,  # 07/27,07/28,07/30,08/03,08/06,08/08,08/09,08/10,8/13,8/15,
 # 10/1,11/5 Gerd Kortemeyer  # 10/1,11/5 Gerd Kortemeyer
   # YEAR=2002
   # 1/1,3/18 Gerd Kortemeyer
   #
 package Apache::lonmsg;  package Apache::lonmsg;
   
 use strict;  use strict;
Line 62  sub packagemsg { Line 64  sub packagemsg {
     $msgcount++;      $msgcount++;
     my $partsubj=$subject;      my $partsubj=$subject;
     $partsubj=&Apache::lonnet::escape($partsubj);      $partsubj=&Apache::lonnet::escape($partsubj);
     $partsubj=substr($partsubj,0,50);  
     my $msgid=&Apache::lonnet::escape(      my $msgid=&Apache::lonnet::escape(
            $now.':'.$partsubj.':'.$ENV{'user.name'}.':'.             $now.':'.$partsubj.':'.$ENV{'user.name'}.':'.
            $ENV{'user.domain'}.':'.$msgcount.':'.$$);             $ENV{'user.domain'}.':'.$msgcount.':'.$$);
Line 276  sub discourse { Line 277  sub discourse {
 <input type=button onClick="uncheckall()" value="Check for None">  <input type=button onClick="uncheckall()" value="Check for None">
 <p>  <p>
 ENDDISHEADER  ENDDISHEADER
     map {      foreach (sort keys %courselist) {
         my ($end,$start)=split(/\:/,$courselist{$_});          my ($end,$start)=split(/\:/,$courselist{$_});
         my $active=1;          my $active=1;
         if (($end) && ($now>$end)) { $active=0; }          if (($end) && ($now>$end)) { $active=0; }
Line 295  ENDDISHEADER Line 296  ENDDISHEADER
                       $reply{'generation'}.                        $reply{'generation'}.
                       ' ('.$_.') '.$section);                        ' ('.$_.') '.$section);
         }           } 
     } sort keys %courselist;      }
 }  }
   
 # ==================================================== Display Critical Message  # ==================================================== Display Critical Message
Line 306  sub discrit { Line 307  sub discrit {
          '<form action=/adm/email method=post>'.           '<form action=/adm/email method=post>'.
          '<input type=hidden name=confirm value=true>');           '<input type=hidden name=confirm value=true>');
       my %what=&Apache::lonnet::dump('critical');        my %what=&Apache::lonnet::dump('critical');
       map {        foreach (sort keys %what) {
           my %content=&unpackagemsg($what{$_});            my %content=&unpackagemsg($what{$_});
           $content{'message'}=~s/\n/\<br\>/g;            $content{'message'}=~s/\n/\<br\>/g;
   $r->print('<hr>From: <b>'.$content{'sendername'}.'@'.    $r->print('<hr>From: <b>'.$content{'sendername'}.'@'.
Line 314  sub discrit { Line 315  sub discrit {
                     ')<br><blockquote>'.$content{'message'}.'</blockquote>'.                      ')<br><blockquote>'.$content{'message'}.'</blockquote>'.
   '<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'.    '<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'.
  '<input type=submit name="reprec_'.$_.'" value="Confirm Receipt and Reply">');   '<input type=submit name="reprec_'.$_.'" value="Confirm Receipt and Reply">');
       } sort keys %what;        }
       $r->print(        $r->print(
           '<input type=hidden name="displayedcrit" value="true"></form>');            '<input type=hidden name="displayedcrit" value="true"></form>');
 }  }
Line 354  ENDREPLY Line 355  ENDREPLY
   
 sub disall {  sub disall {
     my $r=shift;      my $r=shift;
     $r->print(       $r->print(<<ENDDISHEADER);
      '<h1>Display All Messages</h1><form method=post action="/adm/email">'.  <script>
       function checkall() {
    for (i=0; i<document.forms.disall.elements.length; i++) {
               if 
             (document.forms.disall.elements[i].name.indexOf('delmark_')==0) {
         document.forms.disall.elements[i].checked=true;
               }
           }
       }
   
       function uncheckall() {
    for (i=0; i<document.forms.disall.elements.length; i++) {
               if 
             (document.forms.disall.elements[i].name.indexOf('delmark_')==0) {
         document.forms.disall.elements[i].checked=false;
               }
           }
       }
   </script>
   ENDDISHEADER
      $r->print(
    '<h1>Display All Messages</h1><form method=post name=disall '.
    'action="/adm/email">'.
      '<table border=2><tr><th colspan=2>&nbsp</th><th>Date</th>'.       '<table border=2><tr><th colspan=2>&nbsp</th><th>Date</th>'.
      '<th>Username</th><th>Domain</th><th>Subject</th><th>Status</th></tr>');       '<th>Username</th><th>Domain</th><th>Subject</th><th>Status</th></tr>');
     map {      foreach (sort split(/\&/,&Apache::lonnet::reply('keys:'.
    $ENV{'user.domain'}.':'.
                                           $ENV{'user.name'}.':nohist_email',
                                           $ENV{'user.home'}))) {
         my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=          my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
     &Apache::lonmsg::unpackmsgid($_);      &Apache::lonmsg::unpackmsgid($_);
        unless ($status eq 'deleted') {         unless ($status eq 'deleted') {
Line 379  sub disall { Line 405  sub disall {
       &Apache::lonnet::unescape($shortsubj).'</td><td>'.        &Apache::lonnet::unescape($shortsubj).'</td><td>'.
                       $status.'</td></tr>');                        $status.'</td></tr>');
        }         }
     } sort split(/\&/,&Apache::lonnet::reply('keys:'.      }
  $ENV{'user.domain'}.':'.  
                                         $ENV{'user.name'}.':nohist_email',  
                                         $ENV{'user.home'}));  
     $r->print('</table><p>'.      $r->print('</table><p>'.
                 '<a href="javascript:checkall()">Check All</a>&nbsp;'.
                 '<a href="javascript:uncheckall()">Uncheck All</a><p>'.
               '<input type=submit name="markeddel" value="Delete Checked">'.                '<input type=submit name="markeddel" value="Delete Checked">'.
               '</form></body></html>');                '</form></body></html>');
 }  }
Line 479  sub handler { Line 504  sub handler {
   
 # --------------------------- Get query string for limited number of parameters  # --------------------------- Get query string for limited number of parameters
   
     map {      foreach (split(/&/,$ENV{'QUERY_STRING'})) {
        my ($name, $value) = split(/=/,$_);         my ($name, $value) = split(/=/,$_);
        $value =~ tr/+/ /;         $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
Line 492  sub handler { Line 517  sub handler {
               $ENV{'form.'.$name}=$value;                $ENV{'form.'.$name}=$value;
    }     }
        }         }
     } (split(/&/,$ENV{'QUERY_STRING'}));      }
   
 # --------------------------------------------------------------- Render Output  # --------------------------------------------------------------- Render Output
       
Line 546  sub handler { Line 571  sub handler {
   &disall($r);    &disall($r);
       }        }
   } elsif ($ENV{'form.confirm'}) {    } elsif ($ENV{'form.confirm'}) {
       map {        foreach (keys %ENV) {
           if ($_=~/^form\.rec\_(.*)$/) {            if ($_=~/^form\.rec\_(.*)$/) {
       $r->print('<b>Confirming Receipt:</b> '.        $r->print('<b>Confirming Receipt:</b> '.
                         &user_crit_received($1).'<br>');                          &user_crit_received($1).'<br>');
Line 557  sub handler { Line 582  sub handler {
                         &user_crit_received($msgid).'<br>');                          &user_crit_received($msgid).'<br>');
               &comprep($r,$msgid);                &comprep($r,$msgid);
           }            }
       } keys %ENV;        }
       &discrit($r);        &discrit($r);
   } elsif ($ENV{'form.critical'}) {    } elsif ($ENV{'form.critical'}) {
       &discrit($r);        &discrit($r);
Line 569  sub handler { Line 594  sub handler {
       &disall($r);        &disall($r);
   } elsif ($ENV{'form.markeddel'}) {    } elsif ($ENV{'form.markeddel'}) {
       my $total=0;        my $total=0;
       map {        foreach (keys %ENV) {
           if ($_=~/^form\.delmark_(.*)$/) {            if ($_=~/^form\.delmark_(.*)$/) {
       &statuschange(&Apache::lonnet::unescape($1),'deleted');        &statuschange(&Apache::lonnet::unescape($1),'deleted');
               $total++;                $total++;
           }            }
       } keys %ENV;        }
       $r->print('Deleted '.$total.' message(s)<p>');        $r->print('Deleted '.$total.' message(s)<p>');
       &disall($r);        &disall($r);
   } elsif ($ENV{'form.markunread'}) {    } elsif ($ENV{'form.markunread'}) {
Line 596  sub handler { Line 621  sub handler {
       my %toaddr=();        my %toaddr=();
       undef %toaddr;        undef %toaddr;
       if ($ENV{'form.sendmode'} eq 'group') {        if ($ENV{'form.sendmode'} eq 'group') {
           map {            foreach (keys %ENV) {
       if ($_=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) {        if ($_=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) {
   $toaddr{$1}='';    $toaddr{$1}='';
               }                }
           } keys %ENV;            }
       } elsif ($ENV{'form.sendmode'} eq 'upload') {        } elsif ($ENV{'form.sendmode'} eq 'upload') {
           map {            foreach (split(/[\n\r\f]+/,$ENV{'form.upfile'})) {
               my ($rec,$txt)=split(/\s*\:\s*/,$_);                my ($rec,$txt)=split(/\s*\:\s*/,$_);
               if ($txt) {                if ($txt) {
   $rec=~s/\@/\:/;    $rec=~s/\@/\:/;
                   $toaddr{$rec}.=$txt."\n";                    $toaddr{$rec}.=$txt."\n";
               }                }
           } split(/[\n\r\f]+/,$ENV{'form.upfile'});            }
       } else {        } else {
   $toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}='';    $toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}='';
       }        }
       if ($ENV{'form.additionalrec'}) {        if ($ENV{'form.additionalrec'}) {
   map {    foreach (split(/\,/,$ENV{'form.additionalrec'})) {
               my ($auname,$audom)=split(/\@/,$_);                my ($auname,$audom)=split(/\@/,$_);
               $toaddr{$auname.':'.$audom}='';                $toaddr{$auname.':'.$audom}='';
           } split(/\,/,$ENV{'form.additionalrec'});            }
       }        }
     map {      foreach (keys %toaddr) {
       my ($recuname,$recdomain)=split(/\:/,$_);        my ($recuname,$recdomain)=split(/\:/,$_);
       my $msgtxt=$ENV{'form.message'};        my $msgtxt=$ENV{'form.message'};
       if ($toaddr{$_}) { $msgtxt.='<hr>'.$toaddr{$_}; }            if ($toaddr{$_}) { $msgtxt.='<hr>'.$toaddr{$_}; }    
Line 636  sub handler { Line 661  sub handler {
                                  $content{'citation'}));                                   $content{'citation'}));
       }        }
       $r->print('<br>');        $r->print('<br>');
     } keys %toaddr;      }
       if ($ENV{'form.displayedcrit'}) {        if ($ENV{'form.displayedcrit'}) {
           &discrit($r);            &discrit($r);
       } else {        } else {
Line 651  sub handler { Line 676  sub handler {
 }  }
 # ================================================= Main program, reset counter  # ================================================= Main program, reset counter
   
 sub BEGIN {  BEGIN {
     $msgcount=0;      $msgcount=0;
 }  }
   
Removed from v.1.26  
changed lines
  Added in v.1.29

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>