version 1.100, 2020/06/09 21:32:32
|
version 1.102, 2020/12/18 19:14:25
|
Line 663 sub print_request_receipt {
|
Line 663 sub print_request_receipt {
|
return; |
return; |
} |
} |
} |
} |
my @ENVvars = ('HTTP_HOST','HTTP_USER_AGENT','REMOTE_ADDR','SERVER_ADDR','SERVER_NAME'); |
my $ip = &Apache::lonnet::get_requestor_ip(); |
|
my @ENVvars = ('HTTP_HOST','HTTP_USER_AGENT','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; |
my @cookievars; |
Line 1072 END
|
Line 1073 END
|
foreach my $var(@ENVvars) { |
foreach my $var(@ENVvars) { |
$supportmsg .= "$var: $ENV{$var}\n"; |
$supportmsg .= "$var: $ENV{$var}\n"; |
} |
} |
|
$supportmsg .= "REMOTE_ADDR: $ip\n"; |
foreach my $var (@envvars) { |
foreach my $var (@envvars) { |
$supportmsg .= "$var: $env{$var}\n"; |
$supportmsg .= "$var: $env{$var}\n"; |
} |
} |
Line 1095 END
|
Line 1097 END
|
foreach my $var (@ENVvars) { |
foreach my $var (@ENVvars) { |
$attachment_text .= "$var: $ENV{$var}\n"; |
$attachment_text .= "$var: $ENV{$var}\n"; |
} |
} |
|
$attachment_text .= "REMOTE_ADDR: $ip\n"; |
foreach my $var (@envvars) { |
foreach my $var (@envvars) { |
$attachment_text .= "$var: $env{$var}\n"; |
$attachment_text .= "$var: $env{$var}\n"; |
} |
} |
Line 1142 END
|
Line 1145 END
|
$var.'</span>: '.$ENV{$var}.', '; |
$var.'</span>: '.$ENV{$var}.', '; |
} |
} |
} |
} |
|
if ($ip ne '') { |
|
$envmsg .= '<span class="LC_helpform_receipt_cat">'. |
|
'REMOTE_ADDR</span>: '.$ip.', '; |
|
} |
foreach my $var (@envvars) { |
foreach my $var (@envvars) { |
if ($env{$var} ne '') { |
if ($env{$var} ne '') { |
$envmsg .= '<span class="LC_helpform_receipt_cat">'. |
$envmsg .= '<span class="LC_helpform_receipt_cat">'. |