diff options
Diffstat (limited to 'httpd/cgi-bin/check')
| -rwxr-xr-x | httpd/cgi-bin/check | 35 |
1 files changed, 1 insertions, 34 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index e06fce3..6cd4d2e 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -2795,37 +2795,6 @@ sub prepCGI $q->param($param, TRUE) unless $q->param($param); } - my $path_info = $q->path_info(); - - # IIS reportedly does not provide the $path_info we expect - hack around it. - $path_info =~ s|(.*)/check\.pl(.*)$|$2| - if ($ENV{SERVER_SOFTWARE} and - $ENV{SERVER_SOFTWARE} =~ /Microsoft-IIS/); - - # apparently, with mod_perl2, $path_info is empty even if it should be - # filled. working around that - if (!$path_info && $File->{Env}->{'Self URI'} =~ /check\/referr?er$/) { - $path_info = '/referer'; - $File->{Env}->{'Self URI'} =~ s/\/referr?er$//; - } - - # Futz the URL so "/referer" works. - if ($path_info) { - if ($path_info =~ m|^/referr?er$|) { - if ($q->referer) { - $q->param('uri', $q->referer); - print redirect &self_url_q($q, $File); - } - else { - print redirect $File->{Env}->{'Self URI'} . '?uri=referer'; - } - } - else { - print redirect &self_url_q($q, $File); - } - exit; - } - $File->{Env}->{'Home Page'} = URI->new_abs(".", $File->{Env}->{'Self URI'}); @@ -2851,9 +2820,7 @@ sub prepCGI } else { - # Redirected from /check/referer to /check?uri=referer because - # the browser didn't send a Referer header, or the request was - # for /check?uri=referer but no Referer header was found. + # No Referer header was found. $File->{'Error Flagged'} = TRUE; &get_error_template($File)->param(fatal_referer_error => TRUE); } |