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
|
From: Santiago Vila <sanvila@debian.org>
Subject: Deal with domain names starting with numbers
X-Debian-version: 3.15-22
--- a/SmartList/bin/confirm_del
+++ b/SmartList/bin/confirm_del
@@ -63,11 +63,11 @@
$sed -n -e 'y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/' \
-e '/^[ ]*[^ a-z]/ q' \
-e 's/^[^@]*del[ ]*'\
-'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z][^ ]*\).*/\1/p' \
+'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z0-9][^ ]*\).*/\1/p' \
-e 's/^[^@]*unsub[ ]*'\
-'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z][^ ]*\).*/\1/p' \
+'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z0-9][^ ]*\).*/\1/p' \
-e 's/^[^@]*unsubscribe[ ]*'\
-'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z][^ ]*\).*/\1/p' `
+'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z0-9][^ ]*\).*/\1/p' `
# create an cookie...this is u for unsubscribe, the date plus the pid
--- a/SmartList/bin/extraddr
+++ b/SmartList/bin/extraddr
@@ -61,13 +61,13 @@
$sed -n -e 'y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/' \
-e '/^[ ]*[^ a-z]/ q' \
-e 's/^[^@]*add[ ]*'\
-'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z][^ ]*\).*/\1/p' \
+'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z0-9][^ ]*\).*/\1/p' \
-e 's/^[^@]*address[ ]*'\
-'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z][^ ]*\).*/\1/p' \
+'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z0-9][^ ]*\).*/\1/p' \
-e 's/^[^@]*sub[ ]*'\
-'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z][^ ]*\).*/\1/p' \
+'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z0-9][^ ]*\).*/\1/p' \
-e 's/^[^@]*subscribe[ ]*'\
-'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z][^ ]*\).*/\1/p' `
+'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z0-9][^ ]*\).*/\1/p' `
fromaddr=`$cat $tmpfrom`
--- a/SmartList/bin/subscribe
+++ b/SmartList/bin/subscribe
@@ -41,13 +41,13 @@
$sed -n -e 'y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/' \
-e '/^[ ]*[^ a-z]/ q' \
-e 's/^[^@]*add[ ]*'\
-'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z][^ ]*\).*/\1/p' \
+'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z0-9][^ ]*\).*/\1/p' \
-e 's/^[^@]*address[ ]*'\
-'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z][^ ]*\).*/\1/p' \
+'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z0-9][^ ]*\).*/\1/p' \
-e 's/^[^@]*sub[ ]*'\
-'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z][^ ]*\).*/\1/p' \
+'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z0-9][^ ]*\).*/\1/p' \
-e 's/^[^@]*subscribe[ ]*'\
-'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z][^ ]*\).*/\1/p' `
+'[^ ]*[ ]\([^ ]*[-a-z0-9_][@!][a-z0-9][^ ]*\).*/\1/p' `
fromaddr=`$cat $tmpfrom`
|
