[newsgate] / bin / mail

#! /bin/sh

set -e
. defs

[ $# = 1 ] || fail "usage: $0 GROUP"
group=$1
entry=`cdb -q groups.cdb "g:$group"` || bad "unknown group $group"
set -- $entry
[ $3 = none ] && bad "posting to mail.$2 forbidden"
{ echo "To: $3";
  sed -n ":top; /^$/,\$ b ok
          /^[Tt][Oo]: / ! b ok; :loop; n; /^ / b loop; b top
          :ok; p"; } |
qmail-inject -a -f$USER-$1@`cat $QMAIL/control/me` $3
Commit	Line	Data
a682e5d7 MW	1	#! /bin/sh
	2
	3	set -e
	4	. defs
	5
	6	[ $# = 1 ] \|\| fail "usage: $0 GROUP"
	7	group=$1
f56d7124	8	entry=`cdb -q groups.cdb "g:$group"` \|\| bad "unknown group $group"
a682e5d7 MW	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