[Fusionforge-commits] r15914 - trunk/src/deb-specific

Olivier Berger olberger at fusionforge.org
Tue Jul 3 14:25:36 CEST 2012


Author: olberger
Date: 2012-07-03 14:25:35 +0200 (Tue, 03 Jul 2012)
New Revision: 15914

Modified:
   trunk/src/deb-specific/create-mailing-lists.pl
Log:
Add bits to ease implementing https://fusionforge.org/tracker/index.php?func=detail&aid=465&group_id=6&atid=114

Modified: trunk/src/deb-specific/create-mailing-lists.pl
===================================================================
--- trunk/src/deb-specific/create-mailing-lists.pl	2012-07-02 15:19:14 UTC (rev 15913)
+++ trunk/src/deb-specific/create-mailing-lists.pl	2012-07-03 12:25:35 UTC (rev 15914)
@@ -30,7 +30,8 @@
                      users.user_name,
                      mail_group_list.password,
                      mail_group_list.description,
-                     mail_group_list.is_public
+                     mail_group_list.is_public,
+                     users.email
               FROM mail_group_list, users
               WHERE mail_group_list.status = 1
                     AND mail_group_list.list_admin = users.user_id" ; # Status = 1: list just created on the website
@@ -43,15 +44,17 @@
 
     foreach $line (@lines) {
 	@array = @{$line} ;
-	my ($group_list_id, $listname, $user_name, $password, $description, $is_public) ;
+	my ($group_list_id, $listname, $user_name, $password, $description, $is_public, $user_email) ;
 	my ($tmp) ;
 
-	($group_list_id, $listname, $user_name, $password, $description, $is_public)= @array ;
+	($group_list_id, $listname, $user_name, $password, $description, $is_public, $user_email)= @array ;
 	next if $listname eq '' ;
 	next if $listname eq '.' ;
 	next if $listname eq '..' ;
 	next if $listname !~ /^[a-z0-9\-_\.]*$/ ;
 
+	# Switch between login at users.myforge.com or firstname.lastname at mail.com style for list owner's email by commenting either of the following 2 lines
+        #my $cmd = "/usr/sbin/newlist -q $listname $user_email $password >/dev/null 2>&1" ;
 	my $cmd = "/usr/sbin/newlist -q $listname $user_name\@$sys_users_host $password >/dev/null 2>&1" ;
 	#print "cmd = <$cmd>\n" ;
 	system ($cmd) ;




More information about the Fusionforge-commits mailing list