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