acl/app/jaws/global/logger.c

472 lines
12 KiB
C

#include "lib_acl.h"
#include <assert.h>
#ifdef ACL_MS_WINDOWS
#include <process.h>
typedef int pid_t;
#endif
#include "sys_patch.h"
#include "logger.h"
typedef struct LOG_WRAP {
char filename[1024];
ACL_VSTREAM *h_log;
ACL_AIO *aio;
ACL_AQUEUE *logger_queue;
#ifdef HAS_ELIB
E_LOG_T *h_log;
#endif
} LOG_WRAP;
static LOG_WRAP *__log_wrap = NULL;
static pid_t __pid;
#ifdef HAS_ELIB
#include "e_config.h"
#include "elib.h"
static int __log_open(const char *filename, void *ctx)
{
LOG_WRAP *h_log = (LOG_WRAP *) ctx;
int logme = 0;
char *facility_name = NULL;
E_LOG_PRIORITY_T priority = E_LOG_INFO;
E_LOG_ACTION_T action = E_LOG_PER_DAY;
int flush = 1;
size_t limit_size = 0;
E_LOG_SYNC_ACTION_T sync_action = E_LOG_SEM_WITH_MT;
char *sem_name = NULL;
char *ptr, *pname;
ACL_ARGV *env_argv;
ACL_VSTRING *log_buf;
int i;
if (filename == NULL || *filename == 0)
return (-1);
acl_snprintf(h_log->filename, sizeof(h_log->filename), "%s", filename);
/* env: facility:x, priority:x, action:x, flush:x, limit_size:x, sync_action:x, sem_name:x */
ptr = getenv("SERVICE_ENV");
if (ptr == NULL)
return (-1);
env_argv = acl_argv_split(ptr, ",\t ");
if (env_argv == NULL)
return (-1);
if (env_argv->argc == 0) {
acl_argv_free(env_argv);
return (-1);
}
log_buf = acl_vstring_alloc(256);
for (i = 0; i < env_argv->argc; i++) {
pname = acl_argv_index(env_argv, i);
ptr = strchr(pname, ':');
if (ptr == NULL)
continue;
*ptr++ = 0;
if (*ptr == 0)
continue;
if (i == 0)
acl_vstring_sprintf(log_buf, "%s:%s", pname, ptr);
else
acl_vstring_sprintf_append(log_buf, ", %s:%s", pname, ptr);
if (strcasecmp(pname, "logme") == 0) {
if (strcasecmp(ptr, "TRUE") == 0)
logme = 1;
} else if (strcasecmp(pname, "facility") == 0) {
facility_name = ptr;
} else if (strcasecmp(pname, "priority") == 0) {
if (strcasecmp(ptr, "E_LOG_NOLOG") == 0)
priority = E_LOG_NOLOG;
else if (strcasecmp(ptr, "E_LOG_EMERG") == 0)
priority = E_LOG_EMERG;
else if (strcasecmp(ptr, "E_LOG_ALERT") == 0)
priority = E_LOG_ALERT;
else if (strcasecmp(ptr, "E_LOG_CRIT") == 0)
priority = E_LOG_CRIT;
else if (strcasecmp(ptr, "E_LOG_ERR") == 0)
priority = E_LOG_ERR;
else if (strcasecmp(ptr, "E_LOG_WARNING") == 0)
priority = E_LOG_WARNING;
else if (strcasecmp(ptr, "E_LOG_NOTICE") == 0)
priority = E_LOG_NOTICE;
else if (strcasecmp(ptr, "E_LOG_INFO") == 0)
priority = E_LOG_INFO;
else if (strcasecmp(ptr, "E_LOG_DEBUG") == 0)
priority = E_LOG_DEBUG;
} else if (strcasecmp(pname, "action") == 0) {
if (strcasecmp(ptr, "E_LOG_PER_HOUR") == 0)
action = E_LOG_PER_HOUR;
else if (strcasecmp(ptr, "E_LOG_PER_DAY") == 0)
action = E_LOG_PER_DAY;
else if (strcasecmp(ptr, "E_LOG_PER_WEEK") == 0)
action = E_LOG_PER_WEEK;
else if (strcasecmp(ptr, "E_LOG_PER_MONTH") == 0)
action = E_LOG_PER_MONTH;
else if (strcasecmp(ptr, "E_LOG_PER_YEAR") == 0)
action = E_LOG_PER_YEAR;
else if (strcasecmp(ptr, "E_LOG_LIMIT_SIZE") == 0)
action = E_LOG_LIMIT_SIZE;
else if (strcasecmp(ptr, "E_LOG_SYSLOG") == 0)
action = E_LOG_SYSLOG;
} else if (strcasecmp(pname, "flush") == 0) {
if (strcasecmp(ptr, "sync_flush") == 0)
flush = 1;
else if (strcasecmp(ptr, "async_flush") == 0)
flush = 0;
} else if (strcasecmp(pname, "limit_size") == 0) {
limit_size = atoi(ptr);
} else if (strcasecmp(pname, "sync_action") == 0) {
if (strcasecmp(ptr, "E_LOG_NO_SYNC") == 0)
sync_action = E_LOG_NO_SYNC;
else if (strcasecmp(ptr, "E_LOG_THREAD_MUTEX") == 0)
sync_action = E_LOG_THREAD_MUTEX;
else if (strcasecmp(ptr, "E_LOG_FILE_LOCK") == 0)
sync_action = E_LOG_FILE_LOCK;
else if (strcasecmp(ptr, "E_LOG_SEM_WITH_MT") == 0)
sync_action = E_LOG_SEM_WITH_MT;
else if (strcasecmp(ptr, "E_LOG_FILE_APPEND_WITH_MT") == 0)
sync_action = E_LOG_FILE_APPEND_WITH_MT;
} else if (strcasecmp(pname, "sem_name") == 0) {
sem_name = ptr;
}
}
if (action == E_LOG_LIMIT_SIZE) {
if (limit_size == 0)
limit_size = 512; /* set default size: 512 MB */
} else
limit_size = 0;
if (sync_action == E_LOG_SEM_WITH_MT) {
if (sem_name == NULL || *sem_name == 0) {
sem_name = acl_concatenate("/tmp/", acl_safe_basename(filename), ".sem", NULL);
} else
sem_name = acl_mystrdup(sem_name);
} else if (sem_name) {
sem_name = NULL;
}
h_log->h_log = e_log_new2(h_log->filename, priority, action,
flush, limit_size, facility_name, sync_action, sem_name);
if (sem_name)
acl_myfree(sem_name);
if (logme) {
e_log2(h_log->h_log, "master_env: %s", acl_vstring_str(log_buf));
}
e_log2(h_log->h_log, "filename=%s, priority=%d, action=%d, flush=%d, "
"limit_size=%d, facility_name=%s, sync_action=%d, sem_name=%s",
h_log->filename, priority, action,
flush, limit_size, facility_name, sync_action, sem_name);
if (log_buf)
acl_vstring_free(log_buf);
return (0);
}
static void __log_close(void *ctx acl_unused)
{
}
static void __log_write(void *ctx, const char *fmt, va_list ap)
{
LOG_WRAP *h_log = (LOG_WRAP *) ctx;
if (h_log->h_log)
e_vlog2(h_log->h_log, fmt, ap);
}
static void elib_logger_set(void)
{
LOG_WRAP *h_log;
h_log = acl_mycalloc(1, sizeof(LOG_WRAP));
if (h_log == NULL)
return;
acl_msg_register(__log_open, __log_close, __log_write, (void *) h_log);
__log_wrap = h_log;
}
static void elib_logger_end(void)
{
if (__log_wrap == NULL)
return;
if (__log_wrap->h_log == NULL)
return;
acl_msg_info("service exit now");
e_log_free(__log_wrap->h_log);
__log_wrap->h_log = NULL;
}
#endif
static int logger_open(const char *filename, void *ctx)
{
LOG_WRAP *h_log = (LOG_WRAP *) ctx;
#ifdef ACL_MS_WINDOWS
int flag = O_RDWR | O_CREAT | O_APPEND | O_BINARY;
#else
int flag = O_RDWR | O_CREAT | O_APPEND;
#endif
int mode = S_IREAD | S_IWRITE;
if (filename == NULL || *filename == 0)
return (-1);
acl_snprintf(h_log->filename, sizeof(h_log->filename), "%s", filename);
h_log->h_log = acl_vstream_fopen(h_log->filename, flag, mode, 1024);
if (h_log->h_log == NULL)
return (-1);
__pid = getpid();
return (0);
}
/* just for thread logger */
static int thread_logger_open(const char *filename, void *ctx)
{
return (logger_open(filename, ctx));
}
static void thread_logger_close(void *ctx acl_unused)
{
}
static void thread_logger_write(void *ctx, const char *fmt, va_list ap)
{
LOG_WRAP *h_log = (LOG_WRAP *) ctx;
char *pbuf;
if (h_log->h_log) {
pbuf = acl_mymalloc(1024);
vsnprintf(pbuf, 1024, fmt, ap);
acl_aqueue_push(h_log->logger_queue, pbuf);
}
}
static void *thread_logger_main(void *ctx)
{
LOG_WRAP *h_log = (LOG_WRAP *) ctx;
ACL_AQUEUE *logger_queue = h_log->logger_queue;
static char pre_buf[256];
static struct tm local_time;
static time_t now, last;
static int pre_len;
char *pbuf;
while (1) {
pbuf = acl_aqueue_pop(logger_queue);
assert(pbuf != NULL);
if (h_log->h_log == NULL)
continue;
time(&now);
if (now - last >= 1) {
last = now;
(void) localtime_r(&now, &local_time);
pre_len = snprintf(pre_buf, sizeof(pre_buf),
"\npid(%d) %d/%d/%d %d:%d:%d| ", __pid,
local_time.tm_year + 1900, local_time.tm_mon + 1,
local_time.tm_mday, local_time.tm_hour,
local_time.tm_min, local_time.tm_sec);
}
acl_vstream_writen(h_log->h_log, pre_buf, pre_len);
acl_vstream_writen(h_log->h_log, pbuf, strlen(pbuf));
acl_myfree(pbuf);
}
return (NULL);
}
static void thread_logger_set(void)
{
LOG_WRAP *h_log;
acl_pthread_attr_t attr;
acl_pthread_t tid;
h_log = acl_mycalloc(1, sizeof(LOG_WRAP));
if (h_log == NULL)
return;
acl_msg_register(thread_logger_open, thread_logger_close,
thread_logger_write, (void*)h_log);
__log_wrap = h_log;
h_log->logger_queue = acl_aqueue_new();
acl_pthread_attr_init(&attr);
acl_pthread_create(&tid, &attr, thread_logger_main, h_log);
}
static void thread_logger_end(void)
{
}
/* just for buffer logger */
static int buffer_logger_open(const char *filename, void *ctx)
{
return (logger_open(filename, ctx));
}
static void buffer_logger_close(void *ctx acl_unused)
{
}
static void buffer_logger_write(void *ctx, const char *fmt, va_list ap)
{
LOG_WRAP *h_log = (LOG_WRAP *) ctx;
static char buf[1024], pre_buf[256];
static struct tm local_time;
static time_t now, last;
static int pre_len;
int n;
if (h_log->h_log) {
time(&now);
if (now - last >= 1) {
last = now;
(void) localtime_r(&now, &local_time);
pre_len = snprintf(pre_buf, sizeof(pre_buf),
"\npid(%d) %d/%d/%d %d:%d:%d| ", __pid,
local_time.tm_year + 1900, local_time.tm_mon + 1,
local_time.tm_mday, local_time.tm_hour,
local_time.tm_min, local_time.tm_sec);
}
acl_vstream_buffed_writen(h_log->h_log, pre_buf, pre_len);
n = vsnprintf(buf, sizeof(buf), fmt, ap);
acl_vstream_buffed_writen(h_log->h_log, buf, n);
}
}
static void buffed_logger_fflush(int event_type acl_unused, void *context)
{
LOG_WRAP *h_log = (LOG_WRAP*) context;
if (h_log->h_log != NULL) {
acl_vstream_fflush(h_log->h_log);
}
}
static void buffed_logger_set(ACL_AIO *aio)
{
LOG_WRAP *h_log;
assert(aio != NULL);
h_log = acl_mycalloc(1, sizeof(LOG_WRAP));
if (h_log == NULL)
return;
h_log->aio = aio;
acl_msg_register(buffer_logger_open, buffer_logger_close,
buffer_logger_write, (void*)h_log);
(void) acl_aio_request_timer(aio, buffed_logger_fflush, h_log, 1, 1);
__log_wrap = h_log;
}
static void buffed_logger_end(void)
{
}
/* just for default logger */
static int default_logger_open(const char *filename, void *ctx)
{
return (logger_open(filename, ctx));
}
static void default_logger_close(void *ctx acl_unused)
{
}
static void default_logger_write(void *ctx, const char *fmt, va_list ap)
{
LOG_WRAP *h_log = (LOG_WRAP *) ctx;
static char buf[1024], pre_buf[256];
static struct tm local_time;
static time_t now, last;
static int pre_len;
int n;
if (h_log->h_log) {
time(&now);
if (now - last >= 1) {
last = now;
(void) localtime_r(&now, &local_time);
pre_len = snprintf(pre_buf, sizeof(pre_buf),
"\npid(%d) %d/%d/%d %d:%d:%d| ", __pid,
local_time.tm_year + 1900, local_time.tm_mon + 1,
local_time.tm_mday, local_time.tm_hour,
local_time.tm_min, local_time.tm_sec);
}
acl_vstream_writen(h_log->h_log, pre_buf, pre_len);
n = vsnprintf(buf, sizeof(buf), fmt, ap);
acl_vstream_writen(h_log->h_log, buf, n);
}
}
static void default_logger_set(void)
{
LOG_WRAP *h_log;
h_log = acl_mycalloc(1, sizeof(LOG_WRAP));
if (h_log == NULL)
return;
acl_msg_register(default_logger_open, default_logger_close,
default_logger_write, (void*)h_log);
__log_wrap = h_log;
}
static void default_logger_end(void)
{
}
/* logger main */
static char __logger_name[256];
void logger_set(const char *logger_name, ACL_AIO *aio)
{
const char *myname = "logger_set";
ACL_SAFE_STRNCPY(__logger_name, logger_name, sizeof(__logger_name));
if (strcasecmp(logger_name, "buffed_logger") == 0)
buffed_logger_set(aio);
else if (strcasecmp(logger_name, "default_logger") == 0)
default_logger_set();
else if (strcasecmp(logger_name, "thread_logger") == 0)
thread_logger_set();
#ifdef HAS_ELIB
else if (strcasecmp(logger_name, "elib_logger") == 0)
elib_logger_set();
#endif
else {
printf("%s(%d): unknown logger name(%s)\r\n",
myname, __LINE__, logger_name);
return;
}
}
void logger_end(void)
{
if (strcasecmp(__logger_name, "buffed_logger") == 0)
buffed_logger_end();
else if (strcasecmp(__logger_name, "default_logger") == 0)
default_logger_end();
else if (strcasecmp(__logger_name, "thread_logger") == 0)
thread_logger_end();
#ifdef HAS_ELIB
else if (strcasecmp(__logger_name, "elib_logger") == 0)
elib_logger_end();
#endif
}