loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.245, 2020/06/09 21:32:32	version 1.246, 2020/12/18 15:23:02
Line 231 sub packagemsg {	Line 231 sub packagemsg {
$attachmenturl =&HTML::Entities::encode($attachmenturl,'<>&"');	$attachmenturl =&HTML::Entities::encode($attachmenturl,'<>&"');
my $course_context = &get_course_context();	my $course_context = &get_course_context();
my $now=time;	my $now=time;
	my $ip = &Apache::lonnet::get_requestor_ip();
my $msgcount = &get_uniq();	my $msgcount = &get_uniq();
unless(defined($msgid)) {	unless(defined($msgid)) {
$msgid = &buildmsgid($now,$subject,$env{'user.name'},$env{'user.domain'},	$msgid = &buildmsgid($now,$subject,$env{'user.name'},$env{'user.domain'},
Line 250 sub packagemsg {	Line 251 sub packagemsg {
}	}
$result .= '<servername>'.$ENV{'SERVER_NAME'}.'</servername>'.	$result .= '<servername>'.$ENV{'SERVER_NAME'}.'</servername>'.
'<host>'.$ENV{'HTTP_HOST'}.'</host>'.	'<host>'.$ENV{'HTTP_HOST'}.'</host>'.
'<client>'.$ENV{'REMOTE_ADDR'}.'</client>'.	'<client>'.$ip.'</client>'.
'<browsertype>'.$env{'browser.type'}.'</browsertype>'.	'<browsertype>'.$env{'browser.type'}.'</browsertype>'.
'<browseros>'.$env{'browser.os'}.'</browseros>'.	'<browseros>'.$env{'browser.os'}.'</browseros>'.
'<browserversion>'.$env{'browser.version'}.'</browserversion>'.	'<browserversion>'.$env{'browser.version'}.'</browserversion>'.