version 1.47, 2003/02/17 17:09:27
|
version 1.48, 2003/02/17 17:39:53
|
Line 57 use HTML::Entities();
|
Line 57 use HTML::Entities();
|
|
|
sub packagemsg { |
sub packagemsg { |
my ($subject,$message,$citation)=@_; |
my ($subject,$message,$citation)=@_; |
# $message=~s/\</\<\;/g; |
|
# $message=~s/\>/\>\;/g; |
|
$message =&HTML::Entities::encode($message); |
$message =&HTML::Entities::encode($message); |
$citation=&HTML::Entities::encode($citation); |
$citation=&HTML::Entities::encode($citation); |
$subject =&HTML::Entities::encode($subject); |
$subject =&HTML::Entities::encode($subject); |
# $subject=~s/\</\<\;/g; |
|
# $subject=~s/\>/\>\;/g; |
|
my $now=time; |
my $now=time; |
$msgcount++; |
$msgcount++; |
my $partsubj=$subject; |
my $partsubj=$subject; |