version 1.46, 2002/12/30 14:10:58
|
version 1.48, 2003/02/17 17:39:53
|
Line 47 package Apache::lonmsg;
|
Line 47 package Apache::lonmsg;
|
use strict; |
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); |
use Apache::Constants qw(:common); |
use Apache::loncommon; |
use Apache::loncommon(); |
use Apache::lontexconvert; |
use Apache::lontexconvert(); |
|
use HTML::Entities(); |
|
|
# ===================================================================== Package |
# ===================================================================== Package |
|
|
sub packagemsg { |
sub packagemsg { |
my ($subject,$message,$citation)=@_; |
my ($subject,$message,$citation)=@_; |
$message=~s/\</\<\;/g; |
$message =&HTML::Entities::encode($message); |
$message=~s/\>/\>\;/g; |
$citation=&HTML::Entities::encode($citation); |
$citation=~s/\</\<\;/g; |
$subject =&HTML::Entities::encode($subject); |
$citation=~s/\>/\>\;/g; |
|
$subject=~s/\</\<\;/g; |
|
$subject=~s/\>/\>\;/g; |
|
my $now=time; |
my $now=time; |
$msgcount++; |
$msgcount++; |
my $partsubj=$subject; |
my $partsubj=$subject; |