Améelioration Syslog

This commit is contained in:
Rodolphe Quiedeville 2005-04-07 13:14:28 +00:00
parent c1153da85f
commit c50b386d4d

View File

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