perl/modules/W3C/LinkChecker/bin checklink,4.106,4.107

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

Modified Files:
	checklink 
Log Message:
Escape shown URI in javascript progress callback.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.106
retrieving revision 4.107
diff -u -d -r4.106 -r4.107
--- checklink	1 May 2008 11:28:23 -0000	4.106
+++ checklink	4 May 2008 16:55:27 -0000	4.107
@@ -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 Sunday, 4 May 2008 16:56:01 UTC