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

Diff for /loncom/interface/lonsupportreq.pm between versions 1.26 and 1.27

version 1.26, 2005/04/10 23:37:21 version 1.27, 2005/04/10 23:45:57
Line 30  use strict; Line 30  use strict;
 use lib qw(/home/httpd/lib/perl);  use lib qw(/home/httpd/lib/perl);
 use MIME::Types;  use MIME::Types;
 use MIME::Lite;  use MIME::Lite;
   use CGI::Cookie();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonnet;  use Apache::lonnet;
Line 640  sub print_request_receipt { Line 641  sub print_request_receipt {
     my @ENVvars = ('HTTP_HOST','HTTP_USER_AGENT','REMOTE_ADDR','SERVER_ADDR','SERVER_NAME');      my @ENVvars = ('HTTP_HOST','HTTP_USER_AGENT','REMOTE_ADDR','SERVER_ADDR','SERVER_NAME');
     my @envvars = ('browser.os','browser.type','browser.version','user.home','request.role');      my @envvars = ('browser.os','browser.type','browser.version','user.home','request.role');
     my @loncvars = ('user.name','user.domain','request.course.sec','request.course.id');      my @loncvars = ('user.name','user.domain','request.course.sec','request.course.id');
       my @cookievars = ('lonID');
   
     my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0"',1);      my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0"',1);
     my $admin = $Apache::lonnet::perlvar{'lonAdminMail'};      my $admin = $Apache::lonnet::perlvar{'lonAdminMail'};
Line 749  END Line 751  END
         }          }
     }      }
   
       my %cookies = ();
       my $cookie=CGI::Cookie->parse($r->header_in('Cookie'));
       if ($$cookie{'lonID'} =~ /lonID=(\w+);/) {
           $cookies{'lonID'} = $1;
       }
   
     if ($attachmentpath =~ m-/([^/]+)$-) {      if ($attachmentpath =~ m-/([^/]+)$-) {
         $fname = $1;          $fname = $1;
         $displaymsg .= "<br />An uploaded screenshot file - $fname ($attachmentsize bytes) was included in the request sent by $env{'user.name'} from LON-CAPA domain: $env{'user.domain'}";          $displaymsg .= "<br />An uploaded screenshot file - $fname ($attachmentsize bytes) was included in the request sent by $env{'user.name'} from LON-CAPA domain: $env{'user.domain'}";
         $supportmsg .= "\n";          $supportmsg .= "\n";
           foreach (@cookievars) {
               $supportmsg .= "$_: $cookies{$_}\n";
           }
         foreach (@ENVvars) {          foreach (@ENVvars) {
             $supportmsg .= "$_: $ENV{$_}\n";              $supportmsg .= "$_: $ENV{$_}\n";
         }          }
Line 778  END Line 789  END
   
     } else {      } else {
         my $envdata = '';          my $envdata = '';
           foreach (@cookievars) {
               $envdata .= "$_: $cookies{$_}\n";
           }
         foreach (@ENVvars) {          foreach (@ENVvars) {
             $envdata .= "$_: $ENV{$_}\n";              $envdata .= "$_: $ENV{$_}\n";
         }          }
Line 845  END Line 859  END
               <tr>                <tr>
                <td>                 <td>
     |);      |);
       foreach (@cookievars) {
           unless($cookies{$_} eq '') {
               $r->print("$_:&nbsp;<font color='$vlinkcolor'>$cookies{$_}</font>, ");
           }
       }
     foreach (@ENVvars) {      foreach (@ENVvars) {
         unless($ENV{$_} eq '') {          unless($ENV{$_} eq '') {
             $r->print("$_:&nbsp;<font color='$vlinkcolor'>$ENV{$_}</font>, ");              $r->print("$_:&nbsp;<font color='$vlinkcolor'>$ENV{$_}</font>, ");
Removed from v.1.26  
changed lines
  Added in v.1.27

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