--- loncom/interface/lonsupportreq.pm	2004/07/03 18:49:42	1.1
+++ loncom/interface/lonsupportreq.pm	2004/07/09 21:08:24	1.4
@@ -3,8 +3,8 @@ package Apache::lonsupportreq;
 use strict;
 use lib qw(/home/httpd/lib/perl);
 use Apache::Constants qw(:common);
-use Apache::loncommon;
-use Apache::lonnet;
+use Apache::loncommon();
+use Apache::lonnet();
 use localenroll;
 use Apache::lonlocal;
 
@@ -13,8 +13,8 @@ use Mail::Send;
 # use MIME::Types;
 
 sub handler {
-    my $r = shift;
-    $r->content_type('text/html');
+    my ($r) = @_;
+    &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
 
     if ($r->header_only) {
@@ -163,7 +163,7 @@ END
            </tr>
            <tr>
             <td width="100%" colspan="2" bgcolor="#000000">
-             <img src="/adm/lonMisc/blackdot.jpg" /><br />
+             <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>
            </tr>
            <tr>
@@ -187,7 +187,7 @@ END
            </tr>
            <tr>
             <td width="100%" colspan="2" bgcolor="#000000">
-             <img src="/adm/lonMisc/blackdot.jpg" /><br />
+             <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>
            </tr>
            <tr>
@@ -233,7 +233,7 @@ END
            </tr>
            <tr>
             <td width="100%" colspan="2" bgcolor="#000000">
-             <img src="/adm/lonMisc/blackdot.jpg" /><br />
+             <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>
            </tr>
            <tr>
@@ -257,7 +257,7 @@ END
            </tr>
            <tr>
             <td width="100%" colspan="2" bgcolor="#000000">
-             <img src="/adm/lonMisc/blackdot.jpg" /><br />
+             <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>
            </tr>
            <tr>
@@ -281,7 +281,7 @@ END
            </tr>
            <tr>
             <td width="100%" colspan="2" bgcolor="#000000">
-             <img src="/adm/lonMisc/blackdot.jpg" /><br />
+             <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>
            </tr>
            <tr>
@@ -321,7 +321,7 @@ END
            </tr>
            <tr>
             <td width="100%" colspan="2" bgcolor="#000000">
-             <img src="/adm/lonMisc/blackdot.jpg" /><br />
+             <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>
            </tr>
            <tr>
@@ -359,7 +359,7 @@ END
            </tr>
            <tr>
             <td width="100%" colspan="2" bgcolor="#000000">
-             <img src="/adm/lonMisc/blackdot.jpg" /><br />
+             <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>
            </tr>
            <tr>
@@ -383,7 +383,7 @@ END
            </tr>
            <tr>
             <td width="100%" colspan="2" bgcolor="#000000">
-             <img src="/adm/lonMisc/blackdot.jpg" /><br />
+             <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>
            </tr>
            <tr>
@@ -407,7 +407,7 @@ END
            </tr>
            <tr>
 	    <td width="100%" colspan="2" bgcolor="#000000">
-             <img src="/adm/lonMisc/blackdot.jpg" /><br />
+             <img src="/adm/lonMisc/blackdot.gif" /><br />
 	    </td>
 	   </tr>
            <tr>
@@ -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(<<END);
  <b>Your support request contained the following information</b>:<br /><br />
  <table width="580" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">