entry=`cdb -q groups.cdb "t:$tag"` || bad "unknown tag $tag"
set -- $entry
case "$SENDER" in $4) ;; *) bad "incorrect sender $SENDER" ;; esac
entry=`cdb -q groups.cdb "t:$tag"` || bad "unknown tag $tag"
set -- $entry
case "$SENDER" in $4) ;; *) bad "incorrect sender $SENDER" ;; esac