perl/modules/W3C/LinkChecker/bin checklink,4.101,4.102

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv14675

Modified Files:
	checklink 
Log Message:
Markup fixes.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.101
retrieving revision 4.102
diff -u -d -r4.101 -r4.102
--- checklink	21 Apr 2008 07:31:51 -0000	4.101
+++ checklink	21 Apr 2008 08:00:30 -0000	4.102
@@ -769,8 +769,6 @@
   if ($Opts{HTML}) {
     &html_header($uri, 0, $cookie) if $is_first;
     &print_form($query) if $is_start;
-
-    print('<h2>');
   }
 
   my $start = $Opts{Summary_Only} ? 0 : &get_timestamp();
@@ -821,12 +819,15 @@
       $Opts{Exclude_Docs}) if defined($Opts{Exclude_Docs});
   }
 
-  printf("\nProcessing\t%s\n\n",
-         $Opts{HTML} ? &show_url($absolute_uri) : $absolute_uri)
-    unless $Opts{Quiet};
+  unless ($Opts{Quiet}) {
+    if ($Opts{HTML}) {
+      printf("<h2>Processing %s</h2>\n", &show_url($absolute_uri));
+    } else {
+      print "\nProcessing\t$absolute_uri\n\n";
+    }
+  }
 
   if ($Opts{HTML}) {
-    print("</h2>\n");
     if (! $Opts{Summary_Only}) {
       my $accept = &encode($Accept);
       my $acclang = &encode($Opts{Accept_Language} || '(not sent)');
@@ -1066,10 +1067,8 @@
       if ($response->code() == 401) {
         &authentication($response);
       } else {
-        if ($Opts{HTML}) {
-          &html_header($uri);
-          print "<p>";
-        }
+        # TODO: style this message to make it stand out
+        print "<p>" if $Opts{HTML};
         &hprintf("\nError: %d %s\n",
                  $response->code(), $response->message() || '(no message)');
         print "</p>\n" if $Opts{HTML};
@@ -1109,10 +1108,8 @@
   if ($failed_reason) {
     # No, there is a problem...
     if (! $in_recursion) {
-      if ($Opts{HTML}) {
-        &html_header($uri);
-        print "<p>\n";
-      }
+      # TODO: style this message to make it stand out
+      print "<p>" if $Opts{HTML};
       &hprintf("Can't check links: %s.\n", $failed_reason);
       print "</p>\n" if $Opts{HTML};
     }

Received on Monday, 21 April 2008 08:01:06 UTC