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

Diff for /loncom/interface/lonmsg.pm between versions 1.24 and 1.28

version 1.24, 2001/11/05 19:44:23 version 1.28, 2002/02/16 19:59:10
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 #  
 # Routines for messaging  # Routines for messaging
 #  #
   # $Id$
   #
   # Copyright Michigan State University Board of Trustees
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
   #
 # (Routines to control the menu  # (Routines to control the menu
 #  #
 # (TeX Conversion Module  # (TeX Conversion Module
Line 15 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 Gerd Kortemeyer
   #
 package Apache::lonmsg;  package Apache::lonmsg;
   
 use strict;  use strict;
Line 38  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 252  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 271  ENDDISHEADER Line 296  ENDDISHEADER
                       $reply{'generation'}.                        $reply{'generation'}.
                       ' ('.$_.') '.$section);                        ' ('.$_.') '.$section);
         }           } 
     } sort keys %courselist;      }
 }  }
   
 # ==================================================== Display Critical Message  # ==================================================== Display Critical Message
Line 282  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 290  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 330  ENDREPLY Line 355  ENDREPLY
   
 sub disall {  sub disall {
     my $r=shift;      my $r=shift;
     $r->print('<h1>Display All Messages</h1>'.      $r->print(
        '<h1>Display All Messages</h1><form method=post 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 348  sub disall { Line 377  sub disall {
         }          }
         $r->print('<td><a href="/adm/email?display='.$_.          $r->print('<td><a href="/adm/email?display='.$_.
                   '">Open</a></td><td><a href="/adm/email?markdel='.$_.                    '">Open</a></td><td><a href="/adm/email?markdel='.$_.
                   '">Delete</a></td><td>'.localtime($sendtime).'</td><td>'.                  '">Delete</a><input type=checkbox name="delmark_'.$_.'"></td>'.
                     '<td>'.localtime($sendtime).'</td><td>'.
                   $fromname.'</td><td>'.$fromdomain.'</td><td>'.                    $fromname.'</td><td>'.$fromdomain.'</td><td>'.
       &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'}.':'.      $r->print('</table><p>'.
                                         $ENV{'user.name'}.':nohist_email',                '<input type=submit name="markeddel" value="Delete Checked">'.
                                         $ENV{'user.home'}));                '</form></body></html>');
     $r->print('</table></body></html>');  
 }  }
   
 # ============================================================== Compose output  # ============================================================== Compose output
Line 451  sub handler { Line 480  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 464  sub handler { Line 493  sub handler {
               $ENV{'form.'.$name}=$value;                $ENV{'form.'.$name}=$value;
    }     }
        }         }
     } (split(/&/,$ENV{'QUERY_STRING'}));      }
   
 # --------------------------------------------------------------- Render Output  # --------------------------------------------------------------- Render Output
       
Line 518  sub handler { Line 547  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 529  sub handler { Line 558  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 539  sub handler { Line 568  sub handler {
   } elsif ($ENV{'form.markdel'}) {    } elsif ($ENV{'form.markdel'}) {
       &statuschange($ENV{'form.markdel'},'deleted');        &statuschange($ENV{'form.markdel'},'deleted');
       &disall($r);        &disall($r);
     } elsif ($ENV{'form.markeddel'}) {
         my $total=0;
         foreach (keys %ENV) {
             if ($_=~/^form\.delmark_(.*)$/) {
         &statuschange(&Apache::lonnet::unescape($1),'deleted');
                 $total++;
             }
         }
         $r->print('Deleted '.$total.' message(s)<p>');
         &disall($r);
   } elsif ($ENV{'form.markunread'}) {    } elsif ($ENV{'form.markunread'}) {
       &statuschange($ENV{'form.markunread'},'new');        &statuschange($ENV{'form.markunread'},'new');
       &disall($r);        &disall($r);
Line 558  sub handler { Line 597  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 598  sub handler { Line 637  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 613  sub handler { Line 652  sub handler {
 }  }
 # ================================================= Main program, reset counter  # ================================================= Main program, reset counter
   
 sub BEGIN {  BEGIN {
     $msgcount=0;      $msgcount=0;
 }  }
   
Removed from v.1.24  
changed lines
  Added in v.1.28

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