[project @ 2004-01-13 19:01:13 by cjwatson]

Use taint mode.

diff --git a/scripts/spamscan.in b/scripts/spamscan.in
index 25b7a3cb6180cb78c5ed357e76324c6251bbaeaa..15a4c64273d37c1fc1ef6485b9ad525c4e85c040 100755 (executable)
--- a/scripts/spamscan.in
+++ b/scripts/spamscan.in
@@ -1,5 +1,5 @@
-#! /usr/bin/perl
-# $Id: spamscan.in,v 1.1 2004/01/13 18:55:53 cjwatson Exp $
+#! /usr/bin/perl -T
+# $Id: spamscan.in,v 1.2 2004/01/13 19:01:13 cjwatson Exp $
 #
 # Usage: spamscan
 #
@@ -72,7 +72,7 @@ for (;;) {
     if (!@ids) {
        opendir DIR, 'incoming' or die "opendir incoming: $!";
        while (defined($_ = readdir DIR)) {
-           push @ids, $_ if s/^S//;
+           push @ids, $1 if /^S(.*)/;
        }
        last unless @ids;
        @ids = sort @ids;