BSD 4_4_Lite1 release
[unix-history] / usr / src / usr.sbin / sendmail / cf / mailer / smtp.m4
index 0e04770..45efbd6 100644 (file)
 PUSHDIVERT(-1)
 #
 # Copyright (c) 1983 Eric P. Allman
 PUSHDIVERT(-1)
 #
 # Copyright (c) 1983 Eric P. Allman
-# Copyright (c) 1988 The Regents of the University of California.
-# All rights reserved.
+# Copyright (c) 1988, 1993
+#      The Regents of the University of California.  All rights reserved.
 #
 #
-# %sccs.include.redist.sh%
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+# 3. All advertising materials mentioning features or use of this software
+#    must display the following acknowledgement:
+#      This product includes software developed by the University of
+#      California, Berkeley and its contributors.
+# 4. Neither the name of the University nor the names of its contributors
+#    may be used to endorse or promote products derived from this software
+#    without specific prior written permission.
 #
 #
+# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+ifdef(`SMTP_MAILER_FLAGS',,
+       `define(`SMTP_MAILER_FLAGS',
+               `ifdef(`_OLD_SENDMAIL_', `L', `')')')
 POPDIVERT
 #####################################
 ###   SMTP Mailer specification   ###
 #####################################
 
 POPDIVERT
 #####################################
 ###   SMTP Mailer specification   ###
 #####################################
 
-VERSIONID(@(#)smtp.m4  2.4 (Berkeley) %G%)
+VERSIONID(`@(#)smtp.m4 8.15 (Berkeley) 2/14/94')
 
 
-Msmtp, P=[IPC], F=mDFMueXLC, S=11, R=21, A=IPC $h, E=\r\n
+Msmtp,         P=[IPC], F=CONCAT(mDFMuX, SMTP_MAILER_FLAGS), S=11/31, R=ifdef(`_ALL_MASQUERADE_', `11/31', `21'), E=\r\n,
+               ifdef(`_OLD_SENDMAIL_',, `L=990, ')ifdef(`SMTP_MAILER_MAX', `M=SMTP_MAILER_MAX, ')A=IPC $h
+Mesmtp,                P=[IPC], F=CONCAT(mDFMuXa, SMTP_MAILER_FLAGS), S=11/31, R=ifdef(`_ALL_MASQUERADE_', `11/31', `21'), E=\r\n,
+               ifdef(`_OLD_SENDMAIL_',, `L=990, ')ifdef(`SMTP_MAILER_MAX', `M=SMTP_MAILER_MAX, ')A=IPC $h
+Mrelay,                P=[IPC], F=CONCAT(mDFMuXa, SMTP_MAILER_FLAGS), S=11/31, R=61, E=\r\n,
+               ifdef(`_OLD_SENDMAIL_',, `L=2040, ')A=IPC $h
 
 
+#
+#  envelope sender and masquerading recipient rewriting
+#
 S11
 S11
+R$+                    $: $>51 $1                      sender/recipient common
+R$* :; <@>             $@ $1 :;                        list:; special case
+R$*                    $@ $>61 $1                      qualify unqual'ed names
 
 
-# do sender/recipient common rewriting
-R$+                    $: $>19 $1
-
-# if already @ qualified, we are done
-R$* < @ $+ > $*                $@ $1 < @ $2 > $3               already qualified
-
-# unqualified names (e.g., "eric") "come from" $M
-R$+                    $: $1 < @ $M >                  user w/o host
-R$+ < @ >              $: $1 < @ $j >                  in case $M undefined
 
 
+#
+#  header recipient rewriting if not masquerading recipients
+#
 S21
 
 # do sender/recipient common rewriting
 S21
 
 # do sender/recipient common rewriting
-R$+                    $: $>19 $1
-
-# if already @ qualified, we are done
-R$* < @ $+ > $*                $@ $1 < @ $2 > $3               already qualified
+R$+                    $: $>51 $1
 
 # unqualified names (e.g., "eric") are qualified by local host
 
 # unqualified names (e.g., "eric") are qualified by local host
-R$+ < @ >              $: $1 < @ $j >
+R$* < @ $* > $*                $@ $1 < @ $2 > $3               already qualified
+R$+                    $: $1 < @ $j >                  add local domain
+
+
+#
+#  header sender and masquerading recipient rewriting
+#
+S31
+R$+                    $: $>51 $1                      sender/recipient common
+R$* :; <@>             $@ $1 :;                        list:; special case
+
+# do special header rewriting
+R$* <@> $*             $@ $1 <@> $2                    pass null host through
+R< @ $* > $*           $@ < @ $1 > $2                  pass route-addr through
+R$=E < @ $=w . >       $@ $1 < @ $2 >                  exposed user as is
+R$* < @ $=w . >                $: $1 < @ $2 @ $M >             masquerade as domain
+R$* < @ $+ @ >         $@ $1 < @ $2 >                  in case $M undefined
+R$* < @ $+ @ $+ >      $@ $1 < @ $3 >                  $M is defined -- use it
+R$*                    $@ $>61 $1                      qualify unqual'ed names
 
 
-S19
+
+#
+#  convert pseudo-domain addresses to real domain addresses
+#
+S51
 
 # pass <route-addr>s through
 R< @ $+ > $*           $@ < @ $1 > $2                  resolve <route-addr>
 
 # output fake domains as user%fake@relay
 ifdef(`BITNET_RELAY',
 
 # pass <route-addr>s through
 R< @ $+ > $*           $@ < @ $1 > $2                  resolve <route-addr>
 
 # output fake domains as user%fake@relay
 ifdef(`BITNET_RELAY',
-`R$+ <@ $+ . BITNET >  $: $1 % $2 .BITNET < @ $B >     user@host.BITNET',
-       `dnl')
-ifdef(`CSNET_RELAY',
-`R$+ <@ $+ . CSNET >   $: $1 % $2 .CSNET < @ $C >      user@host.CSNET',
+`R$+ <@ $+ .BITNET. >  $: $1 % $2 .BITNET < @ $B >     user@host.BITNET
+R$+.BITNET <@ $+:$+ >  $: $1 .BITNET < @ $3 >          strip mailer: part',
        `dnl')
        `dnl')
-R$+ <@ $+ . UUCP >     $: $2 ! $1 < @ $j >             user@host.UUCP
+ifdef(`_NO_UUCP_', `dnl', `
+# do UUCP heuristics; note that these are shared with UUCP mailers
+R$+ < @ $+ .UUCP. >    $: < $2 ! > $1                  convert to UUCP form
+R$+ < @ $* > $*                $@ $1 < @ $2 > $3               not UUCP form
+
+# leave these in .UUCP form to avoid further tampering
+R< $&h ! > $- ! $+     $@ $2 < @ $1 .UUCP. >
+R< $&h ! > $-.$+ ! $+  $@ $3 < @ $1.$2 >
+R< $&h ! > $+          $@ $1 < @ $&h .UUCP. >
+R< $+ ! > $+           $: $1 ! $2 < @ $Y >
+R$+ < @ >              $: $1 < @ $j >                  in case $Y undefined
+R$+ < @ $+ : $+ >      $: $1 < @ $3 >                  strip mailer: part')
+
+
+#
+#  common sender and masquerading recipient rewriting
+#
+S61
+
+R$* < @ $* > $*                $@ $1 < @ $2 > $3               already qualified
+R$=E                   $@ $1 < @ $j>                   show exposed names
+R$+                    $: $1 < @ $M >                  user w/o host
+R$+ <@>                        $: $1 < @ $j >                  in case $M undefined