/* $Id: fpm_php_trace.c,v 1.27.2.1 2008/11/15 00:57:24 anight Exp $ */ /* (c) 2007,2008 Andrei Nigmatulin */ #include "fpm_config.h" #if HAVE_FPM_TRACE #include "php.h" #include "php_main.h" #include #include #if HAVE_INTTYPES_H # include #else # include #endif #include #include #include #include #include "fpm_trace.h" #include "fpm_php_trace.h" #include "fpm_children.h" #include "fpm_worker_pool.h" #include "fpm_process_ctl.h" #include "zlog.h" #define valid_ptr(p) ((p) && 0 == ((p) & (sizeof(long) - 1))) #if SIZEOF_LONG == 4 #define PTR_FMT "08" #elif SIZEOF_LONG == 8 #define PTR_FMT "016" #endif static int fpm_php_trace_dump(struct fpm_child_s *child, FILE *slowlog TSRMLS_DC) /* {{{ */ { int callers_limit = 20; pid_t pid = child->pid; struct timeval tv; static const int buf_size = 1024; char buf[buf_size]; long execute_data; long l; gettimeofday(&tv, 0); zlog_print_time(&tv, buf, buf_size); fprintf(slowlog, "\n%s [pool %s] pid %d\n", buf, child->wp->config->name, (int) pid); if (0 > fpm_trace_get_strz(buf, buf_size, (long) &SG(request_info).path_translated)) { return -1; } fprintf(slowlog, "script_filename = %s\n", buf); if (0 > fpm_trace_get_long((long) &EG(current_execute_data), &l)) { return -1; } execute_data = l; while (execute_data) { long function; uint lineno = 0; fprintf(slowlog, "[0x%" PTR_FMT "lx] ", execute_data); if (0 > fpm_trace_get_long(execute_data + offsetof(zend_execute_data, function_state.function), &l)) { return -1; } function = l; if (valid_ptr(function)) { if (0 > fpm_trace_get_strz(buf, buf_size, function + offsetof(zend_function, common.function_name))) { return -1; } fprintf(slowlog, "%s()", buf); } else { fprintf(slowlog, "???"); } if (0 > fpm_trace_get_long(execute_data + offsetof(zend_execute_data, op_array), &l)) { return -1; } *buf = '\0'; if (valid_ptr(l)) { long op_array = l; if (0 > fpm_trace_get_strz(buf, buf_size, op_array + offsetof(zend_op_array, filename))) { return -1; } } if (0 > fpm_trace_get_long(execute_data + offsetof(zend_execute_data, opline), &l)) { return -1; } if (valid_ptr(l)) { long opline = l; uint *lu = (uint *) &l; if (0 > fpm_trace_get_long(opline + offsetof(struct _zend_op, lineno), &l)) { return -1; } lineno = *lu; } fprintf(slowlog, " %s:%u\n", *buf ? buf : "unknown", lineno); if (0 > fpm_trace_get_long(execute_data + offsetof(zend_execute_data, prev_execute_data), &l)) { return -1; } execute_data = l; if (0 == --callers_limit) { break; } } return 0; } /* }}} */ void fpm_php_trace(struct fpm_child_s *child) /* {{{ */ { TSRMLS_FETCH(); FILE *slowlog; zlog(ZLOG_NOTICE, "about to trace %d", (int) child->pid); slowlog = fopen(child->wp->config->slowlog, "a+"); if (!slowlog) { zlog(ZLOG_SYSERROR, "unable to open slowlog (%s)", child->wp->config->slowlog); goto done0; } if (0 > fpm_trace_ready(child->pid)) { goto done1; } if (0 > fpm_php_trace_dump(child, slowlog TSRMLS_CC)) { fprintf(slowlog, "+++ dump failed\n"); } if (0 > fpm_trace_close(child->pid)) { goto done1; } done1: fclose(slowlog); done0: fpm_pctl_kill(child->pid, FPM_PCTL_CONT); child->tracer = 0; zlog(ZLOG_NOTICE, "finished trace of %d", (int) child->pid); } /* }}} */ #endif