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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
#!/bin/sh
# Add new lists (with a common options) to be managed by mlmmj.
# Incoming e-mails need to be handed over (piped) to mlmmj-receive(1) by
# the MTA, see http://mlmmj.org/docs/readme-postfix/ to configure the
# MTA.
#
# Copyright © 2014 Guilhem Moulin <guilhem@fripost.org>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
set -ue
fail () {
echo Error: "$@" >&2
exit 1
}
spool=/var/spool/mlmmj # mlmmj's how private directory
lib=/var/lib/mlmmj # shared by mlmmj and (partially) by the web server
webhost=https://lists.fripost.org
umask 0022
[ $# -ge 2 -a $# -le 3 ] || { echo "Usage: $0 list owner [language]"; exit; }
list="$1"
owner="$2"
lang="${3:-en}"
localpart="${list%@*}"
domainpart="${list##*@}"
[ "$localpart" = "$list" ] && [ "$domainpart" = "$list" ] \
&& fail "$list is not fully-qualified"
[ -d "$spool/$domainpart/$localpart" -o -d "$lib/$domainpart/$localpart" ] \
&& fail "$list exists"
ls -1 /usr/share/mlmmj/text.skel | grep -qFx "$lang" \
|| fail "Available languages: $(echo $(ls /usr/share/mlmmj/text.skel))"
case "$webhost" in
*"/$domainpart") listurl="$webhost/$localpart/";;
*) listurl="$webhost/$domainpart/$localpart/";;
esac
mkdir -p -m0700 "$spool/$domainpart/$localpart"
mkdir -p -m0750 "$lib/$domainpart/$localpart"
# The web server has read-only access to subscribers.
for dir in subscribers.d digesters.d nomailsubs.d; do
mkdir -m0750 "$lib/$domainpart/$localpart/$dir"
ln -s "$lib/$domainpart/$localpart/$dir" \
"$spool/$domainpart/$localpart/$dir"
done
# The web server can update the list configuration.
mkdir -m2770 "$lib/$domainpart/$localpart/control"
ln -s "$lib/$domainpart/$localpart/control" \
"$spool/$domainpart/$localpart/control"
# Internal directories.
for dir in incoming queue queue/discarded \
subconf unsubconf bounce moderation requeue; do
mkdir -m0700 "$spool/$domainpart/$localpart/$dir"
done
# Link to templates.
ln -s /usr/share/mlmmj/text.skel/$lang "$spool/$domainpart/$localpart/text"
# Archives are private, but web archives are public.
mkdir -m0700 "$lib/$domainpart/$localpart/archive"
mkdir -m0750 "$lib/$domainpart/$localpart/webarchive"
ln -s "$lib/$domainpart/$localpart/archive" \
"$spool/$domainpart/$localpart/archive"
ln -s "$lib/$domainpart/$localpart/webarchive" \
"$spool/$domainpart/$localpart/webarchive"
# Default configuration, non-writable from the web.
echo "$list" > "$lib/$domainpart/$localpart/control/listaddress"
echo "$owner" > "$lib/$domainpart/$localpart/control/owner"
# XXX: these tunables are ignored, see http://mlmmj.org/bugs/bug.php?id=51
#echo 127.0.0.1 > "$lib/$domainpart/$localpart/control/relayhost"
#echo 16132 > "$lib/$domainpart/$localpart/control/smtpport"
echo month > "$lib/$domainpart/$localpart/control/archiverotate"
# RFC 2369
cat > "$lib/$domainpart/$localpart/control/customheaders" <<- EOF
Errors-to: $localpart+owner@$domainpart
Precedence: list
List-Id: <$localpart.$domainpart>
List-URL: <$listurl>
List-Post: <mailto:$list>
List-Help: <mailto:$localpart+help@$domainpart>,
<$listurl/>
List-Subscribe: <$localpart+subscribe@$domainpart>,
<$listurl/>
List-Unsubscribe: <mailto:$localpart+unsubscribe@$domainpart>,
<$listurl/>
List-Owner: <mailto:$localpart+owner@$domainpart>
List-Archives: <$listurl/archives/>
Reply-To: $list
X-MailingList: $list
X-Loop: $list
EOF
cat > "$lib/$domainpart/$localpart/control/delheaders" <<- EOF
Return-Receipt-To:
Disposition-Notification-To:
X-Confirm-Reading-To:
X-Pmrqc:
EOF
# Some useful default, that the user is free to change via the web
# interface.
cat > "$lib/$domainpart/$localpart/control/footer" <<- EOF
_______________________________________________
$localpart mailing list
$localpart@$domainpart
$listurl
EOF
echo "[$localpart]" > "$lib/$domainpart/$localpart/control/prefix"
touch "$lib/$domainpart/$localpart/control/subonlypost" \
"$lib/$domainpart/$localpart/control/subonlyget"
for control in customheaders footer prefix subonlypost subonlyget; do
chmod 0664 "$lib/$domainpart/$localpart/control/$control"
done
# TODO: welcome mail
|
