/var/list/.bin/unsubscribe is in smartlist 3.15-22.
This file is owned by list:list, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | #! /bin/sh
:
# Copyright (c) 1993-1996, S.R. van den Berg, The Netherlands
#$Id: unsubscribe,v 1.31 1996/12/21 03:28:12 srb Exp $
test=test # /bin/test
echo=echo # /bin/echo
cat=cat # /bin/cat
sed=sed # /bin/sed
expr=expr # /bin/expr
date=date # /bin/date
grep=grep # /usr/bin/grep
formail=formail # /usr/local/bin/formail
multigram=multigram # ../.bin/multigram
$test -z "$listaddr" &&
$echo "Don't start this script directly, it is used in rc.request" && exit 64
tmprequest=tmp.request
tmpfrom=tmp.from
unsubscribetxt=unsubscribe.txt
dist=dist
case "$X_ENVELOPE_TO" in
*$list-request*) wrongaddress="" ;;
*) wrongaddress="WARNING:
Please try to use '$listreq'
the next time when issuing (un)subscribe requests.
" ;;
esac
remov=-d
$test "X$1" = "X-D" && remov=-D
$grep '^Subject: Re:' <$tmprequest >/dev/null &&
wrongaddress="${wrongaddress}WARNING:
Send in a new mail, INSTEAD OF REPLYING
the next time when issuing (un)subscribe requests.
"
$formail -i"From: SmartList <$listreq>" -rtA"X-Loop: $listaddr" -I"Precedence: junk" \
<$tmprequest
$test ! -z "$wrongaddress" && $echo "$wrongaddress" && wrongaddress=""
fromaddr=`$cat $tmpfrom`
remtext=`
if $multigram -b1 -l$off_threshold -x$listreq -x$listaddr $remov $dist \
2>/dev/null
then
$echo ""
$echo "You have been removed from the list."
else
$echo "You have not been removed, I couldn't find your name on the list."
if test ! -z "$unsub_assist" -a 0 != "$unsub_assist"
then
$echo "What I did find were the following approximate matches:"
$echo ""
$multigram -m -b$unsub_assist -l-32767 -x$listreq -x$listaddr $dist \
<$tmprequest
$echo ""
$echo "If you recognise one of these addresses as being the one you"
$echo "wanted to unsubscribe, send in a new unsubscribe request"
$echo "containing the text: unsubscribe the_address_you_meant."
fi
fi`
$echo "$remtext" | $sed -e '1 s/^ *[0-9]* [^ ]* \(.*\)$/\1/' \
-e '2 s/^Removed: \(.*\)$/\1/w '$tmpfrom
echo "X$remtext.X" >>$subscribe_log
if $test ! -z "$subscribe_log"
then
case "$remtext" in
*You\ have\ been\ removed*)
$echo "unsubscribe: `$echo \"$remtext\" |
$sed -e '2,$d'` by: $fromaddr `$date`" ;;
*) $echo "unsubscribe: attempt `$multigram -b1 -l0 -x$listreq -x$listaddr \
$dist <$tmprequest` by: $fromaddr `$date`" ;;
esac >>$subscribe_log
fi
$echo "$fromaddr" >>$tmpfrom
$echo ""
$cat $unsubscribetxt
$sed -e 's/^/>/' $tmprequest
|