perl/modules/W3C/LogValidator/lib/W3C LogValidator.pm,1.6,1.7

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

Modified Files:
	LogValidator.pm 
Log Message:
not processing URIs with CGI arguments - is that a good idea?

Index: LogValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- LogValidator.pm	14 Apr 2004 05:53:43 -0000	1.6
+++ LogValidator.pm	8 Jun 2004 04:59:23 -0000	1.7
@@ -190,7 +190,7 @@
 				{
 					$tmp_record = $self->find_uri($tmp_record, $logtype);
 					#print "$tmp_record \n" if ($verbose >2);
-					$self->add_uri($tmp_record);
+					if ($self->no_cgi($tmp_record)) {$self->add_uri($tmp_record);}
 				}
 				$entriescounter++;
 			}
@@ -201,6 +201,17 @@
 	}
 }
 
+sub no_cgi
+{
+	my $self = shift;
+	if (@_)
+	{
+		my $tmp_uri = shift;
+		return (!($tmp_uri =~ /\?/));
+	}
+}
+
+
 sub find_uri
 # finds the "real" URI from a log record
 {

Received on Tuesday, 8 June 2004 01:23:18 UTC