Author: stef-guest
Date: 2008-04-01 21:52:08 +0000 (Tue, 01 Apr 2008)
New Revision: 8465

Modified:
   bin/check-new-issues
Log:
fix escaping of product names

Modified: bin/check-new-issues
===================================================================
--- bin/check-new-issues        2008-04-01 21:36:42 UTC (rev 8464)
+++ bin/check-new-issues        2008-04-01 21:52:08 UTC (rev 8465)
@@ -170,8 +170,9 @@
                elsif ($r=~ /^\.f(.*)$/ ) {
                        my $s = $1;
                        $s =~ s/^\s*(.*?)\s*$/$1/;
+                       $s = quotemeta($s);
                        print "=== apt-file search '$s':\n";
-                       system("apt-file search '$s'|less -FX");
+                       system("apt-file search $s|less -FX");
                        print "===\n";
                        next READ;
                }
@@ -282,8 +283,9 @@
                $prog = $1;
        }
        if ($prog) {
+               my $prog_esc = quotemeta($prog);
                print "doing apt-cache search...";
-               my $ac=`apt-cache search '$prog' |wc -l`;
+               my $ac=`apt-cache search $prog_esc |wc -l`;
                chomp $ac;
                print "\r$ac results from apt-cache search $prog\n";
 
@@ -296,8 +298,9 @@
        }
        if ( $file =~ /(php3?|asp|cgi|pl)$/ ) {
                if (! exists $afcache{$file}) {
+                       my $file_esc = quote_meta($file);
                        print "doing apt-file search...";
-                       $afcache{$file}=`apt-file -i search '$file' |wc -l`;
+                       $afcache{$file}=`apt-file -i search $file_esc |wc -l`;
                        chomp $afcache{$file};
                }
                print "\r$afcache{$file} results from apt-file -i search 
$file\n";


_______________________________________________
Secure-testing-commits mailing list
Secure-testing-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/mailman/listinfo/secure-testing-commits

Reply via email to