SUMMARY: generating 2 email messages from one

From: Morry Katz (katz@rpal.rockwell.com)
Date: Tue Jan 29 1991 - 12:26:57 CST


My appologies for yet a 3rd post on this topic; I promise this is the
last. There were a couple subtle bugs in the code I shipped out last
week which did not become apparent until I have been using my hacks
for a couple of days. The following code SHOULD be correct:

sendmail.main.cf:
----------------------------------------------------------------------
############################################################
#
# Sendmail configuration file for "MAIN MACHINES"
#
# You should install this file as /etc/sendmail.cf
# if your machine is the main (or only) mail-relaying
# machine in your domain. Then edit the file to
# customize it for your network configuration.
#
# See the manual "System and Network Administration for the Sun
# Workstation". Look at "Setting Up The Mail Routing System" in
# the chapter on Communications. The Sendmail reference in the
# back of the manual is also useful.
#
# @(#)main.mc 1.17 90/01/04 SMI
#

### local info

# my official hostname
# You have two choices here. If you want the gateway machine to identify
# itself as the DOMAIN, use this line:
Dj$m
# If you want the gateway machine to appear to be INSIDE the domain, use:
#Dj$w.$m
# Unless you are using sendmail.mx (or have a fully-qualified hostname), use:
#Dj$w

# major relay mailer - typical choice is "ddn" if you are on the
# Defense Data Network (e.g. Arpanet or Milnet)
# Changed from DMsmartuucp by mjk on 9-26-90
DMddn

# major relay host: use the $M mailer to send mail to other domains
# Relay mailer set to apple.som by mjk on 9-26-90
DR apple.com
CR apple.com

# If you want to pre-load the "mailhosts" then use a line like
# FS /usr/lib/mailhosts
# and then change all the occurences of $%y to be $=S instead.
# Otherwise, the default is to use the hosts.byname map if NIS
# is running (or else the /etc/hosts file if no NIS).

# valid top-level domains (default passes ALL unknown domains up)
CT arpa com edu gov mil net org
CT us de fr jp kr nz il uk no au fi nl se ca ch my dk ar

# options that you probably want on a mailhost:

# checkpoint the queue after this many receipients
OC10

# refuse to send tiny messages to more than these recipients
Ob10

#################################################
#
# General configuration information

# local domain names
#
# These can now be determined from the domainname system call.
# The first component of the NIS domain name is stripped off unless
# it begins with a dot or a plus sign.
# If your NIS domain is not inside the domain name you would like to have
# appear in your mail headers, add a "Dm" line to define your domain name.
# The Dm value is what is used in outgoing mail. The Cm values are
# accepted in incoming mail. By default Cm is set from Dm, but you might
# want to have more than one Cm line to recognize more than one domain
# name on incoming mail during a transition.
# Example:
# DmCS.Podunk.EDU
# Cm cs cs.Podunk.EDU
#
# known hosts in this domain are obtained from gethostbyname() call

# Added by mjk on 9-26-90
Dmrpal.com
Cm elements elements.rpal.com rpal.com

Fm /usr/local/etc/mail-aliases

# New domain added by mjk on 1-29-91
DNrpal.rockwell.com

# Version number of configuration file
# Changed from DVSMI-4.1 by mjk on 9-26-90
DVrpal-4.1.0

### Standard macros

# name used for error messages
DnMailer-Daemon
# UNIX header format
DlFrom $g $d
# delimiter (operator) characters
Do.:%@!^=/[]
# format of a total name
Dq$g$?x ($x)$.
# SMTP login message
De$j Sendmail $v/$V ready at $b

### Options

# Remote mode - send through server if mailbox directory is mounted
OR
# location of alias file
OA/etc/aliases
# default delivery mode (deliver in background)
Odbackground
# rebuild the alias file automagically
OD
# temporary file mode -- 0600 for secure mail, 0644 for permissive
OF0600
# default GID
Og1
# location of help file
OH/usr/lib/sendmail.hf
# log level
OL9
# default messages to old style
Oo
# Cc my postmaster on error replies I generate
OPPostmaster
# queue directory
OQ/usr/spool/mqueue
# read timeout for SMTP protocols
Or15m
# status file -- none
OS/etc/sendmail.st
# queue up everything before starting transmission, for safety
Os
# return queued mail after this long
OT3d
# default UID
Ou1

### Message precedences
Pfirst-class=0
Pspecial-delivery=100
Pjunk=-100

### Trusted users
T root daemon uucp

### Format of headers
H?P?Return-Path: <$g>
HReceived: $?sfrom $s $.by $j ($v/$V)
        id $i; $b
H?D?Resent-Date: $a
H?D?Date: $a
H?F?Resent-From: $q
H?F?From: $q
H?x?Full-Name: $x
HSubject:
H?M?Resent-Message-Id: <$t.$i@$j>
H?M?Message-Id: <$t.$i@$j>
HErrors-To:

###########################
### Rewriting rules ###
###########################

# Sender Field Pre-rewriting
S1
# None needed.

# Recipient Field Pre-rewriting
S2
# None needed.

# Name Canonicalization

# Internal format of names within the rewriting rules is:
# anything<@host.domain.domain...>anything
# We try to get every kind of name into this format, except for local
# names, which have no host part. The reason for the "<>" stuff is
# that the relevant host name could be on the front of the name (for
# source routing), or on the back (normal form). We enclose the one that
# we want to route on in the <>'s to make it easy to find.
#
S3

# handle "from:<>" special case
R$*<>$* $@@ turn into magic token

# basic textual canonicalization
R$*<$+>$* $2 basic RFC822 parsing

# make sure <@a,@b,@c:user@d> syntax is easy to parse -- undone later
R@$+,$+:$+ @$1:$2:$3 change all "," to ":"
R@$+:$+ $@$>6<@$1>:$2 src route canonical

R$+:$*;@$+ $@$1:$2;@$3 list syntax
R$+@$+ $:$1<@$2> focus on domain
R$+<$+@$+> $1$2<@$3> move gaze right
R$+<@$+> $@$>6$1<@$2> already canonical

# convert old-style names to domain-based names
# All old-style names parse from left to right, without precedence.
R$-!$+ $@$>6$2<@$1.uucp> uucphost!user
R$-.$+!$+ $@$>6$3<@$1.$2> host.domain!user
R$+%$+ $@$>3$1@$2 user%host

# Final Output Post-rewriting
S4
R$+<@$+.uucp> $2!$1 u@h.uucp => h!u
R$+ $: $>9 $1 Clean up addr
R$*<$+>$* $1$2$3 defocus

# Clean up an name for passing to a mailer
# (but leave it focused)
S9
R$=w!@ $@$w!$n
R@ $@$n handle <> error addr
R$*<$*LOCAL>$* $1<$2$N>$3 change local info
R$*<$*OLDDOMAIN>$* $1<$2$N>$3 change local info
R<@$+>$*:$+:$+ <@$1>$2,$3:$4 <route-addr> canonical

#######################
# Rewriting rules

# special local conversions
S6

# The following line was replaced by the subsequent lines by mjk on 11-14-90
#R$*<@$*$=m>$* $1<@$2LOCAL>$4 convert local domain

# Added by mjk for olddomain
Rpamela<@$*$m>$* pamela<@$1$N>$2
R$*<@$*$m>$* $1<@$2OLDDOMAIN>$3
R$*<@$=m>$* $1<@LOCAL>$3 convert mail addressed to our domain
R$*<@$-.$m>$* $1<@$2.LOCAL>$3 convert hosts in our domain but not subdomains

# Local and Program Mailer specification

Mlocal, P=/bin/mail, F=rlsDFMmnP, S=10, R=20, A=mail -d $u
Mprog, P=/bin/sh, F=lsDFMeuP, S=10, R=20, A=sh -c $u

# Inserted by mjk for olddomain
Molddomain, P=/usr/local/bin/olddomain, F=sDFMuxP, S=10, R=20, A=olddomain $g $u
#DFMuxPDFMuxP

S10
# None needed.

S20
# None needed.

############################################################
#####
##### Ethernet Mailer specification
#####
##### Messages processed by this configuration are assumed to remain
##### in the same domain. This really has nothing particular to do
##### with Ethernet - the name is historical.

Mether, P=[TCP], F=msDFMuCX, S=11, R=21, A=TCP $h
S11
R$*<@$+>$* $@$1<@$2>$3 already ok
R$+ $@$1<@$w> tack on our hostname

S21
# None needed.

##########################################################
# General code to convert back to old style UUCP names
S5
R$+<@LOCAL> $@ $w!$1 name@LOCAL => sun!name
R$+<@$-.LOCAL> $@ $2!$1 u@h.LOCAL => h!u
R$+<@$+.uucp> $@ $2!$1 u@h.uucp => h!u
R$+<@$*> $@ $2!$1 u@h => h!u
# Route-addrs do not work here. Punt til uucp-mail comes up with something.
R<@$+>$* $@ @$1$2 just defocus and punt
R$*<$*>$* $@ $1$2$3 Defocus strange stuff

# UUCP Mailer specification

Muucp, P=/usr/bin/uux, F=msDFMhuU, S=13, R=23,
        A=uux - -r -a$f $h!rmail ($u)

# Convert uucp sender (From) field
S13
R$+ $:$>5$1 convert to old style
R$=w!$+ $2 strip local name
R$+ $:$w!$1 stick on real host name

# Convert uucp recipient (To, Cc) fields
S23
R$+ $:$>5$1 convert to old style

############################################################
#
# DDN Mailer specification
#
# Send mail on the Defense Data Network
# (such as Arpanet or Milnet)

Mddn, P=[TCP], F=msDFMuCX, S=22, R=22, A=TCP $h, E=\r\n

# map containing the inverse of mail.aliases
DZmail.byaddr

S22
R$*<@LOCAL>$* $:$1
R$-<@$-> $:$>3${Z$1@$2$} invert aliases
R$*<@$+.$*>$* $@$1<@$2.$3>$4 already ok
R$+<@$+>$* $@$1<@$2.$N>$3 tack on our domain
R$+ $@$1<@$N> tack on our domain

# "Smart" UUCP mailer: Uses UUCP transport but domain-style naming
Msmartuucp, P=/usr/bin/uux, F=CmsDFMhuU, S=22, R=22,
        A=uux - -r $h!rmail ($u)
        

############################################################
#
# RULESET ZERO
#
# This is the ruleset that determines which mailer a name goes to.

# Ruleset 30 just calls rulesets 3 then 0.
S30
R$* $: $>3 $1 First canonicalize
R$* $@ $>0 $1 Then rerun ruleset 0

S0
# On entry, the address has been canonicalized and focused by ruleset 3.
# Handle special cases.....
R@ $#local $:$n handle <> form

# Added by mjk for olddomain
R$*<@$*OLDDOMAIN>$* $#olddomain $@$2$N $:$1<@$2$N>$3

# resolve the local hostname to "LOCAL".
R$*<$*$=w.LOCAL>$* $1<$2LOCAL>$4 thishost.LOCAL
R$*<$*$=w.uucp>$* $1<$2LOCAL>$4 thishost.uucp
R$*<$*$=w>$* $1<$2LOCAL>$4 thishost

# Mail addressed explicitly to the domain gateway (us)
R$*<@LOCAL> $@$>30$1 strip our name, retry
R<@LOCAL>:$+ $@$>30$1 retry after route strip

# For numeric spec, you can't pass spec on to receiver, since old rcvr's
# are not smart enough to know that [x.y.z.a] is their own name.
R<@[$+]>:$* $:$>9 <@[$1]>:$2 Clean it up, then...
R<@[$+]>:$* $#ether $@[$1] $:$2 numeric internet spec
R<@[$+]>,$* $#ether $@[$1] $:$2 numeric internet spec
R$*<@[$+]> $#ether $@[$2] $:$1 numeric internet spec

# deliver to known ethernet hosts explicitly specified in our domain
R$*<@$%y.LOCAL>$* $#ether $@$2 $:$1<@$2>$3 user@host.sun.com

# etherhost.uucp is treated as etherhost.$m for now.
# This allows them to be addressed from uucp as foo!sun!etherhost!user.
R$*<@$%y.uucp>$* $#ether $@$2 $:$1<@$2>$3 user@etherhost.uucp

# Explicitly specified names in our domain -- that we've never heard of
R$*<@$*.LOCAL>$* $#error $:Never heard of host $2 in domain $m

# Clean up addresses for external use -- kills LOCAL, route-addr ,=>:
R$* $:$>9 $1 Then continue...

# resolve UUCP-style names
R<@$-.uucp>:$+ $#uucp $@$1 $:$2 @host.uucp:...
R$+<@$-.uucp> $#uucp $@$2 $:$1 user@host.uucp

# Pass other valid names up the ladder to our forwarder
# Changed from
#R$*<@$*.$=T>$* $#$M $@$R $:$1<@$2.$3>$4 user@domain.known
# by mjk on 10-23-09
R$*<@$*.$=T>$* $#ddn $@ $2.$3 $:$1<@$2.$3>$4 user@domain.known

# Replace following with above to only forward "known" top-level domains
R$*<@$*.$+>$* $#$M $@$R $:$1<@$2.$3>$4 user@any.domain

# if you are on the DDN, then comment-out both of the the lines above
# and use the following instead:
#R$*<@$*.$+>$* $#ddn $@ $2.$3 $:$1<@$2.$3>$4 user@any.domain

# All addresses in the rules ABOVE are absolute (fully qualified domains).
# Addresses BELOW can be partially qualified.

# deliver to known ethernet hosts
R$*<@$%y>$* $#ether $@$2 $:$1<@$2>$3 user@etherhost

# other non-local names have nowhere to go; return them to sender.
R$*<@$+.$->$* $#error $:Unknown domain $3
R$*<@$+>$* $#error $:Never heard of $2 in domain $m
R$*@$* $#error $:I don't understand $1@$2

# Local names with % are really not local!
R$+%$+ $@$>30$1@$2 turn % => @, retry

# everything else is a local name
R$+ $#local $:$1 local names
----------------------------------------------------------------------

/usr/local/bin/olddomain:
----------------------------------------------------------------------
#!/bin/sh
# This script is used in sending a waring message from incoming email
# messages addressed to old rpal.com addresses. It is called by
# /usr/lib/sendmail and relays the original message and the warning
# message ack to sendmail.

SENDER=$1
RECIPIENT=$2

rm -f /usr/spool/mqueue/olddomain.$$ /tmp/olddomain.$$
cat - > /usr/spool/mqueue/olddomain.$$
awk '{print};/^$/{exit}' /usr/spool/mqueue/olddomain.$$ > /tmp/olddomain.$$

/usr/5bin/echo Subject: olddomain\\nReply-to: $SENDER\\n\\n\
You have been sent mail to an rpal.com address. \\n\
Please notify the sender of your new rpal.rockwell.com address. \\n | \
cat - /tmp/olddomain.$$ | /usr/lib/sendmail -oi $RECIPIENT

/usr/lib/sendmail $RECIPIENT</usr/spool/mqueue/olddomain.$$

rm -f /usr/spool/mqueue/olddomain.$$ /tmp/olddomain.$$
----------------------------------------------------------------------

------------------------------------------------------
Morry Katz
Rockwell Science Center
administrator@rpal.rockwell.com (machine administration issues)
katz@rpal.rockwell.com (other)
------------------------------------------------------



This archive was generated by hypermail 2.1.2 : Fri Sep 28 2001 - 23:06:10 CDT