upas: get rid of broken validatesender example, remove redundant upas/misc and setup target
This commit is contained in:
cinap_lenrek
parent
cd933b2a9c
commit
55f067553a
11 changed files with 0 additions and 183 deletions
52
sys/lib/dist/mail/lib/validatesender
vendored
52
sys/lib/dist/mail/lib/validatesender
vendored
|
|
@ -1,52 +0,0 @@
|
|||
#!/bin/rc
|
||||
|
||||
rfork en
|
||||
fn usage{
|
||||
echo 'usage: validatesender [-n /net] plan9.bell-labs.com glenda' >[1=2]
|
||||
exit usage
|
||||
}
|
||||
|
||||
echo $sysname $pid '$' validatesender $* >>/sys/log/smtpd.mx
|
||||
|
||||
netroot=/net
|
||||
if(~ $1 -n){
|
||||
shift
|
||||
netroot=$1
|
||||
shift
|
||||
}
|
||||
if(! ~ $#* 2)
|
||||
usage
|
||||
|
||||
dom=$1
|
||||
addr=$2
|
||||
|
||||
# Cause some problems
|
||||
if(~ $dom swtch.com && ~ $addr glenda && ! ~ $sysname olive)
|
||||
exit 'deferred: always defer this one'
|
||||
|
||||
# Sites that we have to special case
|
||||
# Lucent only - use external network when mail from external domains
|
||||
# is delivered to us internally. Assume that local domains are fine.
|
||||
#netroot=/net
|
||||
#if(~ $dom *.lucent.com lucent.com *.bell-labs.com bell-labs.com)
|
||||
# exit ''
|
||||
#if(! ~ $sysname ethel)
|
||||
# exit ''
|
||||
#if(~ $sysname ethel){
|
||||
# if(! test -d /net.alt/tcp)
|
||||
# import outside /net.alt
|
||||
# if(test -d /net.alt/tcp)
|
||||
# netroot=/net.alt
|
||||
#}
|
||||
|
||||
if(x=`{upas/smtp -p $netroot/tcp!$dom /dev/null $addr >[2=1] |
|
||||
tee >{sed 's/^/'$sysname' '$pid' /' >> /sys/log/smtpd.mx} |
|
||||
tail -1})
|
||||
exit ''
|
||||
|
||||
smtpstatus=$status
|
||||
if(~ $#x 0)
|
||||
x=$smtpstatus
|
||||
if(~ $smtpstatus *'Permanent Failure'*)
|
||||
exit 'rejected: smtp ping: '^$"x
|
||||
exit 'deferred: smtp ping: '^$"x
|
||||
|
|
@ -1,4 +0,0 @@
|
|||
This is a recorded message. I am currently out of contact with my
|
||||
computer system. Your message to me has been saved and will be
|
||||
read upon my return. This is the last time you will receive this
|
||||
message during my absence. Thank you.
|
||||
|
|
@ -1,12 +0,0 @@
|
|||
#!/bin/rc
|
||||
switch($#*){
|
||||
case 0
|
||||
exec upas/nedmail
|
||||
}
|
||||
|
||||
switch($1){
|
||||
case -f* -r* -c* -m*
|
||||
exec upas/nedmail $*
|
||||
case *
|
||||
exec upas/marshal -8 $*
|
||||
}
|
||||
|
|
@ -1,38 +0,0 @@
|
|||
|
||||
RCFILES=mail.rc\
|
||||
|
||||
all:Q:
|
||||
;
|
||||
|
||||
installall:Q: install
|
||||
;
|
||||
|
||||
install:V:
|
||||
cp mail.rc /rc/bin/mail
|
||||
|
||||
safeinstall:V:
|
||||
cp mail.rc /rc/bin/mail
|
||||
|
||||
safeinstallall:V:
|
||||
cp mail.rc /rc/bin/mail
|
||||
|
||||
clean:Q:
|
||||
;
|
||||
nuke:V:
|
||||
rm /rc/bin/mail
|
||||
|
||||
UPDATE=\
|
||||
gone.fishing\
|
||||
gone.msg\
|
||||
mail.rc\
|
||||
mail.sh\
|
||||
makefile\
|
||||
mkfile\
|
||||
namefiles\
|
||||
omail.rc\
|
||||
qmail\
|
||||
remotemail\
|
||||
rewrite\
|
||||
|
||||
update:V:
|
||||
update $UPDATEFLAGS $UPDATE
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
names.local
|
||||
names.global
|
||||
|
|
@ -1,14 +0,0 @@
|
|||
#!/bin/rc
|
||||
switch($#*){
|
||||
case 0
|
||||
exec upas/edmail -m
|
||||
}
|
||||
|
||||
switch($1){
|
||||
case -F* -m* -f* -r* -p* -e* -c* -D*
|
||||
exec upas/edmail -m $*
|
||||
case '-#'* -a*
|
||||
exec upas/sendmail $*
|
||||
case *
|
||||
exec upas/sendmail $*
|
||||
}
|
||||
|
|
@ -1,6 +0,0 @@
|
|||
#!/bin/rc
|
||||
sender=$1
|
||||
shift
|
||||
addr=$1
|
||||
shift
|
||||
qer /mail/queue mail $sender $addr $* && runq /mail/queue /mail/lib/remotemail
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
#!/bin/rc
|
||||
shift
|
||||
sender=$1
|
||||
shift
|
||||
addr=$1
|
||||
shift
|
||||
/bin/upas/smtp -g research.research.bell-labs.com $addr $sender $*
|
||||
|
|
@ -1,20 +0,0 @@
|
|||
# case conversion for postmaster
|
||||
pOsTmAsTeR alias postmaster
|
||||
|
||||
# local mail
|
||||
[^!@]+ translate "/bin/upas/aliasmail '&'"
|
||||
local!(.*) >> /mail/box/\1/mbox
|
||||
\l!(.*) alias \1
|
||||
(helix|helix.bell-labs.com)!(.*) alias \2
|
||||
|
||||
# we can be just as complicated as BSD sendmail...
|
||||
# convert source domain address to a chain a@b@c@d...
|
||||
@([^@!,]*):([^!@]*)@([^!]*) alias \2@\3@\1
|
||||
@([^@!]*),([^!@,]*):([^!@]*)@([^!]*) alias @\1:\3@\4@\2
|
||||
|
||||
# convert a chain a@b@c@d... to ...d!c!b!a
|
||||
([^@]+)@([^@]+)@(.+) alias \2!\1@\3
|
||||
([^@]+)@([^@]+) alias \2!\1
|
||||
|
||||
# /mail/lib/remotemail will take care of gating to systems we don't know
|
||||
([^!]*)!(.*) | "/mail/lib/qmail '\s' 'net!\1'" "'\2'"
|
||||
|
|
@ -10,7 +10,6 @@ PROGS=\
|
|||
fs\
|
||||
imap4d\
|
||||
marshal\
|
||||
misc\
|
||||
ml\
|
||||
ned\
|
||||
pop3\
|
||||
|
|
@ -88,30 +87,3 @@ update:V:
|
|||
echo '>>>>>>>>>>' `{pwd} '<<<<<<<<<<<'
|
||||
mk $MKFLAGS 'UPDATEFLAGS='$"UPDATEFLAGS update
|
||||
}
|
||||
|
||||
#
|
||||
# setup the mail directories. this should be done by the administrator since
|
||||
# he/she will own everything. the following files must be altered to reflect
|
||||
# local preference.
|
||||
#
|
||||
# /mail/lib/namefiles - remove alias files you don't use, insert ones you do.
|
||||
# /mail/lib/remotemail - change '-g research.research.bell-labs.com' to your own mail
|
||||
# gateway. if you have none, remove it.
|
||||
# - change '-h plan9.bell-labs.com' to a name you would like
|
||||
# this host to be known as. if you don't care, take it
|
||||
# out and it will use the name in /env/site.
|
||||
# /mail/lib/rewrite - change the line that contains 'helix' to include names,
|
||||
# other than the contents of /env/site, that your system
|
||||
# answers to. this is a hack and will be fixed.
|
||||
#
|
||||
setup:V:
|
||||
mkdir /mail
|
||||
chmod 775 /mail
|
||||
mkdir /mail/lib
|
||||
chmod 775 /mail/lib
|
||||
mkdir /mail/queue /mail/box /mail/tmp
|
||||
chmod 777 /mail/queue /mail/box /mail/tmp
|
||||
chmod +t /mail/queue /mail/tmp
|
||||
mkdir /mail/ml
|
||||
chmod 775 /mail/ml
|
||||
cp misc/rewrite misc/qmail misc/remotemail misc/namefiles /mail/lib
|
||||
|
|
|
|||
Loading…
Reference in a new issue