[evolvis-commits] r17154: fusionforge-plugin-mailman: executable-not-elf-or-script ./usr/ share/gforge/plugins/mailman/bin/import_members_DB. php↵ ↵ since this is not referenced *anywhere* just move it?==?UTF-8?Q? out↵

mirabilos at evolvis.org mirabilos at evolvis.org
Wed Mar 16 16:41:23 CET 2011


Author: mirabilos
Date: 2011-03-16 16:41:23 +0100 (Wed, 16 Mar 2011)
New Revision: 17154

Added:
   trunk/gforge_base/evolvisforge-5.1/src/plugins/mailman/common/import_members_DB.php
Removed:
   trunk/gforge_base/evolvisforge-5.1/src/plugins/mailman/bin/import_members_DB.php
Log:
fusionforge-plugin-mailman: executable-not-elf-or-script ./usr/share/gforge/plugins/mailman/bin/import_members_DB.php

since this is not referenced *anywhere* just move it out


Deleted: trunk/gforge_base/evolvisforge-5.1/src/plugins/mailman/bin/import_members_DB.php
===================================================================
--- trunk/gforge_base/evolvisforge-5.1/src/plugins/mailman/bin/import_members_DB.php	2011-03-16 15:38:24 UTC (rev 17153)
+++ trunk/gforge_base/evolvisforge-5.1/src/plugins/mailman/bin/import_members_DB.php	2011-03-16 15:41:23 UTC (rev 17154)
@@ -1,87 +0,0 @@
-<?php
-/*
- * Script to import members of mailman lists in the "plugin_mailman" table
- * must be done before adding extend.py file in /var/lib/mailman/lists
- * but after creating plugin_mailman table in the database
- */
-require_once 'pre.php';
-require_once 'mailman/include/MailmanListDao.class.php';
-$sql = "SELECT * from mail_group_list WHERE status=3";
-$result = db_query_params($sql,array());
-while($row = db_fetch_array($result)) {
-	$members= null;
-	$usernames = null;
-	$config = null;
-	$listname = $row['list_name'];
-	$dao = new MailmanListDao(CodendiDataAccess::instance());
-	echo "\n".$listname."\n**********************************\n";
-	exec('/usr/lib/mailman/bin/dumpdb '.'/var/lib/mailman/lists/'.$listname.'/config.pck', $config, $ret2);
-	if ($ret2==0 ) {
-		$j=0;
-		for ($j=0;$j<count($config);$j++){
-			if(preg_match("#\'(usernames|passwords)\'#",$config[$j],$essai)) {
-				$end=false;
-				$i = $j;
-				if (strpos($config[$j],"usernames") !== false)
-				{
-					$username = true;
-					$pwd =false;
-				}
-				elseif(strpos($config[$j],"passwords") !== false) {
-					$username = false;
-					$pwd =true;
-				}
-				while ($end==false) {
-					if(preg_match("#([a-zA-Z0-9-_.]*@[a-zA-Z0-9-_.]*).*[u:\s]*\'([a-zA-Z0-9-_.\s]*)\'#",$config[$i],$essai)){
-						if($username) {
-							$usernames[$essai[1]] = $essai[2];
-						}
-						elseif($pwd) {
-							$members[$essai[1]]=$essai[2];
-						}
-					}
-
-					if (strpos($config[$i],"}") ===false) {
-						$i=$i+1;
-					}
-					else {
-						$end=true;
-					}
-				}
-
-			}
-		}
-		if (isset($members)) {
-			foreach ($members as $mail => $pwd) {
-				$res = $dao->userIsMonitoring($mail,$listname);
-				if (!$res) {
-					echo "Error on Query :".db_error();
-				}
-				else {
-					$row_count = $res->getRow();
-					if ($row_count['count'] == 0){
-						if (isset($usernames) && array_key_exists($mail, $usernames)) {
-							$name = $usernames[$mail];
-							echo "Membre trouvé avec mail=".$mail." et nom=".$name." avec pwd=".$pwd."\n";
-							$dao->newSubscriber($mail,$name,md5($pwd),$listname);
-						}
-						else {
-							echo "Membre trouvé avec mail=".$mail." avec pwd=".$pwd."\n";
-							$dao->newSubscriber($mail,'',md5($pwd),$listname);
-						}
-					}
-					else {
-						echo $mail." est déjà membre de ".$listname."\n ";
-					}
-				}
-			}
-		}
-		else {
-			echo "Aucun membres dans cette liste\n";
-		}
-	}
-	else {
-		echo "Erreur";
-	}
-}
-?>

Copied: trunk/gforge_base/evolvisforge-5.1/src/plugins/mailman/common/import_members_DB.php (from rev 17131, trunk/gforge_base/evolvisforge-5.1/src/plugins/mailman/bin/import_members_DB.php)
===================================================================
--- trunk/gforge_base/evolvisforge-5.1/src/plugins/mailman/common/import_members_DB.php	                        (rev 0)
+++ trunk/gforge_base/evolvisforge-5.1/src/plugins/mailman/common/import_members_DB.php	2011-03-16 15:41:23 UTC (rev 17154)
@@ -0,0 +1,87 @@
+<?php
+/*
+ * Script to import members of mailman lists in the "plugin_mailman" table
+ * must be done before adding extend.py file in /var/lib/mailman/lists
+ * but after creating plugin_mailman table in the database
+ */
+require_once 'pre.php';
+require_once 'mailman/include/MailmanListDao.class.php';
+$sql = "SELECT * from mail_group_list WHERE status=3";
+$result = db_query_params($sql,array());
+while($row = db_fetch_array($result)) {
+	$members= null;
+	$usernames = null;
+	$config = null;
+	$listname = $row['list_name'];
+	$dao = new MailmanListDao(CodendiDataAccess::instance());
+	echo "\n".$listname."\n**********************************\n";
+	exec('/usr/lib/mailman/bin/dumpdb '.'/var/lib/mailman/lists/'.$listname.'/config.pck', $config, $ret2);
+	if ($ret2==0 ) {
+		$j=0;
+		for ($j=0;$j<count($config);$j++){
+			if(preg_match("#\'(usernames|passwords)\'#",$config[$j],$essai)) {
+				$end=false;
+				$i = $j;
+				if (strpos($config[$j],"usernames") !== false)
+				{
+					$username = true;
+					$pwd =false;
+				}
+				elseif(strpos($config[$j],"passwords") !== false) {
+					$username = false;
+					$pwd =true;
+				}
+				while ($end==false) {
+					if(preg_match("#([a-zA-Z0-9-_.]*@[a-zA-Z0-9-_.]*).*[u:\s]*\'([a-zA-Z0-9-_.\s]*)\'#",$config[$i],$essai)){
+						if($username) {
+							$usernames[$essai[1]] = $essai[2];
+						}
+						elseif($pwd) {
+							$members[$essai[1]]=$essai[2];
+						}
+					}
+
+					if (strpos($config[$i],"}") ===false) {
+						$i=$i+1;
+					}
+					else {
+						$end=true;
+					}
+				}
+
+			}
+		}
+		if (isset($members)) {
+			foreach ($members as $mail => $pwd) {
+				$res = $dao->userIsMonitoring($mail,$listname);
+				if (!$res) {
+					echo "Error on Query :".db_error();
+				}
+				else {
+					$row_count = $res->getRow();
+					if ($row_count['count'] == 0){
+						if (isset($usernames) && array_key_exists($mail, $usernames)) {
+							$name = $usernames[$mail];
+							echo "Membre trouvé avec mail=".$mail." et nom=".$name." avec pwd=".$pwd."\n";
+							$dao->newSubscriber($mail,$name,md5($pwd),$listname);
+						}
+						else {
+							echo "Membre trouvé avec mail=".$mail." avec pwd=".$pwd."\n";
+							$dao->newSubscriber($mail,'',md5($pwd),$listname);
+						}
+					}
+					else {
+						echo $mail." est déjà membre de ".$listname."\n ";
+					}
+				}
+			}
+		}
+		else {
+			echo "Aucun membres dans cette liste\n";
+		}
+	}
+	else {
+		echo "Erreur";
+	}
+}
+?>



More information about the evolvis-commits mailing list