version 1.42, 2002/10/25 13:55:45
|
version 1.42.2.1, 2003/03/17 16:55:06
|
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=~s/\</\<\;/g; |
$message=~s/\>/\>\;/g; |
# $message=~s/\>/\>\;/g; |
$citation=~s/\</\<\;/g; |
$message =&HTML::Entities::encode($message); |
$citation=~s/\>/\>\;/g; |
$citation=&HTML::Entities::encode($citation); |
$subject=~s/\</\<\;/g; |
$subject =&HTML::Entities::encode($subject); |
$subject=~s/\>/\>\;/g; |
# $subject=~s/\</\<\;/g; |
|
# $subject=~s/\>/\>\;/g; |
my $now=time; |
my $now=time; |
$msgcount++; |
$msgcount++; |
my $partsubj=$subject; |
my $partsubj=$subject; |