W3C home > Mailing lists > Public > www-validator-cvs@w3.org > July 2007

validator/httpd/cgi-bin check,1.549,1.550

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Thu, 26 Jul 2007 03:49:42 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1IDuMA-0003bq-Qh@lionel-hutz.w3.org>

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv13852

Modified Files:
	check 
Log Message:
workaround for borked /check/referer with mod_perl2

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.549
retrieving revision 1.550
diff -u -d -r1.549 -r1.550
--- check	26 Jul 2007 02:10:48 -0000	1.549
+++ check	26 Jul 2007 03:49:40 -0000	1.550
@@ -1875,6 +1875,14 @@
     }
   }
 
+  # apparently, with mod_perl2, $path_info is empty even if it should be filled
+  # working around that
+  if (!$path_info) {
+    if ($File->{Env}->{'Self URI'} =~ /check\/referer$/){
+      $path_info = '/referer';
+      $File->{Env}->{'Self URI'} =~ s/\/referer//;
+    }
+  }
   # Futz the URL so "/referer" works.
   if ($path_info) {
     if ($path_info eq '/referer' or $path_info eq '/referrer') {
Received on Thursday, 26 July 2007 03:49:45 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Thursday, 26 April 2012 12:54:58 GMT