text: 
  	/* $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 <stdio.h>
  #include <stddef.h>
  #if HAVE_INTTYPES_H
  # include <inttypes.h>
  #else
  # include <stdint.h>
  #endif
  #include <unistd.h>
  #include <sys/time.h>
  #include <sys/types.h>
  #include <errno.h>
  
  #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
  
  