[evolvis-commits] r18366: nuke the French “give a mailing list a new admin password” code entirely
mirabilos at evolvis.org
mirabilos at evolvis.org
Mon Apr 23 12:39:27 CEST 2012
Author: mirabilos
Date: 2012-04-23 12:39:26 +0200 (Mon, 23 Apr 2012)
New Revision: 18366
Modified:
trunk/gforge_base/evolvisforge-5.1/src/deb-specific/create-mailing-lists.pl
trunk/gforge_base/evolvisforge-5.1/src/debian/changelog
Log:
nuke the French “give a mailing list a new admin password” code entirely
as we do this in-line, and this breaks stuff
Modified: trunk/gforge_base/evolvisforge-5.1/src/deb-specific/create-mailing-lists.pl
===================================================================
--- trunk/gforge_base/evolvisforge-5.1/src/deb-specific/create-mailing-lists.pl 2012-04-18 12:47:16 UTC (rev 18365)
+++ trunk/gforge_base/evolvisforge-5.1/src/deb-specific/create-mailing-lists.pl 2012-04-23 10:39:26 UTC (rev 18366)
@@ -125,45 +125,6 @@
$dbh->commit () ;
}
- $query = "SELECT mail_group_list.group_list_id,
- mail_group_list.list_name,
- users.user_name,
- mail_group_list.password,
- mail_group_list.description,
- mail_group_list.is_public
- FROM mail_group_list, users
- WHERE mail_group_list.status = 4
- AND mail_group_list.list_admin = users.user_id" ; # Status = 4: password reset requested
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- while (my @myarray = $sth->fetchrow_array ()) {
- push @lines, \@myarray ;
- }
- $sth->finish () ;
-
- foreach $line (@lines) {
- @array = @{$line} ;
- my ($group_list_id, $listname, $user_name, $password, $description, $is_public) ;
- my ($tmp) ;
-
- ($group_list_id, $listname, $user_name, $password, $description, $is_public)= @array ;
- next if $listname eq '' ;
- next if $listname eq '.' ;
- next if $listname eq '..' ;
- next if $listname !~ /^[a-z0-9\-_\.]*$/ ;
-
- my $cmd = "/usr/lib/mailman/bin/change_pw -l $listname >/dev/null 2>&1" ;
- system ($cmd) ;
-
- $query = "UPDATE mail_group_list SET status = 3 where group_list_id = group_list_id" ; # Status = 3: list configured on Mailman
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
-
- #debug "Committing." ;
- $dbh->commit () ;
- }
-
# There should be a commit at the end of every block above.
# If there is not, then it might be symptomatic of a problem.
# For safety, we roll back.
Modified: trunk/gforge_base/evolvisforge-5.1/src/debian/changelog
===================================================================
--- trunk/gforge_base/evolvisforge-5.1/src/debian/changelog 2012-04-18 12:47:16 UTC (rev 18365)
+++ trunk/gforge_base/evolvisforge-5.1/src/debian/changelog 2012-04-23 10:39:26 UTC (rev 18366)
@@ -1,3 +1,9 @@
+fusionforge (1:5.1.1+evolvis55) xunstable; urgency=low
+
+ * Fix passwords being set wrongly after mailing list creation
+
+ -- Thorsten Glaser <t.glaser at tarent.de> Mon, 23 Apr 2012 12:25:45 +0200
+
fusionforge (1:5.1.1+evolvis54) unstable; urgency=low
* Make imprint configurable and reduce “powered by” blurb to its
More information about the evolvis-commits
mailing list