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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
|
#! @PYTHON@
#
# Copyright (C) 2001-2004 by the Free Software Foundation, Inc.
#
# 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 2
# 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, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
"""Change a list's password.
Prior to Mailman 2.1, list passwords were kept in crypt'd format -- usually.
Some Python installations didn't have the crypt module available, so they'd
fall back to md5. Then suddenly the Python installation might grow a crypt
module and all list passwords would be broken.
In Mailman 2.1, all list and site passwords are stored in SHA1 hexdigest
form. This breaks list passwords for all existing pre-Mailman 2.1 lists, and
since those passwords aren't stored anywhere in plain text, they cannot be
retrieved and updated.
Thus, this script generates new passwords for a list, and optionally sends it
to all the owners of the list.
Usage: change_pw [options]
Options:
--all / -a
Change the password for all lists.
--domain=domain
-d domain
Change the password for all lists in the virtual domain `domain'. It
is okay to give multiple -d options.
--listname=listname
-l listname
Change the password only for the named list. It is okay to give
multiple -l options.
--password=newpassword
-p newpassword
Use the supplied plain text password `newpassword' as the new password
for any lists that are being changed (as specified by the -a, -d, and
-l options). If not given, lists will be assigned a randomly
generated new password.
--quiet / -q
Don't notify list owners of the new password. You'll have to have
some other way of letting the list owners know the new password
(presumably out-of-band).
--help / -h
Print this help message and exit.
"""
import sys
import sha
import getopt
import paths
from Mailman import mm_cfg
from Mailman import Utils
from Mailman import MailList
from Mailman import Errors
from Mailman import Message
from Mailman import i18n
_ = i18n._
SPACE = ' '
def usage(code, msg=''):
if code:
fd = sys.stderr
else:
fd = sys.stdout
print >> fd, _(__doc__)
if msg:
print >> fd, msg
sys.exit(code)
_listcache = {}
def openlist(listname):
missing = []
mlist = _listcache.get(listname, missing)
if mlist is missing:
try:
mlist = MailList.MailList(listname, lock=0)
except Errors.MMListError, e:
usage(1, _('No such list "%(listname)s"\n%(e)s'))
_listcache[listname] = mlist
return mlist
def main():
# Parse options
try:
opts, args = getopt.getopt(
sys.argv[1:], 'ad:l:p:qh',
['all', 'domain=', 'listname=', 'password=', 'quiet', 'help'])
except getopt.error, msg:
usage(1, msg)
# defaults
listnames = {}
domains = {}
password = None
quiet = 0
for opt, arg in opts:
if opt in ('-h', '--help'):
usage(0)
elif opt in ('-a', '--all'):
for name in Utils.list_names():
listnames[name] = 1
elif opt in ('-d', '--domain'):
domains[arg] = 1
elif opt in ('-l', '--listname'):
listnames[arg] = 1
elif opt in ('-p', '--password'):
password = arg
elif opt in ('-q', '--quiet'):
quiet = 1
if args:
strargs = SPACE.join(args)
usage(1, _('Bad arguments: %(strargs)s'))
if password is not None:
if not password:
usage(1, _('Empty list passwords are not allowed'))
shapassword = sha.new(password).hexdigest()
if domains:
for name in Utils.list_names():
mlist = openlist(name)
if domains.has_key(mlist.host_name):
listnames[name] = 1
if not listnames:
print >> sys.stderr, _('Nothing to do.')
sys.exit(0)
# Set the password on the lists
for listname in listnames.keys():
mlist = openlist(listname)
mlist.Lock()
try:
if password is None:
randompw = Utils.MakeRandomPassword(
mm_cfg.ADMIN_PASSWORD_LENGTH)
shapassword = sha.new(randompw).hexdigest()
notifypassword = randompw
else:
notifypassword = password
mlist.password = shapassword
mlist.Save()
finally:
mlist.Unlock()
# Notification
print _('New %(listname)s password: %(notifypassword)s')
if not quiet:
otrans = i18n.get_translation()
i18n.set_language(mlist.preferred_language)
try:
hostname = mlist.host_name
adminurl = mlist.GetScriptURL('admin', absolute=1)
msg = Message.UserNotification(
mlist.owner[:], Utils.get_site_email(),
_('Your new %(listname)s list password'),
_('''\
The site administrator at %(hostname)s has changed the password for your
mailing list %(listname)s. It is now
%(notifypassword)s
Please be sure to use this for all future list administration. You may want
to log in now to your list and change the password to something more to your
liking. Visit your list admin page at
%(adminurl)s
'''),
mlist.preferred_language)
finally:
i18n.set_translation(otrans)
msg.send(mlist)
if __name__ == '__main__':
main()
|
