[BACK]Return to lonsupportreq.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsupportreq.pm between versions 1.1 and 1.4

version 1.1, 2004/07/03 18:49:42 version 1.4, 2004/07/09 21:08:24
Line 3  package Apache::lonsupportreq; Line 3  package Apache::lonsupportreq;
 use strict;  use strict;
 use lib qw(/home/httpd/lib/perl);  use lib qw(/home/httpd/lib/perl);
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon;  use Apache::loncommon();
 use Apache::lonnet;  use Apache::lonnet();
 use localenroll;  use localenroll;
 use Apache::lonlocal;  use Apache::lonlocal;
   
Line 13  use Mail::Send; Line 13  use Mail::Send;
 # use MIME::Types;  # use MIME::Types;
   
 sub handler {  sub handler {
     my $r = shift;      my ($r) = @_;
     $r->content_type('text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
   
     if ($r->header_only) {      if ($r->header_only) {
Line 163  END Line 163  END
            </tr>             </tr>
            <tr>             <tr>
             <td width="100%" colspan="2" bgcolor="#000000">              <td width="100%" colspan="2" bgcolor="#000000">
              <img src="/adm/lonMisc/blackdot.jpg" /><br />               <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>              </td>
            </tr>             </tr>
            <tr>             <tr>
Line 187  END Line 187  END
            </tr>             </tr>
            <tr>             <tr>
             <td width="100%" colspan="2" bgcolor="#000000">              <td width="100%" colspan="2" bgcolor="#000000">
              <img src="/adm/lonMisc/blackdot.jpg" /><br />               <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>              </td>
            </tr>             </tr>
            <tr>             <tr>
Line 233  END Line 233  END
            </tr>             </tr>
            <tr>             <tr>
             <td width="100%" colspan="2" bgcolor="#000000">              <td width="100%" colspan="2" bgcolor="#000000">
              <img src="/adm/lonMisc/blackdot.jpg" /><br />               <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>              </td>
            </tr>             </tr>
            <tr>             <tr>
Line 257  END Line 257  END
            </tr>             </tr>
            <tr>             <tr>
             <td width="100%" colspan="2" bgcolor="#000000">              <td width="100%" colspan="2" bgcolor="#000000">
              <img src="/adm/lonMisc/blackdot.jpg" /><br />               <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>              </td>
            </tr>             </tr>
            <tr>             <tr>
Line 281  END Line 281  END
            </tr>             </tr>
            <tr>             <tr>
             <td width="100%" colspan="2" bgcolor="#000000">              <td width="100%" colspan="2" bgcolor="#000000">
              <img src="/adm/lonMisc/blackdot.jpg" /><br />               <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>              </td>
            </tr>             </tr>
            <tr>             <tr>
Line 321  END Line 321  END
            </tr>             </tr>
            <tr>             <tr>
             <td width="100%" colspan="2" bgcolor="#000000">              <td width="100%" colspan="2" bgcolor="#000000">
              <img src="/adm/lonMisc/blackdot.jpg" /><br />               <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>              </td>
            </tr>             </tr>
            <tr>             <tr>
Line 359  END Line 359  END
            </tr>             </tr>
            <tr>             <tr>
             <td width="100%" colspan="2" bgcolor="#000000">              <td width="100%" colspan="2" bgcolor="#000000">
              <img src="/adm/lonMisc/blackdot.jpg" /><br />               <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>              </td>
            </tr>             </tr>
            <tr>             <tr>
Line 383  END Line 383  END
            </tr>             </tr>
            <tr>             <tr>
             <td width="100%" colspan="2" bgcolor="#000000">              <td width="100%" colspan="2" bgcolor="#000000">
              <img src="/adm/lonMisc/blackdot.jpg" /><br />               <img src="/adm/lonMisc/blackdot.gif" /><br />
             </td>              </td>
            </tr>             </tr>
            <tr>             <tr>
Line 407  END Line 407  END
            </tr>             </tr>
            <tr>             <tr>
     <td width="100%" colspan="2" bgcolor="#000000">      <td width="100%" colspan="2" bgcolor="#000000">
              <img src="/adm/lonMisc/blackdot.jpg" /><br />               <img src="/adm/lonMisc/blackdot.gif" /><br />
     </td>      </td>
    </tr>     </tr>
            <tr>             <tr>
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">
Removed from v.1.1  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>