|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1102 (0x44e)
Types: TextFile
Notes: UNIX file
Names: »rmfilter«
└─⟦0f331009c⟧ Bits:30004160/disk2.imd SW95860 UNIPLEX+ release 1.0 (dansk)
└─⟦0f331009c⟧ UNIX Filesystem
└─⟦this⟧ »ua/new/usr/UAP/bin/rmfilter«
# DO NOT EDIT THIS FILE WHIT "vi" or any other high-order-bit-
# stripping editor
#
# DO NOT EDIT THIS FILE WHIT UNIPLEX. If you do it, then the sign
# (ASCII/ISO character: 21) which the section sign is reconverted from
# will disappear.
# rmfilter - filter used when receive mail from other mail systems.
# Definded in umail.rc.
# 88.10.19 esk/RC COMPUTER
# The followering procedure give the sack to all mail headers
# except the last in every letter.
# The reason to do this is because of "umd_runix" which only
# understand a single header.
test -f "$1" || exit 0
MAILBOX=$1
TMP=$Utemp/rmfilter$$
sed -n '
/^From /{
x
/^..*/p
b nxtle
}
/^>From /{
s/^>//1
h
b nxtle
}
H
:nxtle
$g
$p
' $MAILBOX > $TMP
# This procedure check about the letter is from Uniplex or rctekst.
# If it is, the danish national characters (and section) are converted
# to highbit values.
sed -n '
/^RC-Buf/{'"
:nxtln
n
/^From /b nxtlett
y/{|}[\\]▶15◀/▶91◀▶9b◀▶86◀▶92◀▶9d◀▶8f◀õ/
p
/@@$/{
n
p
}
b nxtln
}
:nxtlett
p
" $TMP > $MAILBOX
rm -f $TMP