chiark / gitweb /
addrcheck: Check incoming mail for valid mailbox names.
[newsgate] / bin / mail
1 #! /bin/sh
2
3 set -e
4 . defs
5
6 [ $# = 1 ] || fail "usage: $0 GROUP"
7 group=$1
8 entry=`cdb -q groups.cdb "g:$group"` || bad "unknown group $group"
9 set -- $entry
10 [ $3 = none ] && bad "posting to mail.$2 forbidden"
11 { echo "To: $3";
12   sed -n ":top; /^$/,\$ b ok
13           /^[Tt][Oo]: / ! b ok; :loop; n; /^ / b loop; b top
14           :ok; p"; } |
15 qmail-inject -a -f$USER-$1@`cat $QMAIL/control/me` $3