Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

Module to deal with messaging and error messages

    1: # The LearningOnline Network with CAPA
    2: #
    3: # Routines for messaging
    4: #
    5: # (Routines to control the menu
    6: #
    7: # (TeX Conversion Module
    8: #
    9: # 05/29/00,05/30 Gerd Kortemeyer)
   10: #
   11: # 10/05 Gerd Kortemeyer)
   12: #
   13: # 10/19 Gerd Kortemeyer
   14: 
   15: package Apache::lonmsg;
   16: 
   17: use strict;
   18: use Apache::lonnet();
   19: 
   20: 
   21: # ===================================================================== Package
   22: 
   23: sub package {
   24:     var ($subject,$message)=@_;
   25:     $message=~s/\</\&lt\;/g;
   26:     $message=~s/\>/\&gt\;/g;
   27:     $subject=~s/\</\&lt\;/g;
   28:     $subject=~s/\>/\&gt\;/g;
   29:     return '<sendername>'.$ENV{'user.name'}.'</sendername>'.
   30:            '<senderdomain>'.$ENV{'user.domain'}.'</senderdomain>'.
   31:            '<subject>'.$subject.'</subject>'.
   32: 	   '<time>'.localtime().'</time>'.
   33: 	   '<servername>'.$ENV{'SERVER_NAME'}.'</servername>'.
   34:            '<host>'.$ENV{'HTTP_HOST'}.'</host>'.
   35: 	   '<client>'.$ENV{'REMOTE_ADDR'}.'</client>'.
   36: 	   '<browsertype>'.$ENV{'browser.type'}.'</browsertype>'.
   37: 	   '<browseros>'.$ENV{'browser.os'}.'</browseros>'.
   38: 	   '<browserversion>'.$ENV{'browser.version'}.'</browserversion>'.
   39:            '<browsermathml>'.$ENV{'browser.mathml'}.'</browsermathml>'.
   40: 	   '<browserraw>'.$ENV{'HTTP_USER_AGENT'}.'</browserraw>'.
   41: 	   '<courseid>'.$ENV{'request.course.id'}.'</courseid>'.
   42: 	   '<role>'.$ENV{'request.role'}.'</role>'.
   43: 	   '<resource>'.$ENV{'request.filename'}.'</resource>'.
   44: 	   '<message>'.$message.'</message>';
   45: }
   46: 
   47: # =============================== Automated message to the author of a resource
   48: 
   49: sub author_res_msg {
   50:     my ($filename,$message)=@_;
   51:     $filename=&Apache::lonnet::declutter($filename);
   52:     my ($domain,$author,@dummy)=split(/\//,$filename);
   53:     my $homeserver=&Apache::lonnet::homeserver($author,$domain);
   54:     if ($homeserver ne 'no_host') {
   55:        my $id=unpack("%32C*",$message);
   56:        &Apache::lonnet::put('res_msgs',$filename.'_'.$id => package($message));
   57:     }
   58: }
   59: 
   60: # ================================================== Critical message to a user
   61: 
   62: sub user_crit_msg {
   63:     my ($user,$domain,$subject,$message)=@_;
   64: }
   65: 
   66: 1;
   67: __END__
   68: 
   69: 
   70: 
   71: 
   72: 
   73: 
   74: