usr/src/usr.lib/sendmail/cf/tcpm.m4

############################################################
############################################################
#####
#####           Arpanet TCP Mailer specification
#####
#####           @(#)tcpm.m4     3.11            2/24/83
#####
############################################################
############################################################

Mtcp,   P=[IPC], F=msDFMueXL, S=14, R=14, A=IPC $h, E=\r\n

S14

# pass <route-addr>'s through unchanged
R<@$+>$*                $@<@$1>$2                       <route-addr> syntax

# convert the address to old format
R$+                     $:$>5$1                         => old format

# handle the simple case....
R$+<@$-.ARPA>           $@$1<@$2.ARPA>                  user@host.ARPA

# output local hosts in host.user@Berkeley syntax (ugh!)
R$+<@$*LOCAL>           $@$2$1<@$A>                     local names
R$+<@$*$=S>             $@$2$3.$1<@$A>                  local names
R$+<@$*$=Z>             $@$2$3.$1<@$A>                  local names

R$+<@$->                $@$1<@$2>                       no .ARPA on simple names
R$+<@$+.$-.ARPA>        $@$1%$2<@$3.ARPA>               approximate something
R$+<@[$+]>              $@$1<@[$2]>                     already ok
R$+<@$+>                $@$1<@$2>                       hmmmmmmmmm......
R$-:$+                  $@$1.$2<@$A>                    convert berk hosts
R$+                     $:$w.$1<@$A>                    tack on our hostname
R$=R.$+<@$=A>           $2<@$3>                         strip unneeded relay