divert(-1)
#
# Copyright (c) 2003, 2004 Victor Ustugov <victor+sendmail@corvax.kiev.ua>
# This hack is under BSD License 
# Redistributions of source code must retain the above copyright notice
#
# hacks disscussion's maillist - http://www.mta.org.ua/mailman/listinfo/sendmail-conf
#
#
# Check numeric mailboxes
# Проверка цифровых почтовых ящиков
#
# проверка адреса на наличие в нем почтового ящика, содержащего одни цифры или цифры и точки
#
divert(0)
ifdef(`_CHECK_NUMERIC_MAILBOX_INIT_', `dnl', `dnl
VERSIONID(`$Id: check_numeric_mailbox.m4,v 8.12-0.02 2003/09/22 19:20:00 corvax Exp $')dnl
divert(-1)
dnl
ifdef(`_ACCESS_TABLE_', `', `
errprint(`*** ERROR: HACK(check_numeric_mailbox) requires FEATURE(access_db)
')')
dnl
define(`_CHECK_NUMERIC_MAILBOX_INIT_')dnl
dnl
dnl
LOCAL_RULESETS
dnl
dnl
dnl

SCheckNumericMailbox
dnl
# check address for numeric mailbox
R $+ @ $+ .		$: $1 @ $2
R $+ @ $+		$: <?> $1 @ $2
dnl
R <?> $+ @ $+		$: < $(access NumericMailbox:$1@$2 $: ? $) > $1 @ $2
R <?> $+ @ $+		$: < $(access NumericMailbox:$2 $: ? $) > $1 @ $2
dnl
R < OK > $*		$@ OK
R <$*> $+		$: <?> $2
dnl
R <?> $+ @ $+		$: $(allnumbers     $1 $: <?> $1 @ $2 $)
R @MATCH	$#error $: 554 numeric mailbox disabled
R <?> $+ @ $+		$: $(allnumbersdots $1 $: <?> $1 @ $2 $)
R @MATCH	$#error $: 554 numeric mailbox disabled
dnl
R $*			$@ PASSED
dnl
')