Reorganize code to reduce memory usage

htdocs/adherents/adherent.class.php

@@ -34,6 +34,7 @@
 
 require_once(DOL_DOCUMENT_ROOT."/commonobject.class.php");
 require_once(DOL_DOCUMENT_ROOT."/adherents/cotisation.class.php");
+require_once(DOL_DOCUMENT_ROOT."/lib/functions2.lib.php");
 
 
 /**

htdocs/adherents/fiche.php

@@ -28,6 +28,7 @@
 require("./pre.inc.php");
 require_once(DOL_DOCUMENT_ROOT."/lib/member.lib.php");
 require_once(DOL_DOCUMENT_ROOT."/lib/company.lib.php");
+require_once(DOL_DOCUMENT_ROOT."/lib/functions2.lib.php");
 require_once(DOL_DOCUMENT_ROOT."/adherents/adherent.class.php");
 require_once(DOL_DOCUMENT_ROOT."/adherents/adherent_type.class.php");
 require_once(DOL_DOCUMENT_ROOT."/adherents/adherent_options.class.php");

htdocs/includes/modules/mailings/peche.modules.php

@@ -25,6 +25,7 @@
  */
 
 include_once DOL_DOCUMENT_ROOT.'/includes/modules/mailings/modules_mailings.php';
+require_once(DOL_DOCUMENT_ROOT."/lib/functions2.lib.php");
 
 
 /**

htdocs/lib/functions.lib.php

@@ -36,45 +36,6 @@ if (! defined('DOL_DOCUMENT_ROOT'))	 define('DOL_DOCUMENT_ROOT', '..');
 if (! defined('ADODB_DATE_VERSION')) include_once(DOL_DOCUMENT_ROOT."/includes/adodbtime/adodb-time.inc.php");
 
 
-
-/**
- *	\brief      Return true if email syntax is ok
- *	\param	    address     email (Ex: "toto@titi.com", "John Do <johndo@titi.com>")
- *	\return     boolean     true if email ok, false if ko
- */
-function ValidEmail($address)
-{
-	if (eregi(".*<(.+)>", $address, $regs)) {
-		$address = $regs[1];
-	}
-	if (eregi("^[^@  ]+@([a-zA-Z0-9\-]+\.)+([a-zA-Z0-9\-]{2}|asso|aero|biz|com|coop|edu|gov|info|int|mil|name|net|org|pro)\$",$address))
-	{
-		return true;
-	}
-	else
-	{
-		return false;
-	}
-}
-
-/**
- *	\brief      Renvoi vrai si l'email a un nom de domaine qui r<EFBFBD>soud via dns
- *	\param	    mail        adresse email (Ex: "toto@titi.com", "John Do <johndo@titi.com>")
- *	\return     boolean     true si email valide, false sinon
- */
-function check_mail($mail)
-{
-	list($user, $domain) = split("@", $mail, 2);
-	if (checkdnsrr($domain, "MX"))
-	{
-		return true;
-	}
-	else
-	{
-		return false;
-	}
-}
-
 /**
  *	\brief          Clean a string to use it as a file name.
  *	\param          str             String to clean
@@ -739,8 +700,6 @@ function dol_print_email($email,$cid=0,$socid=0,$addlink=0,$max=64)
 
     if (empty($email)) return '&nbsp;';
 
-    if (! ValidEmail($email)) return "Bad email";
-
 	if (! empty($addlink))
 	{
 		$newemail='<a href="';

htdocs/lib/functions2.lib.php

@@ -26,6 +26,44 @@
  */
 
 
+/**
+ *	\brief      Return true if email syntax is ok
+ *	\param	    address     email (Ex: "toto@titi.com", "John Do <johndo@titi.com>")
+ *	\return     boolean     true if email ok, false if ko
+ */
+function ValidEmail($address)
+{
+	if (eregi(".*<(.+)>", $address, $regs)) {
+		$address = $regs[1];
+	}
+	if (eregi("^[^@  ]+@([a-zA-Z0-9\-]+\.)+([a-zA-Z0-9\-]{2}|asso|aero|biz|com|coop|edu|gov|info|int|mil|name|net|org|pro)\$",$address))
+	{
+		return true;
+	}
+	else
+	{
+		return false;
+	}
+}
+
+/**
+ *	\brief      Renvoi vrai si l'email a un nom de domaine qui r<EFBFBD>soud via dns
+ *	\param	    mail        adresse email (Ex: "toto@titi.com", "John Do <johndo@titi.com>")
+ *	\return     boolean     true si email valide, false sinon
+ */
+function CheckMailDomain($mail)
+{
+	list($user, $domain) = split("@", $mail, 2);
+	if (checkdnsrr($domain, "MX"))
+	{
+		return true;
+	}
+	else
+	{
+		return false;
+	}
+}
+
 /**
  * 	\brief		Return lines of an html table from an array
  * 	\remarks	Used by array2table function only

htdocs/public/paybox/newpayment.php

@@ -28,6 +28,7 @@
 require("../../master.inc.php");
 require_once(DOL_DOCUMENT_ROOT."/paybox/paybox.lib.php");
 require_once(DOL_DOCUMENT_ROOT."/lib/company.lib.php");
+require_once(DOL_DOCUMENT_ROOT."/lib/functions2.lib.php");
 require_once(DOL_DOCUMENT_ROOT."/product.class.php");
 
 $langcode=(empty($_GET["lang"])?'auto':$_GET["lang"]);

htdocs/telephonie/client/new.php

@@ -17,28 +17,24 @@
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- *
- * $Id$
- * $Source$
- *
  */
 
 /**
  \file       htdocs/telephonie/client/new.php
  \ingroup    telephonie
  \brief      Creation d'un nouveau client
- \version    $Revision$
+ \version    $Id$
  */
 
 require("pre.inc.php");
-
+require_once(DOL_DOCUMENT_ROOT."/lib/functions2.lib.php");
-if (!$user->rights->telephonie->ligne->creer) accessforbidden();
-
 require_once(DOL_DOCUMENT_ROOT.'/contact.class.php');
 require_once(DOL_DOCUMENT_ROOT.'/companybankaccount.class.php');
 require_once(DOL_DOCUMENT_ROOT."/telephonie/lignetel.class.php");
 require_once(DOL_DOCUMENT_ROOT."/telephonie/telephonie.contrat.class.php");
 
+if (!$user->rights->telephonie->ligne->creer) accessforbidden();
+
 $user->getrights('societe');
 $langs->load("companies");
 
@@ -143,7 +139,7 @@ if ($_POST["action"] == 'add')
 			$verif = "nok";
 		}
 
-		if (!check_mail(trim($contact->email))  && $verif == 'ok')
+		if (!CheckMailDomain(trim($contact->email))  && $verif == 'ok')
 		{
 			$mesg = "Email invalide (domaine invalide)";
 			$verif = "nok";