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"> |