perl/modules/W3C/LogValidator/lib/W3C/LogValidator CSSValidator.pm,1.1,1.2 SurveyEngine.pm,1.1,1.2

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

Modified Files:
	CSSValidator.pm SurveyEngine.pm 
Log Message:
verbose printout tweaks

Index: SurveyEngine.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/SurveyEngine.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- SurveyEngine.pm	8 Jun 2004 04:36:31 -0000	1.1
+++ SurveyEngine.pm	8 Jun 2004 05:00:09 -0000	1.2
@@ -136,8 +136,7 @@
       my $uri_orig = $uri;
       $uri = uri_escape($uri);
       my @result_tmp = ();
-      print "	processing $uri_orig...\n" if ($verbose > 1);
-      print "total $census under $max_documents" if ($verbose > 2);
+      print "	processing #$census $uri_orig...\n" if ($verbose > 1);
      $census = $census+1;
       # filling result table with "fixed" content
       push @result_tmp, $census;

Index: CSSValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/CSSValidator.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- CSSValidator.pm	2 Jun 2004 07:49:15 -0000	1.1
+++ CSSValidator.pm	8 Jun 2004 05:00:09 -0000	1.2
@@ -98,7 +98,7 @@
 	my $self = shift;
 	my $max_invalid = undef;
 	if (exists $config{MaxInvalid}) {$max_invalid = $config{MaxInvalid}}
-	print "Now Using the CSS Validation module :\n" if $verbose;
+	print "Now Using the CSS Validation module...\n" if $verbose;
 	use DB_File;                                                                  
         my $tmp_file = $config{tmpfile};
 	my %hits;                                                                     
@@ -145,7 +145,7 @@
 		my $uri_orig = $uri;
 		$self->new_doc();
 		$total_census++;
-                print " processing #$total_census $uri..." if ($verbose > 1);
+                print "	processing #$total_census $uri... " if ($verbose > 1);
 		my $val = WebService::Validator::CSS::W3C->new;
 		$val->validate(uri => $uri);
 		$self->valid_success($val->success);

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