[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