--- loncom/interface/lonsupportreq.pm 2004/07/03 19:05:12 1.2 +++ loncom/interface/lonsupportreq.pm 2004/07/09 21:08:24 1.4 @@ -163,7 +163,7 @@ END -
+
@@ -187,7 +187,7 @@ END -
+
@@ -233,7 +233,7 @@ END -
+
@@ -257,7 +257,7 @@ END -
+
@@ -281,7 +281,7 @@ END -
+
@@ -321,7 +321,7 @@ END -
+
@@ -359,7 +359,7 @@ END -
+
@@ -383,7 +383,7 @@ END -
+
@@ -407,7 +407,7 @@ END -
+
@@ -529,10 +529,16 @@ END # } # } $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()) { - print $fh $supportmsg; + print $fh $supportmsg; $fh->close; } + %ENV=%oldENV; + undef(%oldENV); $r->print(<Your support request contained the following information: