开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email客户端 > 查看源码
proto.m4
资源名称：sendmail.8.10.0.Beta10.tar.Z　[点击查看]
上传用户：xu_441
上传日期：2007-01-04
资源大小：1640k
文件大小：66k
源码类别：

Email客户端

开发平台：

Unix_Linux

proto.m4：源码内容
  1. divert(-1)
  2. #
  3. # Copyright (c) 1998, 1999 Sendmail, Inc. and its suppliers.
  4. # All rights reserved.
  5. # Copyright (c) 1983, 1995 Eric P. Allman.  All rights reserved.
  6. # Copyright (c) 1988, 1993
  7. # The Regents of the University of California.  All rights reserved.
  8. #
  9. # By using this file, you agree to the terms and conditions set
  10. # forth in the LICENSE file which can be found at the top level of
  11. # the sendmail distribution.
  12. #
  13. #
  14. divert(0)
  16. VERSIONID(`$Id: proto.m4,v 8.404 1999/12/09 19:06:12 gshapiro Exp $')
  18. MAILER(local)dnl
  20. define(`CF_LEVEL', `9')dnl
  21. # level CF_LEVEL config file format
  22. V`'CF_LEVEL/ifdef(`VENDOR_NAME', `VENDOR_NAME', `Berkeley')
  23. divert(-1)
  25. # do some sanity checking
  26. ifdef(`__OSTYPE__',,
  27. `errprint(`*** ERROR: No system type defined (use OSTYPE macro)
  28. ')')
  30. # pick our default mailers
  31. ifdef(`confSMTP_MAILER',, `define(`confSMTP_MAILER', `esmtp')')
  32. ifdef(`confLOCAL_MAILER',, `define(`confLOCAL_MAILER', `local')')
  33. ifdef(`confRELAY_MAILER',,
  34. `define(`confRELAY_MAILER',
  35. `ifdef(`_MAILER_smtp_', `relay',
  36. `ifdef(`_MAILER_uucp', `uucp-new', `unknown')')')')
  37. ifdef(`confUUCP_MAILER',, `define(`confUUCP_MAILER', `uucp-old')')
  38. define(`_SMTP_', `confSMTP_MAILER')dnl for readability only
  39. define(`_LOCAL_', `confLOCAL_MAILER')dnl for readability only
  40. define(`_RELAY_', `confRELAY_MAILER')dnl for readability only
  41. define(`_UUCP_', `confUUCP_MAILER')dnl for readability only
  43. # back compatibility with old config files
  44. ifdef(`confDEF_GROUP_ID',
  45. `errprint(`*** confDEF_GROUP_ID is obsolete.
  46.     Use confDEF_USER_ID with a colon in the value instead.
  47. ')')
  48. ifdef(`confREAD_TIMEOUT',
  49. `errprint(`*** confREAD_TIMEOUT is obsolete.
  50.     Use individual confTO_<timeout> parameters instead.
  51. ')')
  52. ifdef(`confMESSAGE_TIMEOUT',
  53. `define(`_ARG_', index(confMESSAGE_TIMEOUT, /))
  54.  ifelse(_ARG_, -1,
  55. `define(`confTO_QUEUERETURN', confMESSAGE_TIMEOUT)',
  56. `define(`confTO_QUEUERETURN',
  57. substr(confMESSAGE_TIMEOUT, 0, _ARG_))
  58.  define(`confTO_QUEUEWARN',
  59. substr(confMESSAGE_TIMEOUT, eval(_ARG_+1)))')')
  60. ifdef(`confMIN_FREE_BLOCKS', `ifelse(index(confMIN_FREE_BLOCKS, /), -1,,
  61. `errprint(`*** compound confMIN_FREE_BLOCKS is obsolete.
  62.     Use confMAX_MESSAGE_SIZE for the second part of the value.
  63. ')')')
  66. # Sanity check on ldap_routing feature
  67. # If the user doesn't specify a new map, they better have given as a
  68. # default LDAP specification which has the LDAP base (and most likely the host)
  69. ifdef(`confLDAP_DEFAULT_SPEC',, `ifdef(`_LDAP_ROUTING_WARN_', `errprint(`
  70. WARNING: Using default FEATURE(ldap_routing) map definition(s)
  71. without setting confLDAP_DEFAULT_SPEC option.
  72. ')')')dnl
  74. # clean option definitions below....
  75. define(`_OPTION', `ifdef(`$2', `O $1`'ifelse(defn(`$2'), `',, `=$2')', `#O $1`'ifelse(`$3', `',,`=$3')')')dnl
  77. dnl required to "rename" the check_* rulesets...
  78. define(`_U_',ifdef(`_DELAY_CHECKS_',`',`_'))
  79. divert(0)dnl
  81. # override file safeties - setting this option compromises system security,
  82. # addressing the actual file configuration problem is preferred
  83. # need to set this before any file actions are encountered in the cf file
  84. _OPTION(DontBlameSendmail, `confDONT_BLAME_SENDMAIL', `safe')
  86. # default LDAP map specification
  87. # need to set this now before any LDAP maps are defined
  88. _OPTION(LDAPDefaultSpec, `confLDAP_DEFAULT_SPEC', `-h localhost')
  90. ##################
  91. #   local info   #
  92. ##################
  94. Cwlocalhost
  95. ifdef(`USE_CW_FILE',
  96. `# file containing names of hosts for which we receive email
  97. Fw`'confCW_FILE',
  98. `dnl')
  100. # my official domain name
  101. # ... `define' this only if sendmail cannot automatically determine your domain
  102. ifdef(`confDOMAIN_NAME', `Dj`'confDOMAIN_NAME', `#Dj$w.Foo.COM')
  104. CP.
  106. ifdef(`UUCP_RELAY',
  107. `# UUCP relay host
  108. DY`'UUCP_RELAY
  109. CPUUCP
  111. ')dnl
  112. ifdef(`BITNET_RELAY',
  113. `#  BITNET relay host
  114. DB`'BITNET_RELAY
  115. CPBITNET
  117. ')dnl
  118. ifdef(`DECNET_RELAY',
  119. `define(`_USE_DECNET_SYNTAX_', 1)dnl
  120. # DECnet relay host
  121. DC`'DECNET_RELAY
  122. CPDECNET
  124. ')dnl
  125. ifdef(`FAX_RELAY',
  126. `# FAX relay host
  127. DF`'FAX_RELAY
  128. CPFAX
  130. ')dnl
  131. # "Smart" relay host (may be null)
  132. DS`'ifdef(`SMART_HOST', SMART_HOST)
  134. ifdef(`LUSER_RELAY', `dnl
  135. # place to which unknown users should be forwarded
  136. Kuser user -m -a<>
  137. DL`'LUSER_RELAY',
  138. `dnl')
  140. # operators that cannot be in local usernames (i.e., network indicators)
  141. CO @ % ifdef(`_NO_UUCP_', `', `!')
  143. # a class with just dot (for identifying canonical names)
  144. C..
  146. # a class with just a left bracket (for identifying domain literals)
  147. C[[
  149. ifdef(`_ACCESS_TABLE_', `dnl
  150. # access_db acceptance class
  151. C{Accept}OK RELAY
  152. ifdef(`_DELAY_CHECKS_',`dnl
  153. ifdef(`_BLACKLIST_RCPT_',`dnl
  154. # possible access_db RHS for spam friends/haters
  155. C{SpamTag}SPAMFRIEND SPAMHATER')')',
  156. `dnl')
  158. ifdef(`_ACCEPT_UNRESOLVABLE_DOMAINS_',`dnl',`dnl
  159. # Resolve map (to check if a host exists in check_mail)
  160. Kresolve host -a<OK> -T<TEMP>')
  162. ifdef(`confCR_FILE', `dnl
  163. # Hosts that will permit relaying ($=R)
  164. FR`'confCR_FILE',
  165. `dnl')
  168. # who I send unqualified names to (null means deliver locally)
  169. DR`'ifdef(`LOCAL_RELAY', LOCAL_RELAY)
  171. # who gets all local email traffic ($R has precedence for unqualified names)
  172. DH`'ifdef(`MAIL_HUB', MAIL_HUB)
  174. # dequoting map
  175. Kdequote dequote
  177. divert(0)dnl # end of nullclient diversion
  178. # class E: names that should be exposed as from this host, even if we masquerade
  179. # class L: names that should be delivered locally, even if we have a relay
  180. # class M: domains that should be converted to $M
  181. # class N: domains that should not be converted to $M
  182. #CL root
  183. undivert(5)dnl
  184. ifdef(`_VIRTHOSTS_', `CR$={VirtHost}', `dnl')
  186. # who I masquerade as (null for no masquerading) (see also $=M)
  187. DM`'ifdef(`MASQUERADE_NAME', MASQUERADE_NAME)
  189. # my name for error messages
  190. ifdef(`confMAILER_NAME', `Dn`'confMAILER_NAME', `#DnMAILER-DAEMON')
  192. undivert(6)dnl LOCAL_CONFIG
  193. include(_CF_DIR_`m4/version.m4')
  195. ###############
  196. #   Options   #
  197. ###############
  199. # strip message body to 7 bits on input?
  200. _OPTION(SevenBitInput, `confSEVEN_BIT_INPUT', `False')
  202. # 8-bit data handling
  203. _OPTION(EightBitMode, `confEIGHT_BIT_HANDLING', `adaptive')
  205. # wait for alias file rebuild (default units: minutes)
  206. _OPTION(AliasWait, `confALIAS_WAIT', `5m')
  208. # location of alias file
  209. _OPTION(AliasFile, `ALIAS_FILE', `MAIL_SETTINGS_DIR`'aliases')
  211. # minimum number of free blocks on filesystem
  212. _OPTION(MinFreeBlocks, `confMIN_FREE_BLOCKS', `100')
  214. # maximum message size
  215. _OPTION(MaxMessageSize, `confMAX_MESSAGE_SIZE', `1000000')
  217. # substitution for space (blank) characters
  218. _OPTION(BlankSub, `confBLANK_SUB', `_')
  220. # avoid connecting to "expensive" mailers on initial submission?
  221. _OPTION(HoldExpensive, `confCON_EXPENSIVE', `False')
  223. # checkpoint queue runs after every N successful deliveries
  224. _OPTION(CheckpointInterval, `confCHECKPOINT_INTERVAL', `10')
  226. # default delivery mode
  227. _OPTION(DeliveryMode, `confDELIVERY_MODE', `background')
  229. # automatically rebuild the alias database?
  230. # NOTE: There is a potential for a denial of service attack if this is set.
  231. #       This option is deprecated and will be removed from a future version.
  232. _OPTION(AutoRebuildAliases, `confAUTO_REBUILD', `False')
  234. # error message header/file
  235. _OPTION(ErrorHeader, `confERROR_MESSAGE', `MAIL_SETTINGS_DIR`'error-header')
  237. # error mode
  238. _OPTION(ErrorMode, `confERROR_MODE', `print')
  240. # save Unix-style "From_" lines at top of header?
  241. _OPTION(SaveFromLine, `confSAVE_FROM_LINES', `False')
  243. # temporary file mode
  244. _OPTION(TempFileMode, `confTEMP_FILE_MODE', `0600')
  246. # match recipients against GECOS field?
  247. _OPTION(MatchGECOS, `confMATCH_GECOS', `False')
  249. # maximum hop count
  250. _OPTION(MaxHopCount, `confMAX_HOP', `17')
  252. # location of help file
  253. O HelpFile=ifdef(`HELP_FILE', HELP_FILE, `MAIL_SETTINGS_DIR`'helpfile')
  255. # ignore dots as terminators in incoming messages?
  256. _OPTION(IgnoreDots, `confIGNORE_DOTS', `False')
  258. # name resolver options
  259. _OPTION(ResolverOptions, `confBIND_OPTS', `+AAONLY')
  261. # deliver MIME-encapsulated error messages?
  262. _OPTION(SendMimeErrors, `confMIME_FORMAT_ERRORS', `True')
  264. # Forward file search path
  265. _OPTION(ForwardPath, `confFORWARD_PATH', `/var/forward/$u:$z/.forward.$w:$z/.forward')
  267. # open connection cache size
  268. _OPTION(ConnectionCacheSize, `confMCI_CACHE_SIZE', `2')
  270. # open connection cache timeout
  271. _OPTION(ConnectionCacheTimeout, `confMCI_CACHE_TIMEOUT', `5m')
  273. # persistent host status directory
  274. _OPTION(HostStatusDirectory, `confHOST_STATUS_DIRECTORY', `.hoststat')
  276. # single thread deliveries (requires HostStatusDirectory)?
  277. _OPTION(SingleThreadDelivery, `confSINGLE_THREAD_DELIVERY', `False')
  279. # use Errors-To: header?
  280. _OPTION(UseErrorsTo, `confUSE_ERRORS_TO', `False')
  282. # log level
  283. _OPTION(LogLevel, `confLOG_LEVEL', `10')
  285. # send to me too, even in an alias expansion?
  286. _OPTION(MeToo, `confME_TOO', `True')
  288. # verify RHS in newaliases?
  289. _OPTION(CheckAliases, `confCHECK_ALIASES', `False')
  291. # default messages to old style headers if no special punctuation?
  292. _OPTION(OldStyleHeaders, `confOLD_STYLE_HEADERS', `False')
  294. # SMTP daemon options
  295. ifelse(defn(`confDAEMON_OPTIONS'), `', `dnl',
  296. `errprint(WARNING: `confDAEMON_OPTIONS' is no longer valid.  See cf/README for more information.
  297. )'dnl
  298. `DAEMON_OPTIONS(`confDAEMON_OPTIONS')')
  299. ifelse(defn(`_DPO_'), `', `O DaemonPortOptions=Name=MTA', `_DPO_')
  300. ifdef(`_NO_MSA_', `dnl', `O DaemonPortOptions=Port=587, Name=MSA, M=E')
  302. # SMTP client options
  303. _OPTION(ClientPortOptions, `confCLIENT_OPTIONS', `Address=0.0.0.0')
  305. # privacy flags
  306. _OPTION(PrivacyOptions, `confPRIVACY_FLAGS', `authwarnings')
  308. # who (if anyone) should get extra copies of error messages
  309. _OPTION(PostmasterCopy, `confCOPY_ERRORS_TO', `Postmaster')
  311. # slope of queue-only function
  312. _OPTION(QueueFactor, `confQUEUE_FACTOR', `600000')
  314. # queue directory
  315. O QueueDirectory=ifdef(`QUEUE_DIR', QUEUE_DIR, `/var/spool/mqueue')
  317. # timeouts (many of these)
  318. _OPTION(Timeout.initial, `confTO_INITIAL', `5m')
  319. _OPTION(Timeout.connect, `confTO_CONNECT', `5m')
  320. _OPTION(Timeout.iconnect, `confTO_ICONNECT', `5m')
  321. _OPTION(Timeout.helo, `confTO_HELO', `5m')
  322. _OPTION(Timeout.mail, `confTO_MAIL', `10m')
  323. _OPTION(Timeout.rcpt, `confTO_RCPT', `1h')
  324. _OPTION(Timeout.datainit, `confTO_DATAINIT', `5m')
  325. _OPTION(Timeout.datablock, `confTO_DATABLOCK', `1h')
  326. _OPTION(Timeout.datafinal, `confTO_DATAFINAL', `1h')
  327. _OPTION(Timeout.rset, `confTO_RSET', `5m')
  328. _OPTION(Timeout.quit, `confTO_QUIT', `2m')
  329. _OPTION(Timeout.misc, `confTO_MISC', `2m')
  330. _OPTION(Timeout.command, `confTO_COMMAND', `1h')
  331. _OPTION(Timeout.ident, `confTO_IDENT', `30s')
  332. _OPTION(Timeout.fileopen, `confTO_FILEOPEN', `60s')
  333. _OPTION(Timeout.control, `confTO_CONTROL', `2m')
  334. _OPTION(Timeout.queuereturn, `confTO_QUEUERETURN', `5d')
  335. _OPTION(Timeout.queuereturn.normal, `confTO_QUEUERETURN_NORMAL', `5d')
  336. _OPTION(Timeout.queuereturn.urgent, `confTO_QUEUERETURN_URGENT', `2d')
  337. _OPTION(Timeout.queuereturn.non-urgent, `confTO_QUEUERETURN_NONURGENT', `7d')
  338. _OPTION(Timeout.queuewarn, `confTO_QUEUEWARN', `4h')
  339. _OPTION(Timeout.queuewarn.normal, `confTO_QUEUEWARN_NORMAL', `4h')
  340. _OPTION(Timeout.queuewarn.urgent, `confTO_QUEUEWARN_URGENT', `1h')
  341. _OPTION(Timeout.queuewarn.non-urgent, `confTO_QUEUEWARN_NONURGENT', `12h')
  342. _OPTION(Timeout.hoststatus, `confTO_HOSTSTATUS', `30m')
  343. _OPTION(Timeout.resolver.retrans, `confTO_RESOLVER_RETRANS', `5s')
  344. _OPTION(Timeout.resolver.retrans.first, `confTO_RESOLVER_RETRANS_FIRST', `5s')
  345. _OPTION(Timeout.resolver.retrans.normal, `confTO_RESOLVER_RETRANS_NORMAL', `5s')
  346. _OPTION(Timeout.resolver.retry, `confTO_RESOLVER_RETRY', `4')
  347. _OPTION(Timeout.resolver.retry.first, `confTO_RESOLVER_RETRY_FIRST', `4')
  348. _OPTION(Timeout.resolver.retry.normal, `confTO_RESOLVER_RETRY_NORMAL', `4')
  350. # should we not prune routes in route-addr syntax addresses?
  351. _OPTION(DontPruneRoutes, `confDONT_PRUNE_ROUTES', `False')
  353. # queue up everything before forking?
  354. _OPTION(SuperSafe, `confSAFE_QUEUE', `True')
  356. # status file
  357. O StatusFile=ifdef(`STATUS_FILE', `STATUS_FILE', `MAIL_SETTINGS_DIR`'statistics')
  359. # time zone handling:
  360. #  if undefined, use system default
  361. #  if defined but null, use TZ envariable passed in
  362. #  if defined and non-null, use that info
  363. ifelse(confTIME_ZONE, `USE_SYSTEM', `#O TimeZoneSpec=',
  364. confTIME_ZONE, `USE_TZ', `O TimeZoneSpec=',
  365. `O TimeZoneSpec=confTIME_ZONE')
  367. # default UID (can be username or userid:groupid)
  368. _OPTION(DefaultUser, `confDEF_USER_ID', `mailnull')
  370. # list of locations of user database file (null means no lookup)
  371. _OPTION(UserDatabaseSpec, `confUSERDB_SPEC', `MAIL_SETTINGS_DIR`'userdb')
  373. # fallback MX host
  374. _OPTION(FallbackMXhost, `confFALLBACK_MX', `fall.back.host.net')
  376. # if we are the best MX host for a site, try it directly instead of config err
  377. _OPTION(TryNullMXList, `confTRY_NULL_MX_LIST', `False')
  379. # load average at which we just queue messages
  380. _OPTION(QueueLA, `confQUEUE_LA', `8')
  382. # load average at which we refuse connections
  383. _OPTION(RefuseLA, `confREFUSE_LA', `12')
  385. # maximum number of children we allow at one time
  386. _OPTION(MaxDaemonChildren, `confMAX_DAEMON_CHILDREN', `12')
  388. # maximum number of new connections per second
  389. _OPTION(ConnectionRateThrottle, `confCONNECTION_RATE_THROTTLE', `3')
  391. # work recipient factor
  392. _OPTION(RecipientFactor, `confWORK_RECIPIENT_FACTOR', `30000')
  394. # deliver each queued job in a separate process?
  395. _OPTION(ForkEachJob, `confSEPARATE_PROC', `False')
  397. # work class factor
  398. _OPTION(ClassFactor, `confWORK_CLASS_FACTOR', `1800')
  400. # work time factor
  401. _OPTION(RetryFactor, `confWORK_TIME_FACTOR', `90000')
  403. # shall we sort the queue by hostname first?
  404. _OPTION(QueueSortOrder, `confQUEUE_SORT_ORDER', `priority')
  406. # minimum time in queue before retry
  407. _OPTION(MinQueueAge, `confMIN_QUEUE_AGE', `30m')
  409. # default character set
  410. _OPTION(DefaultCharSet, `confDEF_CHAR_SET', `iso-8859-1')
  412. # service switch file (ignored on Solaris, Ultrix, OSF/1, others)
  413. _OPTION(ServiceSwitchFile, `confSERVICE_SWITCH_FILE', `MAIL_SETTINGS_DIR`'service.switch')
  415. # hosts file (normally /etc/hosts)
  416. _OPTION(HostsFile, `confHOSTS_FILE', `/etc/hosts')
  418. # dialup line delay on connection failure
  419. _OPTION(DialDelay, `confDIAL_DELAY', `10s')
  421. # action to take if there are no recipients in the message
  422. _OPTION(NoRecipientAction, `confNO_RCPT_ACTION', `add-to-undisclosed')
  424. # chrooted environment for writing to files
  425. _OPTION(SafeFileEnvironment, `confSAFE_FILE_ENV', `/arch')
  427. # are colons OK in addresses?
  428. _OPTION(ColonOkInAddr, `confCOLON_OK_IN_ADDR', `True')
  430. # how many jobs can you process in the queue?
  431. _OPTION(MaxQueueRunSize, `confMAX_QUEUE_RUN_SIZE', `10000')
  433. # shall I avoid expanding CNAMEs (violates protocols)?
  434. _OPTION(DontExpandCnames, `confDONT_EXPAND_CNAMES', `False')
  436. # SMTP initial login message (old $e macro)
  437. _OPTION(SmtpGreetingMessage, `confSMTP_LOGIN_MSG', `$j Sendmail $v ready at $b')
  439. # UNIX initial From header format (old $l macro)
  440. _OPTION(UnixFromLine, `confFROM_LINE', `From $g $d')
  442. # From: lines that have embedded newlines are unwrapped onto one line
  443. _OPTION(SingleLineFromHeader, `confSINGLE_LINE_FROM_HEADER', `False')
  445. # Allow HELO SMTP command that does not `include' a host name
  446. _OPTION(AllowBogusHELO, `confALLOW_BOGUS_HELO', `False')
  448. # Characters to be quoted in a full name phrase (@,;:()[] are automatic)
  449. _OPTION(MustQuoteChars, `confMUST_QUOTE_CHARS', `.')
  451. # delimiter (operator) characters (old $o macro)
  452. _OPTION(OperatorChars, `confOPERATORS', `.:@[]')
  454. # shall I avoid calling initgroups(3) because of high NIS costs?
  455. _OPTION(DontInitGroups, `confDONT_INIT_GROUPS', `False')
  457. # are group-writable `:include:' and .forward files (un)trustworthy?
  458. _OPTION(UnsafeGroupWrites, `confUNSAFE_GROUP_WRITES', `True')
  460. # where do errors that occur when sending errors get sent?
  461. _OPTION(DoubleBounceAddress, `confDOUBLE_BOUNCE_ADDRESS', `postmaster')
  463. # where to save bounces if all else fails
  464. _OPTION(DeadLetterDrop, `confDEAD_LETTER_DROP', `/var/tmp/dead.letter')
  466. # what user id do we assume for the majority of the processing?
  467. _OPTION(RunAsUser, `confRUN_AS_USER', `sendmail')
  469. # maximum number of recipients per SMTP envelope
  470. _OPTION(MaxRecipientsPerMessage, `confMAX_RCPTS_PER_MESSAGE', `100')
  472. # shall we get local names from our installed interfaces?
  473. _OPTION(DontProbeInterfaces, `confDONT_PROBE_INTERFACES', `False')
  475. # Return-Receipt-To: header implies DSN request
  476. _OPTION(RrtImpliesDsn, `confRRT_IMPLIES_DSN', `False')
  478. # override connection address (for testing)
  479. _OPTION(ConnectOnlyTo, `confCONNECT_ONLY_TO', `0.0.0.0')
  481. # Trusted user for file ownership and starting the daemon
  482. _OPTION(TrustedUser, `confTRUSTED_USER', `root')
  484. # Control socket for daemon management
  485. _OPTION(ControlSocketName, `confCONTROL_SOCKET_NAME', `/var/spool/mqueue/.control')
  487. # Maximum MIME header length to protect MUAs
  488. _OPTION(MaxMimeHeaderLength, `confMAX_MIME_HEADER_LENGTH', `0/0')
  490. # Maximum length of the sum of all headers
  491. _OPTION(MaxHeadersLength, `confMAX_HEADERS_LENGTH', `32768')
  493. # Maximum depth of alias recursion
  494. _OPTION(MaxAliasRecursion, `confMAX_ALIAS_RECURSION', `10')
  496. # location of pid file
  497. _OPTION(PidFile, `confPID_FILE', `/var/run/sendmail.pid')
  499. # Prefix string for the process title shown on 'ps' listings
  500. _OPTION(ProcessTitlePrefix, `confPROCESS_TITLE_PREFIX', `prefix')
  502. # Data file (df) memory-buffer file maximum size
  503. _OPTION(DataFileBufferSize, `confDF_BUFFER_SIZE', `4096')
  505. # Transcript file (xf) memory-buffer file maximum size
  506. _OPTION(XscriptFileBufferSize, `confXF_BUFFER_SIZE', `4096')
  508. # list of authentication mechanisms
  509. _OPTION(AuthMechanisms, `confAUTH_MECHANISMS', `GSSAPI KERBEROS_V4 DIGEST-MD5 CRAM-MD5')
  511. # default authentication information for outgoing connections
  512. _OPTION(DefaultAuthInfo, `confDEF_AUTH_INFO', `MAIL_SETTINGS_DIR`'default-auth-info')
  514. # try to authenticate? (Try when available/only when Authenticated)
  515. _OPTION(AuthOptions, `confAUTH_OPTIONS', `T')
  519. ###########################
  520. #   Message precedences   #
  521. ###########################
  523. Pfirst-class=0
  524. Pspecial-delivery=100
  525. Plist=-30
  526. Pbulk=-60
  527. Pjunk=-100
  529. #####################
  530. #   Trusted users   #
  531. #####################
  533. # this is equivalent to setting class "t"
  534. ifdef(`_USE_CT_FILE_', `', `#')Ft`'ifdef(`confCT_FILE', confCT_FILE, `MAIL_SETTINGS_DIR`'trusted-users')
  535. Troot
  536. Tdaemon
  537. ifdef(`_NO_UUCP_', `dnl', `Tuucp')
  538. ifdef(`confTRUSTED_USERS', `T`'confTRUSTED_USERS', `dnl')
  540. #########################
  541. #   Format of headers   #
  542. #########################
  544. ifdef(`confFROM_HEADER',, `define(`confFROM_HEADER', `$?x$x <$g>$|$g$.')')dnl
  545. H?P?Return-Path: <$g>
  546. HReceived: confRECEIVED_HEADER
  547. H?D?Resent-Date: $a
  548. H?D?Date: $a
  549. H?F?Resent-From: confFROM_HEADER
  550. H?F?From: confFROM_HEADER
  551. H?x?Full-Name: $x
  552. # HPosted-Date: $a
  553. # H?l?Received-Date: $b
  554. H?M?Resent-Message-Id: <$t.$i@$j>
  555. H?M?Message-Id: <$t.$i@$j>
  557. #
  558. ######################################################################
  559. ######################################################################
  560. #####
  561. ##### REWRITING RULES
  562. #####
  563. ######################################################################
  564. ######################################################################
  566. ############################################
  567. ###  Ruleset 3 -- Name Canonicalization  ###
  568. ############################################
  569. Scanonify=3
  571. # handle null input (translate to <@> special case)
  572. R$@ $@ <@>
  574. # strip group: syntax (not inside angle brackets!) and trailing semicolon
  575. R$* $: $1 <@> mark addresses
  576. R$* < $* > $* <@> $: $1 < $2 > $3 unmark <addr>
  577. R@ $* <@> $: @ $1 unmark @host:...
  578. R$* :: $* <@> $: $1 :: $2 unmark node::addr
  579. R:`include': $* <@> $: :`include': $1 unmark :`include':...
  580. R$* [ IPv6 $- ] <@> $: $1 [ IPv6 $2 ] unmark IPv6 addr
  581. R$* : $* [ $* ] $: $1 : $2 [ $3 ] <@> remark if leading colon
  582. R$* : $* <@> $: $2 strip colon if marked
  583. R$* <@> $: $1 unmark
  584. R$* ;    $1 strip trailing semi
  585. R$* < $* ; >    $1 < $2 > bogus bracketed semi
  587. # null input now results from list:; syntax
  588. R$@ $@ :; <@>
  590. # strip angle brackets -- note RFC733 heuristic to get innermost item
  591. R$* $: < $1 > housekeeping <>
  592. R$+ < $* >    < $2 > strip excess on left
  593. R< $* > $+    < $1 > strip excess on right
  594. R<> $@ < @ > MAIL FROM:<> case
  595. R< $+ > $: $1 remove housekeeping <>
  597. ifdef(`_USE_DEPRECATED_ROUTE_ADDR_',`dnl
  598. # make sure <@a,@b,@c:user@d> syntax is easy to parse -- undone later
  599. R@ $+ , $+ @ $1 : $2 change all "," to ":"
  601. # localize and dispose of route-based addresses
  602. R@ $+ : $+ $@ $>Canonify2 < @$1 > : $2 handle <route-addr>
  603. dnl',`dnl
  604. # strip route address <@a,@b,@c:user@d> -> <user@d>
  605. R@ $+ , $+ $2
  606. R@ $+ : $+ $2
  607. dnl')
  609. # find focus for list syntax
  610. R $+ : $* ; @ $+ $@ $>Canonify2 $1 : $2 ; < @ $3 > list syntax
  611. R $+ : $* ; $@ $1 : $2; list syntax
  613. # find focus for @ syntax addresses
  614. R$+ @ $+ $: $1 < @ $2 > focus on domain
  615. R$+ < $+ @ $+ > $1 $2 < @ $3 > move gaze right
  616. R$+ < @ $+ > $@ $>Canonify2 $1 < @ $2 > already canonical
  618. # do some sanity checking
  619. R$* < @ $* : $* > $* $1 < @ $2 $3 > $4 nix colons in addrs
  621. ifdef(`_NO_UUCP_', `dnl',
  622. `# convert old-style addresses to a domain-based address
  623. R$- ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > resolve uucp names
  624. R$+ . $- ! $+ $@ $>Canonify2 $3 < @ $1 . $2 > domain uucps
  625. R$+ ! $+ $@ $>Canonify2 $2 < @ $1 .UUCP > uucp subdomains
  626. ')
  627. ifdef(`_USE_DECNET_SYNTAX_',
  628. `# convert node::user addresses into a domain-based address
  629. R$- :: $+ $@ $>Canonify2 $2 < @ $1 .DECNET > resolve DECnet names
  630. R$- . $- :: $+ $@ $>Canonify2 $3 < @ $1.$2 .DECNET > numeric DECnet addr
  631. ',
  632. `dnl')
  633. # if we have % signs, take the rightmost one
  634. R$* % $* $1 @ $2 First make them all @s.
  635. R$* @ $* @ $* $1 % $2 @ $3 Undo all but the last.
  636. R$* @ $* $@ $>Canonify2 $1 < @ $2 > Insert < > and finish
  638. # else we must be a local name
  639. R$* $@ $>Canonify2 $1
  642. ################################################
  643. ###  Ruleset 96 -- bottom half of ruleset 3  ###
  644. ################################################
  646. SCanonify2=96
  648. # handle special cases for local names
  649. R$* < @ localhost > $* $: $1 < @ $j . > $2 no domain at all
  650. R$* < @ localhost . $m > $* $: $1 < @ $j . > $2 local domain
  651. ifdef(`_NO_UUCP_', `dnl',
  652. `R$* < @ localhost . UUCP > $* $: $1 < @ $j . > $2 .UUCP domain')
  654. # check for IPv6 domain literal (save quoted form)
  655. R$* < @ [ IPv6 $- ] > $* $: $2 $| $1 < @@ [ $(dequote $2 $) ] > $3 mark IPv6 addr
  656. R$- $| $* < @@ $=w > $* $: $2 < @ $j . > $4 self-literal
  657. R$- $| $* < @@ [ $+ ] > $* $@ $2 < @ [ IPv6 $1 ] > $4 canon IP addr
  659. # check for IPv4 domain literal
  660. R$* < @ [ $+ ] > $* $: $1 < @@ [ $2 ] > $3 mark [a.b.c.d]
  661. R$* < @@ $=w > $* $: $1 < @ $j . > $3 self-literal
  662. R$* < @@ $+ > $* $@ $1 < @ $2 > $3 canon IP addr
  664. ifdef(`_DOMAIN_TABLE_', `dnl
  665. # look up domains in the domain table
  666. R$* < @ $+ > $*  $: $1 < @ $(domaintable $2 $) > $3', `dnl')
  668. undivert(2)dnl LOCAL_RULE_3
  670. ifdef(`_BITDOMAIN_TABLE_', `dnl
  671. # handle BITNET mapping
  672. R$* < @ $+ .BITNET > $* $: $1 < @ $(bitdomain $2 $: $2.BITNET $) > $3', `dnl')
  674. ifdef(`_UUDOMAIN_TABLE_', `dnl
  675. # handle UUCP mapping
  676. R$* < @ $+ .UUCP > $* $: $1 < @ $(uudomain $2 $: $2.UUCP $) > $3', `dnl')
  678. ifdef(`_NO_UUCP_', `dnl',
  679. `ifdef(`UUCP_RELAY',
  680. `# pass UUCP addresses straight through
  681. R$* < @ $+ . UUCP > $* $@ $1 < @ $2 . UUCP . > $3',
  682. `# if really UUCP, handle it immediately
  683. ifdef(`_CLASS_U_',
  684. `R$* < @ $=U . UUCP > $* $@ $1 < @ $2 . UUCP . > $3', `dnl')
  685. ifdef(`_CLASS_V_',
  686. `R$* < @ $=V . UUCP > $* $@ $1 < @ $2 . UUCP . > $3', `dnl')
  687. ifdef(`_CLASS_W_',
  688. `R$* < @ $=W . UUCP > $* $@ $1 < @ $2 . UUCP . > $3', `dnl')
  689. ifdef(`_CLASS_X_',
  690. `R$* < @ $=X . UUCP > $* $@ $1 < @ $2 . UUCP . > $3', `dnl')
  691. ifdef(`_CLASS_Y_',
  692. `R$* < @ $=Y . UUCP > $* $@ $1 < @ $2 . UUCP . > $3', `dnl')
  694. ifdef(`_NO_CANONIFY_', `dnl', `dnl
  695. # try UUCP traffic as a local address
  696. R$* < @ $+ . UUCP > $* $: $1 < @ $[ $2 $] . UUCP . > $3
  697. R$* < @ $+ . . UUCP . > $* $@ $1 < @ $2 . > $3')
  698. ')')
  699. dnl which daemon flags are set?
  700. R$* $: $&{daemon_flags} $| $1
  701. ifdef(`_NO_CANONIFY_', `dnl
  702. # pass to name server to make hostname canonical if in class Canonify
  703. R$* $| $* < @ $* $={Canonify} > $* $: $2 < @ $[ $3 $4 $] > $5
  704. # pass to name server to make hostname canonical if requested
  705. R$* c $* $| $* < @ $* $~P > $* $: $3 < @ $[ $4 $5 $] > $6
  706. dnl trailing dot? -> do not apply _CANONIFY_HOSTS_
  707. R$* $| $* < @ $+ . > $* $: $2 < @ $3 . > $4
  708. # add a trailing dot to qualified hostnames so other rules will work
  709. R$* $| $* < @ $+.$+ > $* $: $2 < @ $3.$4 . > $5
  710. ifdef(`_CANONIFY_HOSTS_', `dnl
  711. dnl this should only apply to unqualified hostnames
  712. dnl but if a valid character inside an unqualified hostname is an OperatorChar
  713. dnl then $- does not work.
  714. dnl paranoia: avoid looking up hostnames which end in $=P
  715. # lookup unqualified hostnames
  716. R$* $| $* < @ $* $~P > $* $: $2 < @ $[ $3 $4 $] > $5', `dnl')', `dnl
  717. dnl {daemon_flags} contains CC -> do not perform canonicalization!
  718. R$* CC $* $| $* $: $3
  719. # pass to name server to make hostname canonical unless turned off
  720. R$* $| $* < @ $* $~P > $* $: $2 < @ $[ $3 $4 $] > $5')
  721. dnl remove {daemon_flags} for other cases
  722. R$* $| $* $: $2
  724. # local host aliases and pseudo-domains are always canonical
  725. R$* < @ $=w > $* $: $1 < @ $2 . > $3
  726. R$* < @ $j > $* $: $1 < @ $j . > $2
  727. ifdef(`_MASQUERADE_ENTIRE_DOMAIN_',
  728. `R$* < @ $* $=M > $* $: $1 < @ $2 $3 . > $4',
  729. `R$* < @ $=M > $* $: $1 < @ $2 . > $3')
  730. R$* < @ $* $=P > $* $: $1 < @ $2 $3 . > $4
  731. ifdef(`_VIRTUSER_TABLE_', `dnl
  732. dnl virtual hosts are also canonical
  733. ifdef(`_VIRTUSER_ENTIRE_DOMAIN_',
  734. `R$* < @ $* $={VirtHost} > $*  $: $1 < @ $2 $3 . > $4',
  735. `R$* < @ $={VirtHost} > $*  $: $1 < @ $2 . > $3')',
  736. `dnl')
  737. dnl remove superfluous dots (maybe repeatedly) which may have been added
  738. dnl by one of the rules before
  739. R$* < @ $* . . > $* $1 < @ $2 . > $3
  742. ##################################################
  743. ###  Ruleset 4 -- Final Output Post-rewriting  ###
  744. ##################################################
  745. Sfinal=4
  747. R$* <@> $@ handle <> and list:;
  749. # strip trailing dot off possibly canonical name
  750. R$* < @ $+ . > $* $1 < @ $2 > $3
  752. # eliminate internal code
  753. R$* < @ *LOCAL* > $* $1 < @ $j > $2
  755. # externalize local domain info
  756. R$* < $+ > $* $1 $2 $3 defocus
  757. R@ $+ : @ $+ : $+ @ $1 , @ $2 : $3 <route-addr> canonical
  758. R@ $* $@ @ $1 ... and exit
  760. ifdef(`_NO_UUCP_', `dnl',
  761. `# UUCP must always be presented in old form
  762. R$+ @ $- . UUCP $2!$1 u@h.UUCP => h!u')
  764. ifdef(`_USE_DECNET_SYNTAX_',
  765. `# put DECnet back in :: form
  766. R$+ @ $+ . DECNET $2 :: $1 u@h.DECNET => h::u',
  767. `dnl')
  768. # delete duplicate local names
  769. R$+ % $=w @ $=w $1 @ $2 u%host@host => u@host
  773. ##############################################################
  774. ###   Ruleset 97 -- recanonicalize and call ruleset zero   ###
  775. ###    (used for recursive calls)    ###
  776. ##############################################################
  778. SRecurse=97
  779. R$* $: $>canonify $1
  780. R$* $@ $>parse $1
  783. ######################################
  784. ###   Ruleset 0 -- Parse Address   ###
  785. ######################################
  787. Sparse=0
  789. R$* $: $>Parse0 $1 initial parsing
  790. R<@> $#_LOCAL_ $: <@> special case error msgs
  791. R$* $: $>ParseLocal $1 handle local hacks
  792. R$* $: $>Parse1 $1 final parsing
  794. #
  795. #  Parse0 -- do initial syntax checking and eliminate local addresses.
  796. # This should either return with the (possibly modified) input
  797. # or return with a #error mailer.  It should not return with a
  798. # #mailer other than the #error mailer.
  799. #
  801. SParse0
  802. R<@> $@ <@> special case error msgs
  803. R$* : $* ; <@> $#error $@ 5.1.3 $: "553 List:; syntax illegal for recipient addresses"
  804. R@ <@ $* > < @ $1 > catch "@@host" bogosity
  805. R<@ $+> $#error $@ 5.1.3 $: "553 User address required"
  806. R$* $: <> $1
  807. R<> $* < @ [ $+ ] > $* $1 < @ [ $2 ] > $3
  808. R<> $* <$* : $* > $* $#error $@ 5.1.3 $: "553 Colon illegal in host name part"
  809. R<> $* $1
  810. R$* < @ . $* > $* $#error $@ 5.1.2 $: "553 Invalid host name"
  811. R$* < @ $* .. $* > $* $#error $@ 5.1.2 $: "553 Invalid host name"
  813. # now delete the local info -- note $=O to find characters that cause forwarding
  814. R$* < @ > $* $@ $>Parse0 $>canonify $1 user@ => user
  815. R< @ $=w . > : $* $@ $>Parse0 $>canonify $2 @here:... -> ...
  816. R$- < @ $=w . > $: $(dequote $1 $) < @ $2 . > dequote "foo"@here
  817. R< @ $+ > $#error $@ 5.1.3 $: "553 User address required"
  818. R$* $=O $* < @ $=w . > $@ $>Parse0 $>canonify $1 $2 $3 ...@here -> ...
  819. R$-  $: $(dequote $1 $) < @ *LOCAL* > dequote "foo"
  820. R< @ *LOCAL* > $#error $@ 5.1.3 $: "553 User address required"
  821. R$* $=O $* < @ *LOCAL* >
  822. $@ $>Parse0 $>canonify $1 $2 $3 ...@*LOCAL* -> ...
  823. R$* < @ *LOCAL* > $: $1
  825. #
  826. #  Parse1 -- the bottom half of ruleset 0.
  827. #
  829. SParse1
  830. ifdef(`_LDAP_ROUTING_', `dnl
  831. # handle LDAP routing for hosts in $={LDAPRoute}
  832. R$+ < @ $={LDAPRoute} . > $: $>LDAPExpand <$1 < @ $2 . >> <$1 @ $2>',
  833. `dnl')
  835. ifdef(`_MAILER_smtp_',
  836. `# handle numeric address spec
  837. dnl there is no check whether this is really an IP number
  838. R$* < @ [ $+ ] > $* $: $>ParseLocal $1 < @ [ $2 ] > $3 numeric internet spec
  839. R$* < @ [ $+ ] > $* $1 < @ [ $2 ] : $S > $3 Add smart host to path
  840. R$* < @ [ IPv6 $- ] : > $*
  841. $#_SMTP_ $@ [ $(dequote $2 $) ] $: $1 < @ [IPv6 $2 ] > $3 no smarthost: send
  842. R$* < @ [ $+ ] : > $* $#_SMTP_ $@ [$2] $: $1 < @ [$2] > $3 no smarthost: send
  843. R$* < @ [ $+ ] : $- : $*> $* $#$3 $@ $4 $: $1 < @ [$2] > $5 smarthost with mailer
  844. R$* < @ [ $+ ] : $+ > $* $#_SMTP_ $@ $3 $: $1 < @ [$2] > $4 smarthost without mailer',
  845. `dnl')
  847. ifdef(`_VIRTUSER_TABLE_', `dnl
  848. # handle virtual users
  849. R$+ $: <!> $1 Mark for lookup
  850. ifdef(`_VIRTUSER_ENTIRE_DOMAIN_',
  851. `R<!> $+ < @ $* $={VirtHost} . >  $: < $(virtuser $1 @ $2 $3 $@ $1 $: @ $) > $1 < @ $2 $3 . >',
  852. `R<!> $+ < @ $={VirtHost} . >  $: < $(virtuser $1 @ $2 $@ $1 $: @ $) > $1 < @ $2 . >')
  853. R<!> $+ < @ $=w . >  $: < $(virtuser $1 @ $2 $@ $1 $: @ $) > $1 < @ $2 . >
  854. R<@> $+ + $* < @ $* . >
  855. $: < $(virtuser $1 + * @ $3 $@ $1 $@ $2 $: @ $) > $1 + $2 < @ $3 . >
  856. R<@> $+ + $* < @ $* . >
  857. $: < $(virtuser $1 @ $3 $@ $1 $: @ $) > $1 + $2 < @ $3 . >
  858. dnl try default entry: @domain
  859. dnl +detail
  860. R<@> $+ + $* < @ $+ . > $: < $(virtuser @ $3 $@ $1 $@ $2 $: @ $) > $1 + $2 < @ $3 . >
  861. dnl without +detail (or no match)
  862. R<@> $+ < @ $+ . > $: < $(virtuser @ $2 $@ $1 $: @ $) > $1 < @ $2 . >
  863. R<@> $+ $: $1
  864. R<!> $+ $: $1
  865. R< error : $-.$-.$- : $+ > $*  $#error $@ $1.$2.$3 $: $4
  866. R< error : $- $+ > $*  $#error $@ $(dequote $1 $) $: $2
  867. R< $+ > $+ < @ $+ > $: $>Recurse $1',
  868. `dnl')
  870. # short circuit local delivery so forwarded email works
  871. ifdef(`_MAILER_usenet_', `dnl
  872. R$+ . USENET < @ $=w . > $#usenet $: $1 handle usenet specially', `dnl')
  873. ifdef(`_STICKY_LOCAL_DOMAIN_',
  874. `R$+ < @ $=w . > $: < $H > $1 < @ $2 . > first try hub
  875. R< $+ > $+ < $+ > $>MailerToTriple < $1 > $2 < $3 > yep ....
  876. dnl $H empty (but @$=w.)
  877. R< > $+ + $* < $+ > $#_LOCAL_ $: $1 + $2 plussed name?
  878. R< > $+ < $+ > $#_LOCAL_ $: @ $1 nope, local address',
  879. `R$=L < @ $=w . > $#_LOCAL_ $: @ $1 special local names
  880. R$+ < @ $=w . > $#_LOCAL_ $: $1 regular local name')
  882. ifdef(`_MAILER_TABLE_', `dnl
  883. # not local -- try mailer table lookup
  884. R$* <@ $+ > $* $: < $2 > $1 < @ $2 > $3 extract host name
  885. R< $+ . > $* $: < $1 > $2 strip trailing dot
  886. R< $+ > $* $: < $(mailertable $1 $) > $2 lookup
  887. dnl it is $~[ instead of $- to avoid matches on IPv6 addresses
  888. R< $~[ : $* > $*  $>MailerToTriple < $1 : $2 > $3 check -- resolved?
  889. R< $+ > $* $: $>Mailertable <$1> $2 try domain',
  890. `dnl')
  891. undivert(4)dnl UUCP rules from `MAILER(uucp)'
  893. ifdef(`_NO_UUCP_', `dnl',
  894. `# resolve remotely connected UUCP links (if any)
  895. ifdef(`_CLASS_V_',
  896. `R$* < @ $=V . UUCP . > $* $: $>MailerToTriple < $V > $1 <@$2.UUCP.> $3',
  897. `dnl')
  898. ifdef(`_CLASS_W_',
  899. `R$* < @ $=W . UUCP . > $* $: $>MailerToTriple < $W > $1 <@$2.UUCP.> $3',
  900. `dnl')
  901. ifdef(`_CLASS_X_',
  902. `R$* < @ $=X . UUCP . > $* $: $>MailerToTriple < $X > $1 <@$2.UUCP.> $3',
  903. `dnl')')
  905. # resolve fake top level domains by forwarding to other hosts
  906. ifdef(`BITNET_RELAY',
  907. `R$*<@$+.BITNET.>$* $: $>MailerToTriple < $B > $1 <@$2.BITNET.> $3 user@host.BITNET',
  908. `dnl')
  909. ifdef(`DECNET_RELAY',
  910. `R$*<@$+.DECNET.>$* $: $>MailerToTriple < $C > $1 <@$2.DECNET.> $3 user@host.DECNET',
  911. `dnl')
  912. ifdef(`_MAILER_pop_',
  913. `R$+ < @ POP. > $#pop $: $1 user@POP',
  914. `dnl')
  915. ifdef(`_MAILER_fax_',
  916. `R$+ < @ $+ .FAX. > $#fax $@ $2 $: $1 user@host.FAX',
  917. `ifdef(`FAX_RELAY',
  918. `R$*<@$+.FAX.>$* $: $>MailerToTriple < $F > $1 <@$2.FAX.> $3 user@host.FAX',
  919. `dnl')')
  921. ifdef(`UUCP_RELAY',
  922. `# forward non-local UUCP traffic to our UUCP relay
  923. R$*<@$*.UUCP.>$* $: $>MailerToTriple < $Y > $1 <@$2.UUCP.> $3 uucp mail',
  924. `ifdef(`_MAILER_uucp_',
  925. `# forward other UUCP traffic straight to UUCP
  926. R$* < @ $+ .UUCP. > $* $#_UUCP_ $@ $2 $: $1 < @ $2 .UUCP. > $3 user@host.UUCP',
  927. `dnl')')
  928. ifdef(`_MAILER_usenet_', `
  929. # addresses sent to net.group.USENET will get forwarded to a newsgroup
  930. R$+ . USENET $#usenet $: $1',
  931. `dnl')
  933. ifdef(`_LOCAL_RULES_',
  934. `# figure out what should stay in our local mail system
  935. undivert(1)', `dnl')
  937. # pass names that still have a host to a smarthost (if defined)
  938. R$* < @ $* > $* $: $>MailerToTriple < $S > $1 < @ $2 > $3 glue on smarthost name
  940. # deal with other remote names
  941. ifdef(`_MAILER_smtp_',
  942. `R$* < @$* > $* $#_SMTP_ $@ $2 $: $1 < @ $2 > $3 user@host.domain',
  943. `R$* < @$* > $* $#error $@ 5.1.2 $: "553 Unrecognized host name " $2')
  945. # handle locally delivered names
  946. R$=L $#_LOCAL_ $: @ $1 special local names
  947. R$+ $#_LOCAL_ $: $1 regular local names
  949. ###########################################################################
  950. ###   Ruleset 5 -- special rewriting after aliases have been expanded   ###
  951. ###########################################################################
  953. SLocal_localaddr
  954. Slocaladdr=5
  955. R$+ $: $1 $| $>"Local_localaddr" $1
  956. R$+ $| $#$* $#$2
  957. R$+ $| $* $: $1
  959. # deal with plussed users so aliases work nicely
  960. R$+ + * $#_LOCAL_ $@ $&h $: $1
  961. R$+ + $* $#_LOCAL_ $@ + $2 $: $1 + *
  963. # prepend an empty "forward host" on the front
  964. R$+ $: <> $1
  966. ifdef(`LUSER_RELAY', `dnl
  967. # send unrecognized local users to a relay host
  968. R< > $+  $: < $L > $(user $1 $) look up user
  969. R< $* > $+ <> $: < > $2 found; strip $L',
  970. `dnl')
  972. # see if we have a relay or a hub
  973. R< > $+ $: < $H > $1 try hub
  974. R< > $+ $: < $R > $1 try relay
  975. R< > $+ $: < > < $1 <> $&h > nope, restore +detail
  976. R< > < $+ <> + $* > $: < > < $1 + $2 > check whether +detail
  977. R< > < $+ <> $* > $: < > < $1 > else discard
  978. R< > < $+ + $* > $*    < > < $1 > + $2 $3 find the user part
  979. R< > < $+ > + $* $#_LOCAL_ $@ $2 $: @ $1 strip the extra +
  980. R< > < $+ > $@ $1 no +detail
  981. R$+ $: $1 <> $&h add +detail back in
  982. R$+ <> + $* $: $1 + $2 check whether +detail
  983. R$+ <> $* $: $1 else discard
  984. R< local : $* > $* $: $>MailerToTriple < local : $1 > $2 no host extension
  985. R< error : $* > $* $: $>MailerToTriple < error : $1 > $2 no host extension
  986. R< $- : $+ > $+ $: $>MailerToTriple < $1 : $2 > $3 < @ $2 >
  987. R< $+ > $+ $@ $>MailerToTriple < $1 > $2 < @ $1 >
  989. ifdef(`_MAILER_TABLE_', `dnl
  990. ###################################################################
  991. ###  Ruleset 90 -- try domain part of mailertable entry  ###
  992. dnl input: LeftPartOfDomain <RightPartOfDomain> FullAddress
  993. ###################################################################
  995. SMailertable=90
  996. dnl shift and check
  997. dnl %2 is not documented in cf/README
  998. R$* <$- . $+ > $* $: $1$2 < $(mailertable .$3 $@ $1$2 $@ $2 $) > $4
  999. dnl it is $~[ instead of $- to avoid matches on IPv6 addresses
  1000. R$* <$~[ : $* > $* $>MailerToTriple < $2 : $3 > $4 check -- resolved?
  1001. R$* < . $+ > $*  $@ $>Mailertable $1 . <$2> $3 no -- strip & try again
  1002. dnl is $2 always empty?
  1003. R$* < $* > $* $: < $(mailertable . $@ $1$2 $) > $3 try "."
  1004. R< $~[ : $* > $* $>MailerToTriple < $1 : $2 > $3 "." found?
  1005. dnl return full address
  1006. R< $* > $* $@ $2 no mailertable match',
  1007. `dnl')
  1009. ###################################################################
  1010. ###  Ruleset 95 -- canonify mailer:[user@]host syntax to triple ###
  1011. dnl input: in general: <[mailer:]host> lp<@domain>rest
  1012. dnl <> address -> address
  1013. dnl <error:d.s.n:text> -> error
  1014. dnl <error:text> -> error
  1015. dnl <mailer:user@host> lp<@domain>rest -> mailer host user
  1016. dnl <mailer:host> address -> mailer host address
  1017. dnl <localdomain> address -> address
  1018. dnl <[IPv6 number]> address -> relay number address
  1019. dnl <host> address -> relay host address
  1020. ###################################################################
  1022. SMailerToTriple=95
  1023. R< > $* $@ $1 strip off null relay
  1024. R< error : $-.$-.$- : $+ > $*  $#error $@ $1.$2.$3 $: $4
  1025. R< error : $- $+ > $* $#error $@ $(dequote $1 $) $: $2
  1026. R< local : $* > $* $>CanonLocal < $1 > $2
  1027. R< $- : $+ @ $+ > $*<$*>$* $# $1 $@ $3 $: $2<@$3> use literal user
  1028. R< $- : $+ > $* $# $1 $@ $2 $: $3 try qualified mailer
  1029. R< $=w > $* $@ $2 delete local host
  1030. R< [ IPv6 $+ ] > $* $#_RELAY_ $@ $(dequote $1 $) $: $2 use unqualified mailer
  1031. R< $+ > $* $#_RELAY_ $@ $1 $: $2 use unqualified mailer
  1033. ###################################################################
  1034. ###  Ruleset CanonLocal -- canonify local: syntax ###
  1035. dnl input: <user> address
  1036. dnl <x> <@host> : rest -> Recurse rest
  1037. dnl <x> p1 $=O p2 <@host> -> Recurse p1 $=O p2
  1038. dnl <> user <@host> rest -> local user@host user
  1039. dnl <> user -> local user user
  1040. dnl <user@host> lp <@domain> rest -> <user> lp <@host> [cont]
  1041. dnl <user> lp <@host> rest -> local lp@host user
  1042. dnl <user> lp -> local lp user
  1043. ###################################################################
  1045. SCanonLocal
  1046. # strip local host from routed addresses
  1047. R< $* > < @ $+ > : $+ $@ $>Recurse $3
  1048. R< $* > $+ $=O $+ < @ $+ > $@ $>Recurse $2 $3 $4
  1050. # strip trailing dot from any host name that may appear
  1051. R< $* > $* < @ $* . > $: < $1 > $2 < @ $3 >
  1053. # handle local: syntax -- use old user, either with or without host
  1054. R< > $* < @ $* > $* $#_LOCAL_ $@ $1@$2 $: $1
  1055. R< > $+ $#_LOCAL_ $@ $1    $: $1
  1057. # handle local:user@host syntax -- ignore host part
  1058. R< $+ @ $+ > $* < @ $* > $: < $1 > $3 < @ $4 >
  1060. # handle local:user syntax
  1061. R< $+ > $* <@ $* > $* $#_LOCAL_ $@ $2@$3 $: $1
  1062. R< $+ > $*  $#_LOCAL_ $@ $2    $: $1
  1064. ###################################################################
  1065. ###  Ruleset 93 -- convert header names to masqueraded form ###
  1066. ###################################################################
  1068. SMasqHdr=93
  1070. ifdef(`_GENERICS_TABLE_', `dnl
  1071. # handle generics database
  1072. ifdef(`_GENERICS_ENTIRE_DOMAIN_',
  1073. dnl if generics should be applied add a @ as mark
  1074. `R$+ < @ $* $=G . > $: < $1@$2$3 > $1 < @ $2$3 . > @ mark',
  1075. `R$+ < @ $=G . > $: < $1@$2 > $1 < @ $2 . > @ mark')
  1076. R$+ < @ *LOCAL* > $: < $1@$j > $1 < @ *LOCAL* > @ mark
  1077. dnl workspace: either user<@domain> or <user@domain> user <@domain> @
  1078. dnl ignore the first case for now
  1079. dnl if it has the mark lookup full address
  1080. R< $+ > $+ < $* > @ $: < $(generics $1 $: @ $1 $) > $2 < $3 >
  1081. dnl workspace: ... or <match|@user@domain> user <@domain>
  1082. dnl no match, try user+detail@domain
  1083. R<@$+ + $* @ $+> $+ < @ $+ >
  1084. $: < $(generics $1+*@$3 $@ $2 $:@$1 + $2@$3 $) >  $4 < @ $5 >
  1085. R<@$+ + $* @ $+> $+ < @ $+ >
  1086. $: < $(generics $1@$3 $: $) > $4 < @ $5 >
  1087. dnl no match, remove mark
  1088. R<@$+ > $+ < @ $+ > $: < > $2 < @ $3 >
  1089. dnl no match, try @domain for exceptions
  1090. R< > $+ < @ $+ . > $: < $(generics @$2 $@ $1 $: $) > $1 < @ $2 . >
  1091. dnl workspace: ... or <match> user <@domain>
  1092. dnl no match, try local part
  1093. R< > $+ < @ $+ >  $: < $(generics $1 $: $) > $1 < @ $2 >
  1094. R< > $+ + $* < @ $+ >  $: < $(generics $1+* $@ $2 $: $) > $1 + $2 < @ $3 >
  1095. R< > $+ + $* < @ $+ >  $: < $(generics $1 $: $) > $1 + $2 < @ $3 >
  1096. R< $* @ $* > $* < $* > $@ $>canonify $1 @ $2 found qualified
  1097. R< $+ > $* < $* > $: $>canonify $1 @ *LOCAL* found unqualified
  1098. R< > $* $: $1 not found',
  1099. `dnl')
  1101. # do not masquerade anything in class N
  1102. R$* < @ $* $=N . > $@ $1 < @ $2 $3 . >
  1104. # special case the users that should be exposed
  1105. R$=E < @ *LOCAL* > $@ $1 < @ $j . > leave exposed
  1106. ifdef(`_MASQUERADE_ENTIRE_DOMAIN_',
  1107. `R$=E < @ $* $=M . > $@ $1 < @ $2 $3 . >',
  1108. `R$=E < @ $=M . > $@ $1 < @ $2 . >')
  1109. ifdef(`_LIMITED_MASQUERADE_', `dnl',
  1110. `R$=E < @ $=w . > $@ $1 < @ $2 . >')
  1112. # handle domain-specific masquerading
  1113. ifdef(`_MASQUERADE_ENTIRE_DOMAIN_',
  1114. `R$* < @ $* $=M . > $* $: $1 < @ $2 $3 . @ $M > $4 convert masqueraded doms',
  1115. `R$* < @ $=M . > $* $: $1 < @ $2 . @ $M > $3 convert masqueraded doms')
  1116. ifdef(`_LIMITED_MASQUERADE_', `dnl',
  1117. `R$* < @ $=w . > $* $: $1 < @ $2 . @ $M > $3')
  1118. R$* < @ *LOCAL* > $* $: $1 < @ $j . @ $M > $2
  1119. R$* < @ $+ @ > $* $: $1 < @ $2 > $3 $M is null
  1120. R$* < @ $+ @ $+ > $* $: $1 < @ $3 . > $4 $M is not null
  1122. ###################################################################
  1123. ###  Ruleset 94 -- convert envelope names to masqueraded form ###
  1124. ###################################################################
  1126. SMasqEnv=94
  1127. ifdef(`_MASQUERADE_ENVELOPE_',
  1128. `R$+ $@ $>MasqHdr $1',
  1129. `R$* < @ *LOCAL* > $* $: $1 < @ $j . > $2')
  1131. ###################################################################
  1132. ###  Ruleset 98 -- local part of ruleset zero (can be null) ###
  1133. ###################################################################
  1135. SParseLocal=98
  1136. undivert(3)dnl LOCAL_RULE_0
  1138. ifdef(`_LDAP_ROUTING_', `dnl
  1139. SLDAPExpand
  1140. # do the LDAP lookups
  1141. R<$+><$+>
  1142. $: <$(ldap_mailroutingaddress $2 $: $)> <$(ldap_mailhost $2 $: $)> <$1> <$2>
  1144. # if mailRoutingAddress and local or non-existant mailHost,
  1145. # return the new mailRoutingAddress
  1146. R< $+ > < $=w > < $+ > < $+ > $@ $>Parse0 $>canonify $1
  1147. R< $+ > <  > < $+ > < $+ > $@ $>Parse0 $>canonify $1
  1149. # if mailRoutingAddress and non-local mailHost,
  1150. # relay to mailHost with new mailRoutingAddress
  1151. R< $+ > < $+ > < $+ > < $+ > $#_RELAY_ $@ $2 $: $>canonify $1
  1153. # if no mailRoutingAddress and local mailHost,
  1154. # return original address
  1155. R< > < $=w > <$+> <$+> $@ $2
  1157. # if no mailRoutingAddress and non-local mailHost,
  1158. # relay to mailHost with original address
  1159. R< > < $+ > <$+> <$+> $#_RELAY_ $@ $1 $: $2
  1161. # if no mailRoutingAddress and no mailHost,
  1162. # try @domain
  1163. R< > < > <$+> <$+ @ $+> $@ $>LDAPExpand <$1> <@ $3>
  1165. # if no mailRoutingAddress and no mailHost and this was a domain attempt,
  1166. ifelse(_LDAP_ROUTING_, `_MUST_EXIST_', `dnl
  1167. # user does not exist
  1168. R< > < > <$+> <@ $+> $#error $@ nouser $: "550 User unknown"',
  1169. `dnl
  1170. # return the original address
  1171. R< > < > <$+> <@ $+> $@ $1')',
  1172. `dnl')
  1174. ifelse(substr(confDELIVERY_MODE,0,1), `d', `errprint(`WARNING: Antispam rules not available in deferred delivery mode.
  1175. ')')
  1176. ifdef(`_ACCESS_TABLE_', `dnl
  1177. ######################################################################
  1178. ###  LookUpDomain -- search for domain in access database
  1179. ###
  1180. ### Parameters:
  1181. ### <$1> -- key (domain name)
  1182. ### <$2> -- default (what to return if not found in db)
  1183. dnl must not be empty
  1184. ### <$3> -- passthru (additional data passed unchanged through)
  1185. ### <$4> -- mark (must be <(!|+) single-token>)
  1186. ### ! does lookup only with tag
  1187. ### + does lookup with and without tag
  1188. dnl returns: <default> <passthru>
  1189. dnl  <result> <passthru>
  1190. ######################################################################
  1192. SLookUpDomain
  1193. dnl remove IPv6 mark and dequote address
  1194. dnl it is a bit ugly because it is checked on each "iteration"
  1195. R<[IPv6 $-]> <$+> <$*> <$*> $: <[$(dequote $1 $)]> <$2> <$3> <$4>
  1196. dnl workspace <key> <default> <passthru> <mark>
  1197. dnl lookup with tag (in front, no delimiter here)
  1198. R<$*> <$+> <$*> <$- $-> $: < $(access $5`'_TAG_DELIM_`'$1 $: ? $) > <$1> <$2> <$3> <$4 $5>
  1199. dnl workspace <result-of-lookup|?> <key> <default> <passthru> <mark>
  1200. ifdef(`_FFR_LOOKUPDOTDOMAIN', `dnl omit first component: lookup .rest
  1201. R<?> <$+.$+> <$+> <$*> <$- $-> $: < $(access $5`'_TAG_DELIM_`'.$2 $: ? $) > <$1.$2> <$3> <$4> <$5 $6>', `dnl')
  1202. dnl lookup without tag?
  1203. R<?> <$+> <$+> <$*> <+ $*> $: < $(access $1 $: ? $) > <$1> <$2> <$3> <+ $4>
  1204. ifdef(`_FFR_LOOKUPDOTDOMAIN', `dnl omit first component: lookup .rest
  1205. R<?> <$+.$+> <$+> <$*> <+ $*> $: < $(access .$2 $: ? $) > <$1.$2> <$3> <$4> <+ $5>', `dnl')
  1206. dnl lookup IP address (no check is done whether it is an IP number!)
  1207. R<?> <[$+.$-]> <$+> <$*> <$*> $@ $>LookUpDomain <[$1]> <$3> <$4> <$5>
  1208. dnl lookup IPv6 address
  1209. R<?> <[$+:$-]> <$+> <$*> <$*> $: $>LookUpDomain <[$1]> <$3> <$4> <$5>
  1210. dnl not found, but subdomain: try again
  1211. R<?> <$+.$+> <$+> <$*> <$*> $@ $>LookUpDomain <$2> <$3> <$4> <$5>
  1212. dnl not found, no subdomain: return default
  1213. R<?> <$+> <$+> <$*> <$*> $@ <$2> <$3>
  1214. dnl return result of lookup
  1215. R<$*> <$+> <$+> <$*> <$*> $@ <$1> <$4>
  1217. ######################################################################
  1218. ###  LookUpAddress -- search for host address in access database
  1219. ###
  1220. ### Parameters:
  1221. ### <$1> -- key (dot quadded host address)
  1222. ### <$2> -- default (what to return if not found in db)
  1223. dnl must not be empty
  1224. ### <$3> -- passthru (additional data passed through)
  1225. ### <$4> -- tag (should end with _TAG_DELIM_)
  1226. dnl returns: <default> <passthru>
  1227. dnl <result> <passthru>
  1228. dnl maybe the tag should not include _TAG_DELIM_ to be consistent
  1229. dnl with LookUpDomain?
  1230. ######################################################################
  1232. SLookUpAddress
  1233. R<$+> <$+> <$*> <$*> $: < $(access $4$1 $: ? $) > <$1> <$2> <$3> <$4>
  1234. R<?> <$+> <$+> <$*> <$*> $: < $(access $1 $: ? $) > <$1> <$2> <$3> <$4>
  1235. R<?> <$+:$-> <$+> <$*> <$*> $: $>LookUpAddress <$1> <$3> <$4> <$5>
  1236. R<?> <$+.$-> <$+> <$*> <$*> $@ $>LookUpAddress <$1> <$3> <$4> <$5>
  1237. R<?> <$+> <$+> <$*> <$*> $@ <$2> <$3>
  1238. R<$*> <$+> <$+> <$*> <$*> $@ <$1> <$4>',
  1239. `dnl')
  1241. ######################################################################
  1242. ###  CanonAddr -- Convert an address into a standard form for
  1243. ### relay checking.  Route address syntax is
  1244. ### crudely converted into a %-hack address.
  1245. ###
  1246. ### Parameters:
  1247. ### $1 -- full recipient address
  1248. ###
  1249. ### Returns:
  1250. ### parsed address, not in source route form
  1251. dnl user%host%host<@domain>
  1252. dnl host!user<@domain>
  1253. ######################################################################
  1255. SCanonAddr
  1256. R$* $: $>Parse0 $>canonify $1 make domain canonical
  1257. ifdef(`_USE_DEPRECATED_ROUTE_ADDR_',`dnl
  1258. R< @ $+ > : $* @ $* < @ $1 > : $2 % $3 change @ to % in src route
  1259. R$* < @ $+ > : $* : $* $3 $1 < @ $2 > : $4 change to % hack.
  1260. R$* < @ $+ > : $* $3 $1 < @ $2 >
  1261. dnl')
  1263. ######################################################################
  1264. ###  ParseRecipient -- Strip off hosts in $=R as well as possibly
  1265. ### $* $=m or the access database.
  1266. ### Check user portion for host separators.
  1267. ###
  1268. ### Parameters:
  1269. ### $1 -- full recipient address
  1270. ###
  1271. ### Returns:
  1272. ### parsed, non-local-relaying address
  1273. ######################################################################
  1275. SParseRecipient
  1276. dnl mark and canonify address
  1277. R$* $: <?> $>CanonAddr $1
  1278. R<?> $* < @ $* . > <?> $1 < @ $2 > strip trailing dots
  1279. R<?> $- < @ $* > $: <?> $(dequote $1 $) < @ $2 > dequote local part
  1281. # if no $=O character, no host in the user portion, we are done
  1282. R<?> $* $=O $* < @ $* > $: <NO> $1 $2 $3 < @ $4>
  1283. R<?> $* $@ $1
  1285. ifdef(`_RELAY_ENTIRE_DOMAIN_', `dnl
  1286. # if we relay, check username portion for user%host so host can be checked also
  1287. R<NO> $* < @ $* $=m > $: <RELAY> $1 < @ $2 $3 >', `dnl')
  1289. ifdef(`_RELAY_MX_SERVED_', `dnl
  1290. R<NO> $* < @ $+ > $: <MX> < : $(mxserved $2 $) : > < $1 < @$2 > >
  1291. R<MX> < : $* <TEMP> : > $* $#error $@ 4.7.1 $: "450 Can not check MX records for recipient host " $1
  1292. R<MX> < $* : $=w. : $* > < $+ > $: <RELAY> $4
  1293. R<MX> < : $* : > < $+ > $: <NO> $2', `dnl')
  1295. ifdef(`_RELAY_HOSTS_ONLY_',
  1296. `R<NO> $* < @ $=R > $: <RELAY> $1 < @ $2 >
  1297. ifdef(`_ACCESS_TABLE_', `dnl
  1298. R<NO> $* < @ $+ > $: <$(access To:$2 $: NO $)> $1 < @ $2 >
  1299. R<NO> $* < @ $+ > $: <$(access $2 $: NO $)> $1 < @ $2 >',`dnl')',
  1300. `R<NO> $* < @ $* $=R > $: <RELAY> $1 < @ $2 $3 >
  1301. ifdef(`_ACCESS_TABLE_', `dnl
  1302. R<NO> $* < @ $+ > $: $>LookUpDomain <$2> <NO> <$1 < @ $2 >> <+To>
  1303. R<$+> <$+> $: <$1> $2',`dnl')')
  1305. R<RELAY> $* < @ $* > $@ $>ParseRecipient $1
  1306. R<$-> $* $@ $2
  1309. ######################################################################
  1310. ###  check_relay -- check hostname/address on SMTP startup
  1311. ######################################################################
  1313. SLocal_check_relay
  1314. Scheck`'_U_`'relay
  1315. R$* $: $1 $| $>"Local_check_relay" $1
  1316. R$* $| $* $| $#$* $#$3
  1317. R$* $| $* $| $* $@ $>"Basic_check_relay" $1 $| $2
  1319. SBasic_check_relay
  1320. # check for deferred delivery mode
  1321. R$* $: < ${deliveryMode} > $1
  1322. R< d > $* $@ deferred
  1323. R< $* > $* $: $2
  1325. ifdef(`_ACCESS_TABLE_', `dnl
  1326. R$+ $| $+ $: $>LookUpDomain < $1 > <?> < $2 > <+Connect>
  1327. R<?> <$+> $: $>LookUpAddress < $1 > <?> < $1 > <Connect:> no: another lookup
  1328. R<?> < $+ > $: $1 found nothing
  1329. R<$={Accept}> < $* > $@ $1
  1330. R<REJECT> $* $#error ifdef(`confREJECT_MSG', `$: "confREJECT_MSG"', `$@ 5.7.1 $: "550 Access denied"')
  1331. R<DISCARD> $* $#discard $: discard
  1332. dnl error tag
  1333. R<ERROR:$-.$-.$-:$+> $* $#error $@ $1.$2.$3 $: $4
  1334. R<ERROR:$+> $* $#error $: $1
  1335. dnl generic error from access map
  1336. R<$+> $* $#error $: $1', `dnl')
  1338. ifdef(`_RBL_',`dnl
  1339. # DNS based IP address spam list
  1340. R$* $: $&{client_addr}
  1341. R::ffff:$-.$-.$-.$- $: <?> $(host $4.$3.$2.$1._RBL_. $: OK $)
  1342. R$-.$-.$-.$- $: <?> $(host $4.$3.$2.$1._RBL_. $: OK $)
  1343. R<?>OK $: OKSOFAR
  1344. R<?>$+ $#error $@ 5.7.1 $: "550 Mail from " $&{client_addr} " refused by blackhole site _RBL_"',
  1345. `dnl')
  1346. undivert(8)
  1348. ######################################################################
  1349. ###  check_mail -- check SMTP ``MAIL FROM:'' command argument
  1350. ######################################################################
  1352. SLocal_check_mail
  1353. Scheck`'_U_`'mail
  1354. R$* $: $1 $| $>"Local_check_mail" $1
  1355. R$* $| $#$* $#$2
  1356. R$* $| $* $@ $>"Basic_check_mail" $1
  1358. SBasic_check_mail
  1359. # check for deferred delivery mode
  1360. R$* $: < ${deliveryMode} > $1
  1361. R< d > $* $@ deferred
  1362. R< $* > $* $: $2
  1364. dnl workspace: address as given by MAIL FROM:
  1365. R<> $@ <OK> we MUST accept <> (RFC 1123)
  1366. ifdef(`_ACCEPT_UNQUALIFIED_SENDERS_',`dnl',`dnl
  1367. dnl do some additional checks
  1368. dnl no user@host
  1369. dnl no user@localhost (if nonlocal sender)
  1370. dnl this is a pretty simple canonification, it will not catch every case
  1371. dnl just make sure the address has <> around it (which is required by
  1372. dnl the RFC anyway, maybe we should complain if they are missing...)
  1373. dnl dirty trick: if it is user@host, just add a dot: user@host. this will
  1374. dnl not be modified by host lookups.
  1375. R$+ $: <?> $1
  1376. R<?><$+> $: <@> <$1>
  1377. R<?>$+ $: <@> <$1>
  1378. dnl workspace: <@> <address>
  1379. dnl prepend daemon_flags
  1380. R$* $: $&{daemon_flags} $| $1
  1381. dnl workspace: ${daemon_flags} $| <@> <address>
  1382. dnl do not allow these at all or only from local systems?
  1383. R$* f $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 >
  1384. dnl accept unqualified sender: change mark to avoid test
  1385. R$* u $* $| <@> < $* > $: <?> < $3 >
  1386. dnl workspace: ${daemon_flags} $| <@> <address>
  1387. dnl        or:                    <? ${client_name} > <address>
  1388. dnl        or:                    <?> <address>
  1389. dnl remove daemon_flags
  1390. R$* $| $* $: $2
  1391. # handle case of @localhost on address
  1392. R<@> < $* @ localhost > $: < ? $&{client_name} > < $1 @ localhost >
  1393. R<@> < $* @ [127.0.0.1] >
  1394. $: < ? $&{client_name} > < $1 @ [127.0.0.1] >
  1395. R<@> < $* @ localhost.$m >
  1396. $: < ? $&{client_name} > < $1 @ localhost.$m >
  1397. ifdef(`_NO_UUCP_', `dnl',
  1398. `R<@> < $* @ localhost.UUCP >
  1399. $: < ? $&{client_name} > < $1 @ localhost.UUCP >')
  1400. dnl workspace: < ? $&{client_name} > <user@localhost|host>
  1401. dnl or:    <@> <address>
  1402. dnl or:    <?> <address> (thanks to u in ${daemon_flags})
  1403. R<@> $* $: $1 no localhost as domain
  1404. dnl workspace: < ? $&{client_name} > <user@localhost|host>
  1405. dnl or:    <address>
  1406. dnl or:    <?> <address> (thanks to u in ${daemon_flags})
  1407. R<? $=w> $* $: $2 local client: ok
  1408. R<? $+> <$+> $#error $@ 5.5.4 $: "553 Real domain name required"
  1409. dnl remove <?> (happens only if ${client_name} == "" or u in ${daemon_flags})
  1410. R<?> $* $: $1')
  1411. dnl workspace: address (or <address>)
  1412. R$* $: <?> $>CanonAddr $1 canonify sender address and mark it
  1413. dnl workspace: <?> CanonicalAddress (i.e. address in canonical form localpart<@host>)
  1414. dnl there is nothing behind the <@host> so no trailing $* needed
  1415. R<?> $* < @ $+ . > <?> $1 < @ $2 > strip trailing dots
  1416. # handle non-DNS hostnames (*.bitnet, *.decnet, *.uucp, etc)
  1417. R<?> $* < @ $* $=P > $: <OK> $1 < @ $2 $3 >
  1418. dnl workspace <mark> CanonicalAddress where mark is ? or OK
  1419. ifdef(`_ACCEPT_UNRESOLVABLE_DOMAINS_',
  1420. `R<?> $* < @ $+ > $: <OK> $1 < @ $2 > ... unresolvable OK',
  1421. `R<?> $* < @ $+ > $: <? $(resolve $2 $: $2 <PERM> $) > $1 < @ $2 >
  1422. R<? $* <$->> $* < @ $+ >
  1423. $: <$2> $3 < @ $4 >')
  1424. dnl workspace <mark> CanonicalAddress where mark is ?, OK, PERM, TEMP
  1425. dnl mark is ? iff the address is user (wo @domain)
  1427. ifdef(`_ACCESS_TABLE_', `dnl
  1428. # check sender address: user@address, user@, @address
  1429. dnl should we remove +ext from user?
  1430. dnl workspace: <mark> CanonicalAddress where mark is: ?, OK, PERM, TEMP
  1431. R<$+> $+ < @ $* > $: @<$1> <$2 < @ $3 >> $| <F:$2@$3> <U:$2@> <H:$3>
  1432. R<$+> $+ $: @<$1> <$2> $| <U:$2@>
  1433. dnl workspace: @<mark> <CanonicalAddress> $| <@type:address> ....
  1434. dnl $| is used as delimiter, otherwise false matches may occur: <user<@domain>>
  1435. dnl will only return user<@domain when "reversing" the args
  1436. R@ <$+> <$*> $| <$+> $: <@> <$1> <$2> $| $>SearchList <+From> $| <$3> <>
  1437. dnl workspace: <@><mark> <CanonicalAddress> $| <result>
  1438. R<@> <$+> <$*> $| <$*> $: <$3> <$1> <$2> reverse result
  1439. dnl workspace: <result> <mark> <CanonicalAddress>
  1440. # retransform for further use
  1441. dnl required form:
  1442. dnl <ResultOfLookup|mark> CanonicalAddress
  1443. R<?> <$+> <$*> $: <$1> $2 no match
  1444. R<$+> <$+> <$*> $: <$1> $3 relevant result, keep it', `dnl')
  1445. dnl workspace <ResultOfLookup|mark> CanonicalAddress
  1446. dnl mark is ? iff the address is user (wo @domain)
  1448. ifdef(`_ACCEPT_UNQUALIFIED_SENDERS_',`dnl',`dnl
  1449. # handle case of no @domain on address
  1450. dnl prepend daemon_flags
  1451. R<?> $* $: $&{daemon_flags} $| <?> $1
  1452. dnl accept unqualified sender: change mark to avoid test
  1453. R$* u $* $| <?> $* $: <OK> $3
  1454. dnl remove daemon_flags
  1455. R$* $| $* $: $2
  1456. R<?> $* $: < ? $&{client_name} > $1
  1457. R<?> $* $@ <OK> ...local unqualed ok
  1458. R<? $+> $* $#error $@ 5.5.4 $: "553 Domain name required"
  1459. ...remote is not')
  1460. # check results
  1461. R<?> $* $: @ $1 mark address: nothing known about it
  1462. R<OK> $* $@ <OK>
  1463. R<TEMP> $* $#error $@ 4.1.8 $: "451 Sender domain must resolve"
  1464. R<PERM> $* $#error $@ 5.1.8 $: "501 Sender domain must exist"
  1465. ifdef(`_ACCESS_TABLE_', `dnl
  1466. R<$={Accept}> $* $@ $1
  1467. R<DISCARD> $* $#discard $: discard
  1468. R<REJECT> $* $#error ifdef(`confREJECT_MSG', `$: "confREJECT_MSG"', `$@ 5.7.1 $: "550 Access denied"')
  1469. dnl error tag
  1470. R<ERROR:$-.$-.$-:$+> $* $#error $@ $1.$2.$3 $: $4
  1471. R<ERROR:$+> $* $#error $: $1
  1472. dnl generic error from access map
  1473. R<$+> $* $#error $: $1 error from access db',
  1474. `dnl')
  1476. ######################################################################
  1477. ###  check_rcpt -- check SMTP ``RCPT TO:'' command argument
  1478. ######################################################################
  1480. SLocal_check_rcpt
  1481. Scheck`'_U_`'rcpt
  1482. R$* $: $1 $| $>"Local_check_rcpt" $1
  1483. R$* $| $#$* $#$2
  1484. R$* $| $* $@ $>"Basic_check_rcpt" $1
  1486. SBasic_check_rcpt
  1487. # check for deferred delivery mode
  1488. R$* $: < ${deliveryMode} > $1
  1489. R< d > $* $@ deferred
  1490. R< $* > $* $: $2
  1492. ifdef(`_REQUIRE_QUAL_RCPT_', `dnl
  1493. # require qualified recipient?
  1494. R$+ $: <?> $1
  1495. R<?><$+> $: <@> <$1>
  1496. R<?>$+ $: <@> <$1>
  1497. dnl prepend daemon_flags
  1498. R$* $: $&{daemon_flags} $| $1
  1499. dnl workspace: ${daemon_flags} $| <@> <address>
  1500. dnl do not allow these at all or only from local systems?
  1501. R$* r $* $| <@> < $* @ $- > $: < ? $&{client_name} > < $3 @ $4 >
  1502. R<?> < $* > $: <$1>
  1503. R<? $=w> < $* > $: <$1>
  1504. R<? $+> <$+> $#error $@ 5.5.4 $: "553 Domain name required"
  1505. dnl remove daemon_flags for other cases
  1506. R$* $| <@> $* $: $2', `dnl')
  1508. ifdef(`_LOOSE_RELAY_CHECK_',`dnl
  1509. R$* $: $>CanonAddr $1
  1510. R$* < @ $* . > $1 < @ $2 > strip trailing dots',
  1511. `R$* $: $>ParseRecipient $1 strip relayable hosts')
  1513. ifdef(`_BESTMX_IS_LOCAL_',`dnl
  1514. ifelse(_BESTMX_IS_LOCAL_, `', `dnl
  1515. # unlimited bestmx
  1516. R$* < @ $* > $* $: $1 < @ $2 @@ $(bestmx $2 $) > $3',
  1517. `dnl
  1518. # limit bestmx to $=B
  1519. R$* < @ $* $=B > $* $: $1 < @ $2 $3 @@ $(bestmx $2 $3 $) > $4')
  1520. R$* $=O $* < @ $* @@ $=w . > $* $@ $>Basic_check_rcpt $1 $2 $3
  1521. R$* < @ $* @@ $=w . > $* $: $1 < @ $3 > $4
  1522. R$* < @ $* @@ $* > $* $: $1 < @ $2 > $4')
  1524. ifdef(`_BLACKLIST_RCPT_',`dnl
  1525. ifdef(`_ACCESS_TABLE_', `dnl
  1526. # blacklist local users or any host from receiving mail
  1527. R$* $: <?> $1
  1528. dnl user is now tagged with @ to be consistent with check_mail
  1529. dnl and to distinguish users from hosts (com would be host, com@ would be user)
  1530. R<?> $+ < @ $=w > $: <> <$1 < @ $2 >> $| <F:$1@$2> <U:$1@>
  1531. R<?> $+ < @ $* > $: <> <$1 < @ $2 >> $| <F:$1@$2> <H:$2>
  1532. R<?> $+ $: <> <$1> $| <U:$1@>
  1533. dnl $| is used as delimiter, otherwise false matches may occur: <user<@domain>>
  1534. dnl will only return user<@domain when "reversing" the args
  1535. R<> <$*> $| <$+> $: <@> <$1> $| $>SearchList <+To> $| <$2> <>
  1536. R<@> <$*> $| <$*> $: <$2> <$1> reverse result
  1537. R<?> <$*> $: @ $1 mark address as no match
  1538. R<$={Accept}> <$*> $: @ $2 mark address as no match
  1539. ifdef(`_DELAY_CHECKS_',`dnl
  1540. dnl we have to filter these because otherwise they would be interpreted
  1541. dnl as generic error message...
  1542. dnl error messages should be "tagged" by prefixing them with error: !
  1543. dnl that would make a lot of things easier.
  1544. dnl maybe we should stop checks already here (if SPAM_xyx)?
  1545. R<$={SpamTag}> <$*> $: @ $2 mark address as no match')
  1546. R<REJECT> $* $#error $@ 5.2.1 $: "550 Mailbox disabled for this recipient"
  1547. R<DISCARD> $* $#discard $: discard
  1548. dnl error tag
  1549. R<ERROR:$-.$-.$-:$+> $* $#error $@ $1.$2.$3 $: $4
  1550. R<ERROR:$+> $* $#error $: $1
  1551. dnl generic error from access map
  1552. R<$+> $* $#error $: $1 error from access db
  1553. R@ $* $1 remove mark', `dnl')', `dnl')
  1555. ifdef(`_PROMISCUOUS_RELAY_', `divert(-1)')
  1556. # authenticated by a trusted mechanism?
  1557. R$* $: $1 $| $&{auth_type}
  1558. dnl empty ${auth_type}?
  1559. R$* $| $: $1
  1560. dnl mechanism ${auth_type} accepted?
  1561. R$* $| $={TrustAuthMech} $@ RELAYAUTH
  1562. dnl undo addition of ${auth_type}
  1563. R$* $| $* $: $1
  1564. ifelse(defn(`_NO_UUCP_'), `r',
  1565. `R$* ! $* < @ $* > $: <REMOTE> $2 < @ BANG_PATH >', `dnl')
  1566. # anything terminating locally is ok
  1567. ifdef(`_RELAY_ENTIRE_DOMAIN_', `dnl
  1568. R$+ < @ $* $=m > $@ RELAYTO', `dnl')
  1569. R$+ < @ $=w > $@ RELAYTO
  1570. ifdef(`_RELAY_HOSTS_ONLY_',
  1571. `R$+ < @ $=R > $@ RELAYTO
  1572. ifdef(`_ACCESS_TABLE_', `dnl
  1573. R$+ < @ $+ > $: <$(access To:$2 $: ? $)> <$1 < @ $2 >>
  1574. R$+ < @ $+ > $: <$(access $2 $: ? $)> <$1 < @ $2 >>',`dnl')',
  1575. `R$+ < @ $* $=R > $@ RELAYTO
  1576. ifdef(`_ACCESS_TABLE_', `dnl
  1577. R$+ < @ $+ > $: $>LookUpDomain <$2> <?> <$1 < @ $2 >> <+To>',`dnl')')
  1578. ifdef(`_ACCESS_TABLE_', `dnl
  1579. R<RELAY> $* $@ RELAYTO
  1580. R<$*> <$*> $: $2',`dnl')
  1582. ifdef(`_RELAY_MX_SERVED_', `dnl
  1583. # allow relaying for hosts which we MX serve
  1584. R$+ < @ $+ > $: < : $(mxserved $2 $) : > $1 < @ $2 >
  1585. dnl this must not necessarily happen if the client is checked first...
  1586. R< : $* <TEMP> : > $* $#error $@ 4.7.1 $: "450 Can not check MX records for recipient host " $1
  1587. R<$* : $=w . : $*> $* $@ RELAYTO
  1588. R< : $* : > $* $: $2',
  1589. `dnl')
  1591. # check for local user (i.e. unqualified address)
  1592. R$* $: <?> $1
  1593. R<?> $* < @ $+ > $: <REMOTE> $1 < @ $2 >
  1594. # local user is ok
  1595. dnl is it really? the standard requires user@domain, not just user
  1596. dnl but we should accept it anyway (maybe making it an option:
  1597. dnl RequireFQDN ?)
  1598. dnl postmaster must be accepted without domain (DRUMS)
  1599. ifdef(`_REQUIRE_QUAL_RCPT_', `dnl
  1600. R<?> postmaster $@ TOPOSTMASTER
  1601. # require qualified recipient?
  1602. dnl prepend daemon_flags
  1603. R<?> $+ $: $&{daemon_flags} $| <?> $1
  1604. dnl workspace: ${daemon_flags} $| <?> localpart
  1605. dnl do not allow these at all or only from local systems?
  1606. dnl r flag? add client_name
  1607. R$* r $* $| <?> $+ $: < ? $&{client_name} > <?> $3
  1608. dnl no r flag: relay to local user (only local part)
  1609. # no qualified recipient required
  1610. R$* $| <?> $+ $@ RELAYTOLOCAL
  1611. dnl client_name is empty
  1612. R<?> <?> $+ $@ RELAYTOLOCAL
  1613. dnl client_name is local
  1614. R<? $=w> <?> $+ $@ RELAYTOLOCAL
  1615. dnl client_name is not local
  1616. R<? $+> $+ $#error $@ 5.5.4 $: "553 Domain name required"', `dnl
  1617. dnl no qualified recipient required
  1618. R<?> $+ $@ RELAYTOLOCAL')
  1619. dnl it is a remote user: remove mark and then check client
  1620. R<$+> $* $: $2
  1621. dnl currently the recipient address is not used below
  1623. # anything originating locally is ok
  1624. # check IP address
  1625. R$* $: $&{client_addr}
  1626. R$@ $@ RELAYFROM originated locally
  1627. R0 $@ RELAYFROM originated locally
  1628. R$=R $* $@ RELAYFROM relayable IP address
  1629. ifdef(`_ACCESS_TABLE_', `dnl
  1630. R$* $: $>LookUpAddress <$1> <?> <$1> <Connect:>
  1631. R<RELAY> $*  $@ RELAYFROM relayable IP address
  1632. R<$*> <$*> $: $2', `dnl')
  1633. R$* $: [ $1 ] put brackets around it...
  1634. R$=w $@ RELAYFROM ... and see if it is local
  1636. ifdef(`_RELAY_DB_FROM_', `define(`_RELAY_MAIL_FROM_', `1')')dnl
  1637. ifdef(`_RELAY_LOCAL_FROM_', `define(`_RELAY_MAIL_FROM_', `1')')dnl
  1638. ifdef(`_RELAY_MAIL_FROM_', `dnl
  1639. # check whether FROM is allowed to use system as relay
  1640. R$* $: $1 $| <?> $>CanonAddr $&f
  1641. ifdef(`_RELAY_LOCAL_FROM_', `dnl
  1642. # check whether local FROM is ok
  1643. R$* $| <?> $+ < @ $=w . > $@ RELAYFROMMAIL FROM local', `dnl')
  1644. ifdef(`_RELAY_DB_FROM_', `dnl
  1645. R$* $| <?> $+ < @ $+ . > $1 $| <?> $2 < @ $3 > remove trailing dot
  1646. R$* $| <?> $+ < @ $+ > $: $1 $| $2 < @ $3 > $| $>SearchList <! From> $| <F:$2@$3> ifdef(`_RELAY_DB_FROM_DOMAIN_', `<H:$3>') <>
  1647. R$* $| $* <RELAY> $@ RELAYFROMMAIL RELAY FROM sender ok', `dnl
  1648. ifdef(`_RELAY_DB_FROM_DOMAIN_', `errprint(`*** ERROR: _RELAY_DB_FROM_DOMAIN_ requires _RELAY_DB_FROM_
  1649. ')',
  1650. `dnl')
  1651. dnl')
  1652. R$* $| $* $: $1 restore recipient
  1653. dnl we do not need that right now, but maybe if we add more rules...
  1654. ', `dnl')
  1656. # check client name: first: did it resolve?
  1657. R$* $: < $&{client_resolve} >
  1658. R<TEMP> $#error $@ 4.7.1 $: "450 Relaying temporarily denied. Cannot resolve PTR record for " $&{client_addr}
  1659. R<FORGED> $#error $@ 5.7.1 $: "550 Relaying denied. IP name possibly forged " $&{client_name}
  1660. R<FAIL> $#error $@ 5.7.1 $: "550 Relaying denied. IP name lookup failed " $&{client_name}
  1661. dnl ${client_resolve} should be OK, so go ahead
  1662. R$* $: <?> $&{client_name}
  1663. dnl should not be necessary since it has been done for client_addr already
  1664. R<?> $@ RELAYFROM
  1665. ifdef(`_RELAY_ENTIRE_DOMAIN_', `dnl
  1666. R<?> $* $=m $@ RELAYFROM', `dnl')
  1667. R<?> $=w $@ RELAYFROM
  1668. ifdef(`_RELAY_HOSTS_ONLY_',
  1669. `R<?> $=R $@ RELAYFROM
  1670. ifdef(`_ACCESS_TABLE_', `dnl
  1671. R<?> $* $: <$(access Connect:$1 $: ? $)> <$1>
  1672. R<?> <$*> $: <$(access $1 $: ? $)> <$1>',`dnl')',
  1673. `R<?> $* $=R $@ RELAYFROM
  1674. ifdef(`_ACCESS_TABLE_', `dnl
  1675. R<?> $* $: $>LookUpDomain <$1> <?> <$1> <+Connect>',`dnl')')
  1676. ifdef(`_ACCESS_TABLE_', `dnl
  1677. R<RELAY> $* $@ RELAYFROM
  1678. R<$*> <$*> $: $2',`dnl')
  1680. # anything else is bogus
  1681. R$* $#error $@ 5.7.1 $: "550 Relaying denied"
  1682. divert(0)
  1683. ifdef(`_DELAY_CHECKS_',`dnl
  1684. # turn a canonical address in the form user<@domain>
  1685. # qualify unqual. addresses with $j
  1686. dnl it might have been only user (without <@domain>)
  1687. SFullAddr
  1688. R$* <@ $+ . > $1 <@ $2 >
  1689. R$* <@ $* > $@ $1 <@ $2 >
  1690. R$+ $@ $1 <@ $j >
  1692. # call all necessary rulesets
  1693. Scheck_rcpt
  1694. dnl this test should be in the Basic_check_rcpt ruleset
  1695. dnl which is the correct DSN code?
  1696. # R$@ $#error $@ 5.1.3 $: "553 Recipient address required"
  1697. R$+ $: $1 $| $>checkrcpt $1
  1698. dnl now we can simply stop checks by returning "$# xyz" instead of just "ok"
  1699. R$+ $| $#$* $#$2
  1700. R$+ $| $* $: <?> $>FullAddr $>CanonAddr $1
  1701. ifdef(`_SPAM_FH_',
  1702. `dnl lookup user@ and user@address
  1703. dnl one of the next two rules is supposed to match
  1704. dnl this code has been copied from BLACKLIST... etc
  1705. dnl and simplified by omitting some < >.
  1706. R<?> $+ < @ $=w > $: <> $1 < @ $2 > $| <F: $1@$2 > <U: $1@>
  1707. R<?> $+ < @ $* > $: <> $1 < @ $2 > $| <F: $1@$2 >
  1708. dnl R<?> $@ something_is_very_wrong_here
  1709. # lookup the addresses only with To tag
  1710. R<> $* $| <$+> $: <@> $1 $| $>SearchList <!To> $| <$2> <>
  1711. R<@> $* $| $* $: $2 $1 reverse result
  1712. dnl', `dnl')
  1713. ifdef(`_SPAM_FRIEND_',
  1714. `# is the recipient a spam friend?
  1715. ifdef(`_SPAM_HATER_',
  1716. `errprint(`*** ERROR: define either SpamHater or SpamFriend
  1717. ')', `dnl')
  1718. R<SPAMFRIEND> $+ $@ SPAMFRIEND
  1719. R<$*> $+ $: $2',
  1720. `dnl')
  1721. ifdef(`_SPAM_HATER_',
  1722. `# is the recipient no spam hater?
  1723. R<SPAMHATER> $+ $: $1 spam hater: continue checks
  1724. R<$*> $+ $@ NOSPAMHATER everyone else: stop
  1725. dnl',`dnl')
  1726. dnl run further checks: check_mail
  1727. dnl should we "clean up" $&f?
  1728. R$* $: $1 $| $>checkmail <$&f>
  1729. R$* $| $#$* $#$2
  1730. dnl run further checks: check_relay
  1731. R$* $: $1 $| $>checkrelay $&{client_name} $| $&{client_addr}
  1732. R$* $| $#$* $#$2
  1733. R$* $| $* $: $1
  1734. ', `dnl')
  1735. ifdef(`_ACCESS_TABLE_', `dnl
  1736. ######################################################################
  1737. ###  SearchList: search a list of items in the access map
  1738. ### Parameters:
  1739. ### <exact tag> $| <mark:address> <mark:address> ... <>
  1740. dnl maybe we should have a @ (again) in front of the mark to
  1741. dnl avoid errorneous matches (with error messages?)
  1742. dnl if we can make sure that tag is always a single token
  1743. dnl then we can omit the delimiter $|, otherwise we need it
  1744. dnl to avoid errorneous matchs (first rule: H: if there
  1745. dnl is that mark somewhere in the list, it will be taken).
  1746. dnl moreover, we can do some tricks to enforce lookup with
  1747. dnl the tag only, e.g.:
  1748. ### where "exact" is either "+" or "!":
  1749. ### <+ TAG> lookup with and w/o tag
  1750. ### <! TAG> lookup with tag
  1751. dnl Warning: + and ! should be in OperatorChars (otherwise there must be
  1752. dnl a blank between them and the tag.
  1753. ### possible values for "mark" are:
  1754. ### H: recursive host lookup (LookUpDomain)
  1755. dnl A: recursive address lookup (LookUpAddress) [not yet required]
  1756. ### E: exact lookup, no modifications
  1757. ### F: full lookup, try user+ext@domain and user@domain
  1758. ### U: user lookup, try user+ext and user (input must have trailing @)
  1759. ### return: <RHS of lookup> or <?> (not found)
  1760. ######################################################################
  1762. SSearchList
  1763. # if it is H: do lookup?
  1764. R<$+> $| <H:$+> <$*> $: <$1> $| <@> $>LookUpDomain <$2> <?> <$3> <$1>
  1765. R<$+> $| <@> <$+> <$*> $: <$1> $| <$2> <$3>
  1766. dnl A: NOT YET REQUIRED
  1767. dnl R<$+> $| <A:$+> <$*> $: <$1> $| <@> $>LookUpAddress <$2> <?> <$3> <$1>
  1768. dnl R<$+> $| <@> <$+> <$*> $: <$1> $| <$2> <$3>
  1769. dnl lookup of the item with tag
  1770. dnl this applies to F: U: E:
  1771. R<$- $-> $| <$-:$+> <$*> $: <$1 $2> $| <$(access $2`'_TAG_DELIM_`'$4 $: $3:$4 $)> <$5>
  1772. dnl no match, try without tag
  1773. R<+ $-> $| <$-:$+> <$*> $: <+ $1> $| <$(access $3 $: $2:$3 $)> <$4>
  1774. dnl do we really have to distinguish these cases?
  1775. dnl probably yes, there might be a + in the domain part (is that allowed?)
  1776. R<$- $-> $| <F:$* + $*@$+> <$*> $: <$1 $2> $| <$(access $2`'_TAG_DELIM_`'$3@$5 $: F:$3 + $4@$5$)> <$6>
  1777. R<+ $-> $| <F:$* + $*@$+> <$*> $: <+ $1> $| <$(access $2@$4 $: F:$2 + $3@$4$)> <$5>
  1778. dnl user lookups are always with trailing @
  1779. dnl do not remove the @ from the lookup:
  1780. dnl it is part of the +detail@ which is omitted for the lookup
  1781. R<$- $-> $| <U:$* + $*> <$*> $: <$1 $2> $| <$(access $2`'_TAG_DELIM_`'$3@ $: U:$3 + $4$)> <$5>
  1782. R<+ $-> $| <U:$* + $*> <$*> $: <+ $1> $| <$(access $2@ $: U:$2 + $3$)> <$4>
  1783. dnl special case for ERROR because this matches the input mark:address
  1784. R<$+> $| <ERROR:$+> <> $@ <ERROR:$2>
  1785. dnl no match, try rest of list
  1786. R<$+> $| <$-:$+> <$+> $@ $>SearchList <$1> $| <$4>
  1787. dnl no match, list empty: return failure
  1788. R<$+> $| <$-:$+> <> $@ <?>
  1789. dnl got result, return it
  1790. R<$+> $| <$+> <$*> $@ <$2>
  1791. dnl return result from recursive invocation
  1792. R<$+> $| <$+> $@ <$2>', `dnl')
  1794. # is user trusted to authenticate as someone else?
  1795. dnl AUTH= parameter from MAIL command
  1796. Strust_auth
  1797. R$* $: $&{auth_type} $| $1
  1798. # required by RFC 2554 section 4.
  1799. R$@ $| $* $#error $@ 5.7.1 $: "550 not authenticated"
  1800. dnl seems to be useful...
  1801. R$* $| $&{auth_authen} $@ identical
  1802. dnl call user supplied code
  1803. R$* $| $* $: $1 $| $>"Local_trust_auth" $1
  1804. R$* $| $#$* $#$2
  1805. dnl default: error
  1806. R$* $#error $@ 5.7.1 $: "550 " $&{auth_authen} " not allowed to act as " $&{auth_author}
  1808. dnl empty ruleset definition so it can be called
  1809. SLocal_trust_auth
  1811. undivert(9)dnl LOCAL_RULESETS
  1812. #
  1813. ######################################################################
  1814. ######################################################################
  1815. #####
  1816. `##### MAILER DEFINITIONS'
  1817. #####
  1818. ######################################################################
  1819. ######################################################################
  1820. undivert(7)dnl MAILER_DEFINITIONS