loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.3, 2004/07/03 20:57:05	version 1.4, 2004/07/09 21:08:24
Line 529 END	Line 529 END
# }	# }
# }	# }
$msg->subject('[LON-CAPA] - support request');	$msg->subject('[LON-CAPA] - support request');
	# ->open can cause an sh launch which can pass all of %ENV allong
	# which can be to large for /bin/sh's little mind
	my %oldENV=%ENV;
	undef(%ENV);
if (my $fh = $msg->open()) {	if (my $fh = $msg->open()) {
print $fh $supportmsg;	print $fh $supportmsg;
$fh->close;	$fh->close;
}	}
	%ENV=%oldENV;
	undef(%oldENV);
$r->print(<<END);	$r->print(<<END);
<b>Your support request contained the following information</b>:<br /><br />	<b>Your support request contained the following information</b>:<br /><br />
<table width="580" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">	<table width="580" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">