perl/modules/W3C/LogValidator/lib/W3C/LogValidator CSSValidator.pm,1.16,1.17 Config.pm,1.11,1.12 HTMLValidator.pm,1.22,1.23

Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator
In directory hutz:/tmp/cvs-serv1617/lib/W3C/LogValidator

Modified Files:
	CSSValidator.pm Config.pm HTMLValidator.pm 
Log Message:
Adding an option to allow URIs with query strings, e.g
http://www.example.com/script?foo=bar

Such URIs in the logs were previously ignored systematically, now will
still be ignored by default, but with the configuration option
ExcludeCGI 0
they will be processed as "normal" URIs.




Index: HTMLValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/HTMLValidator.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- HTMLValidator.pm	9 Sep 2005 06:33:11 -0000	1.22
+++ HTMLValidator.pm	24 Jul 2007 06:08:11 -0000	1.23
@@ -153,7 +153,7 @@
         {
                 my $uri_ext = "";
                 my $match = 0;
-                if ($uri =~ /(\.[0-9a-zA-Z]+)$/)
+                if ($uri =~ /(\.[0-9a-zA-Z]+)(\?.*)?$/)
                 {  
                    $uri_ext = $1;
                 }

Index: Config.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Config.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- Config.pm	22 Jun 2006 05:11:24 -0000	1.11
+++ Config.pm	24 Jul 2007 06:08:11 -0000	1.12
@@ -101,6 +101,11 @@
 	{
 		$conf{LogProcessor}{EntriesPerLogfile}=100000; 
 	}
+	# adding default handling of URIs with query strings
+	if (!exists $conf{LogProcessor}{ExcludeCGI})
+	{
+		$conf{LogProcessor}{ExcludeCGI}=1; 
+	}	
 	# parameter muting the final report if nothing interesting to say
 	if (!exists $conf{LogProcessor}{QuietIfNoReport})
 	{

Index: CSSValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/CSSValidator.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- CSSValidator.pm	9 Sep 2005 06:33:11 -0000	1.16
+++ CSSValidator.pm	24 Jul 2007 06:08:11 -0000	1.17
@@ -134,7 +134,7 @@
         {
                 my $uri_ext = "";
                 my $match = 0;
-                if ($uri =~ /(\.[0-9a-zA-Z]+)$/)
+                if ($uri =~ /(\.[0-9a-zA-Z]+)(\?.*)?$/)
                 {
                    $uri_ext = $1;
                 }

Received on Tuesday, 24 July 2007 06:08:15 UTC