[Fusionforge-commits] r15499 - branches/Branch_5_1/src/deb-specific

[Thorsten Glaser]

Author: mirabilos
Date: 2012-05-08 09:46:18 +0200 (Tue, 08 May 2012)
New Revision: 15499

Modified:
   branches/Branch_5_1/src/deb-specific/create-mailing-lists.pl
Log:
[#421] fix_url fix (also in Evolvis, so I know it?\226?\128?\153s correct)


Modified: branches/Branch_5_1/src/deb-specific/create-mailing-lists.pl
===================================================================
--- branches/Branch_5_1/src/deb-specific/create-mailing-lists.pl	2012-05-07 20:08:34 UTC (rev 15498)
+++ branches/Branch_5_1/src/deb-specific/create-mailing-lists.pl	2012-05-08 07:46:18 UTC (rev 15499)
@@ -16,7 +16,7 @@
 
 sub debug ( $ ) ;
 
-require ("/usr/share/gforge/lib/include.pl") ; # Include all the predefined functions 
+require ("/usr/share/gforge/lib/include.pl") ; # Include all the predefined functions
 
 &db_connect ;
 
@@ -89,13 +89,7 @@
 	system ($cmd) ;
 	unlink $tmp ;
 
-	my $urlpattern;
-	if (&forge_get_config ('use_ssl') eq 'yes') {
-	    $urlpattern = 'https://%s/cgi-bin/mailman/';
-	} else {
-	    $urlpattern = 'http://%s/cgi-bin/mailman/';
-	}
-	$cmd= "/usr/lib/mailman/bin/withlist -l -r fix_url $listname -u $sys_lists_host -p '$urlpattern'" ;
+	$cmd= "/usr/lib/mailman/bin/withlist -l -r fix_url $listname -u $sys_lists_host" ;
 	#print "cmd = <$cmd>\n" ;
 	system ($cmd) ;
 
@@ -147,7 +141,7 @@
 	#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.