loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.95, 2004/03/26 19:35:59	version 1.96, 2004/03/31 05:24:00
Line 110 my $sqs;	Line 110 my $sqs;

sub packagemsg {	sub packagemsg {
my ($subject,$message,$citation,$baseurl,$attachmenturl)=@_;	my ($subject,$message,$citation,$baseurl,$attachmenturl)=@_;
$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,'<>&"');
#remove machine specification	#remove machine specification
$baseurl =~ s\|^http://[^/]+/\|/\|;	$baseurl =~ s\|^http://[^/]+/\|/\|;
$baseurl =&HTML::Entities::encode($baseurl);	$baseurl =&HTML::Entities::encode($baseurl,'<>&"');
#remove machine specification	#remove machine specification
$attachmenturl =~ s\|^http://[^/]+/\|/\|;	$attachmenturl =~ s\|^http://[^/]+/\|/\|;
$attachmenturl =&HTML::Entities::encode($attachmenturl);	$attachmenturl =&HTML::Entities::encode($attachmenturl,'<>&"');

my $now=time;	my $now=time;
$msgcount++;	$msgcount++;