X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sw-tools/blobdiff_plain/961ce1c2fa0e71e5ffc0c16a1d4fa58802a36a1c..0d451ca5574df7dba18505ef3404bd62daf24c6b:/perl/SWList.pm

diff --git a/perl/SWList.pm b/perl/SWList.pm
index e2e83be..d69d51e 100644
--- a/perl/SWList.pm
+++ b/perl/SWList.pm
@@ -1,6 +1,6 @@
 # -*-perl-*-
 #
-# $Id: SWList.pm,v 1.1 1999/07/30 18:46:37 mdw Exp $
+# $Id: SWList.pm,v 1.3 2004/04/08 01:52:19 mdw Exp $
 #
 # Create the main list of installed packages
 #
@@ -25,13 +25,6 @@
 # along with sw-tools; if not, write to the Free Software Foundation,
 # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-#----- Revision history -----------------------------------------------------
-#
-# $Log: SWList.pm,v $
-# Revision 1.1  1999/07/30 18:46:37  mdw
-# New CGI script for browsing installed software and documentation.
-#
-
 #----- Package header -------------------------------------------------------
 
 package SWList;
@@ -197,7 +190,8 @@ EOF
     # --- If the documentation file exists, put a link in ---
 
     if (-r "$C{doc}/$pkg") {
-      print("  <td><a href=\"$ref?act=doc&pkg=$pkg\">Yes</a>\n");
+      printf("  <td><a href=\"$ref?act=doc&pkg=%s\">Yes</a>\n",
+	     SWCGI::sanitize($pkg));
     } else {
       print("  <td>No\n");
     }