link-checker commit: Escape shown URI in javascript progress callback.

changeset:   236:d2428c04e52b
user:        ville
date:        Sun May 04 16:55:27 2008 +0000
files:       bin/checklink
description:
Escape shown URI in javascript progress callback.


diff -r 10bdaf458a6f -r d2428c04e52b bin/checklink
--- a/bin/checklink	Thu May 01 11:28:23 2008 +0000
+++ b/bin/checklink	Sun May 04 16:55:27 2008 +0000
@@ -5,7 +5,7 @@
 # (c) 1999-2008 World Wide Web Consortium
 # based on Renaud Bruyeron's checklink.pl
 #
-# $Id: checklink,v 4.106 2008-05-01 11:28:23 ville Exp $
+# $Id: checklink,v 4.107 2008-05-04 16:55:27 ville Exp $
 #
 # This program is licensed under the W3C(r) Software License:
 #       http://www.w3.org/Consortium/Legal/copyright-software
@@ -242,7 +242,7 @@
   $PROGRAM     = 'W3C-checklink';
   $VERSION     = '4.3';
   $REVISION    = sprintf('version %s (c) 1999-2008 W3C', $VERSION);
-  my ($cvsver) = q$Revision: 4.106 $ =~ /(\d+[\d\.]*\.\d+)/;
+  my ($cvsver) = q$Revision: 4.107 $ =~ /(\d+[\d\.]*\.\d+)/;
   $AGENT       = sprintf('%s/%s [%s] %s',
                          $PROGRAM, $VERSION, $cvsver, LWP::RobotUA->_agent());
 
@@ -940,8 +940,8 @@
       # Hack: avoid browser/server timeouts in summary only CGI mode, bug 896
       print ' ' if ($Opts{HTML} && !$Opts{Command_Line});
     } else {
-      printf('<script type="text/javascript">show_progress("Checking link %s", "status_progress%s");</script>' , $u, $result_anchor)
-      if ($Opts{HTML} && !$Opts{Summary_Only});
+      printf('<script type="text/javascript">show_progress("Checking link %s", "status_progress%s");</script>' , &encode($u), $result_anchor)
+        if ($Opts{HTML} && !$Opts{Summary_Only});
       &hprintf("Checking link %s\n", $u);
     }
 

Received on Thursday, 5 August 2010 14:47:24 UTC