perl/modules/W3C/LogValidator/lib/W3C/LogValidator HTMLValidator.pm,1.7,1.8

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

Modified Files:
	HTMLValidator.pm 
Log Message:
giving the user the possibility of chosen extensions used by each module

Index: HTMLValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/HTMLValidator.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- HTMLValidator.pm	2 Jun 2004 07:37:32 -0000	1.7
+++ HTMLValidator.pm	2 Jun 2004 07:52:33 -0000	1.8
@@ -43,7 +43,14 @@
 	$config{ValidatorPort} = "80" if (!exists $config{ValidatorPort});
 	$config{ValidatorString} = "/check\?uri=" if (!exists $config{ValidatorString});
 	$config{ValidatorPostString} = "\;output=xml" if (!exists $config{ValidatorPostString});
-	$self->{AUTH_EXT} = ".html .xhtml .phtml .htm /";
+        if (exists $config{AuthorizedExtensions})
+        {
+                $self->{AUTH_EXT} =  $config{AuthorizedExtensions};
+        }
+        else
+        {
+		$self->{AUTH_EXT} = ".html .xhtml .phtml .htm /";
+	}
 	if (exists $config{verbose}) {$verbose = $config{verbose}}
         bless($self, $class);
         return $self;

Received on Wednesday, 2 June 2004 03:52:38 UTC