File: qmail-scanner.test

package info (click to toggle)
pperl 0.25-5
  • links: PTS
  • area: main
  • in suites: lenny, squeeze
  • size: 296 kB
  • ctags: 40
  • sloc: perl: 868; ansic: 666; makefile: 60; sh: 23
file content (33 lines) | stat: -rwxr-xr-x 680 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!/bin/sh 

spamwho=`whoami`
wrapper="`pwd`/qms-wrapper.$$"

sudo ls > /dev/null

echo using wrapper $wrapper

(   echo "#!/bin/sh"
    echo exec sudo setuidgid qmailq `pwd`/pperl -T -I`pwd`/blib/lib -I`pwd`/blib/arch -- --anyuser --prefork=1 /var/qmail/bin/qmail-scanner-queue.pl
) > "$wrapper"
chmod +x $wrapper

export QMAILQUEUE="$wrapper"

echo banging them through

for x in 1 2 3 4 5 6 7 8 9 10 ; do
    echo -n " $x"
    (   echo From: nobody
	echo To: $spamwho
	echo Subject: test message $x
	echo 
	echo "hello $spamwho - test message $x"
    ) | /var/qmail/bin/qmail-inject
done
echo

rm $wrapper

echo "Killing"
sudo ./pperl -- -k /var/qmail/bin/qmail-scanner-queue.pl