divert(-1)
#
# Check local user quote
#
# никаких копирайтов!
#
dnl
divert(0)
dnl
VERSIONID(`$Id: check-quote.m4,v 8.12 2003/02/18 11:18:47 corvax Exp $')
dnl
divert(-1)
dnl
dnl
LOCAL_CONFIG
dnl
dnl
# Default ifelse(defn(`_ARG_'), `', `5000', _ARG_)kB mailbox size limit.
D{MBS} ifelse(defn(`_ARG_'), `', `5000', _ARG_)
Kls program /bin/ls -sk
Kif arith
dnl
divert(-1)
dnl
ifdef(`_CHECK_ENVELOPE_INIT_',,`HACK(`precheck-envelope')')
dnl
dnl
LOCAL_RULESETS
dnl
dnl
######################################################################
#                           Check mailbox size                       #
######################################################################
dnl
SLocal_check_rcpt
dnl
R $+ < @ $=w > $*		$: $>CheckMBSize $1 < $1 < @ $2 > $3 >
R $+ < @ $=w . > $*		$: $>CheckMBSize $1 < $1 < @ $2 > $3 >
dnl
SCheckMBSize
dnl
dnl example:
dnl $>CheckMBSize $1 < $2 >
dnl $1 - предельный размер mailbox
dnl $2 - то, что будет возвращено в случае успешной проверки
dnl
R $- < $* >			$: $&{MBS} $| $(ls "/var/mail/"$1 $: 0 $) $| $2
R $- $| $* $| $*		$: $(if l $@ $1 $@ $2 $) $1 $| $3
R TRUE $- $*			$#error $@ UNAVAILABLE $: 550 Mailbox size exceeds user limit $1k
R $* $| $*			$: $2
dnl