Am�elioration Syslog

htdocs/lib/functions.inc.php

@@ -80,22 +80,41 @@ function check_mail ($mail)
 
 
 /**
-		\brief      Envoi des messages dolibarr dans syslog.
-		\param	    message		message a envoyer a syslog
-        \param      level       Niveau de l'erreur
-		\remarks    Cette fonction ne marchera qui si la constante MAIN_DEBUG = 1
-                    Le message est envoy<6F> dans syslog dans la cat<61>gorie LOG_USER.
+   \brief      Envoi des messages dolibarr dans syslog.
+   \param	    message		message a envoyer a syslog
+   \param      level       Niveau de l'erreur
+   \remarks    Cette fonction ne marchera qui si le module est activ<69>
+   Le message est envoy<6F> dans syslog dans la cat<61>gorie LOG_USER.
 */
 function dolibarr_syslog($message, $level=LOG_ERR)
 {
-    if (defined("MAIN_DEBUG") && MAIN_DEBUG) {
-        // Warning, les fonctions syslog sont buggu<67>s sous Windows et g<>n<EFBFBD>rent des
-        // fautes de protection m<>moire. Pour r<>soudre, d<>sactiver MAIN_DEBUG sous Windows.
-        define_syslog_variables();
-        openlog("dolibarr", LOG_PID | LOG_PERROR, LOG_USER);
-        if (! $level) syslog(LOG_ERR, $message);
-        else syslog($level, $message);
-        closelog();
+  if (defined("MAIN_MODULE_SYSLOG") && MAIN_MODULE_SYSLOG)
+    {
+      // Warning, les fonctions syslog sont buggu<67>s sous Windows et g<>n<EFBFBD>rent des
+      // fautes de protection m<>moire. Pour r<>soudre, d<>sactiver MAIN_DEBUG sous Windows.
+      define_syslog_variables();
+
+      if (defined("MAIN_SYSLOG_FACILITY") && MAIN_SYSLOG_FACILITY)
+	{
+	  $facility = MAIN_SYSLOG_FACILITY;
+	}
+      else
+	{
+	  $facility = LOG_USER;
+	}
+
+      openlog("dolibarr", LOG_PID | LOG_PERROR, $facility);
+
+      if (! $level) 
+	{
+	  syslog(LOG_ERR, $message);
+	}
+      else
+	{
+	  syslog($level, $message);
+	}
+
+      closelog();
     }
 }