X-Git-Url: https://code.citadel.org/?a=blobdiff_plain;f=webcit%2Fwebserver.c;h=ff6f9c70756664e77e8e48d0c865ed19cd605000;hb=566a76281118d7433b3266c747879f166b38e50f;hp=8a81905270c64ce41184deb0071226432ebf9064;hpb=520ad0f847e7b6630611ef85e7034359bf73ec8d;p=citadel.git diff --git a/webcit/webserver.c b/webcit/webserver.c index 8a8190527..ff6f9c707 100644 --- a/webcit/webserver.c +++ b/webcit/webserver.c @@ -1,41 +1,76 @@ /* * $Id$ - * - * This contains a simple multithreaded TCP server manager. It sits around + */ +/** + * \defgroup Webserver This contains a simple multithreaded TCP server manager. It sits around * waiting on the specified port for incoming HTTP connections. When a * connection is established, it calls context_loop() from context_loop.c. - * + * \ingroup WebcitHttpServer */ - +/*@{*/ #include "webcit.h" #include "webserver.h" +#if HAVE_BACKTRACE +#include +#endif + #ifndef HAVE_SNPRINTF int vsnprintf(char *buf, size_t max, const char *fmt, va_list argp); #endif -int verbosity = 9; /* Logging level */ -int msock; /* master listening socket */ -int is_https = 0; /* Nonzero if I am an HTTPS service */ -int follow_xff = 0; /* Follow X-Forwarded-For: header */ +int verbosity = 9; /**< Logging level */ +int msock; /**< master listening socket */ +int is_https = 0; /**< Nonzero if I am an HTTPS service */ +int follow_xff = 0; /**< Follow X-Forwarded-For: header */ +int home_specified = 0; /**< did the user specify a homedir? */ extern void *context_loop(int); extern void *housekeeping_loop(void); extern pthread_mutex_t SessionListMutex; extern pthread_key_t MyConKey; +char socket_dir[PATH_MAX]; /**< where to talk to our citadel server */ +static const char editor_absolut_dir[PATH_MAX]=EDITORDIR; /**< nailed to what configure gives us. */ +static char static_dir[PATH_MAX]; /**< calculated on startup */ +static char static_local_dir[PATH_MAX]; /**< calculated on startup */ +char *static_dirs[]={ /**< needs same sort order as the web mapping */ + (char*)static_dir, /** our templates on disk */ + (char*)static_local_dir, /** user provided templates disk */ + (char*)editor_absolut_dir /** the editor on disk */ +}; + +/** + * Subdirectories from which the client may request static content + * + * (If you add more, remember to increment 'ndirs' below) + */ +char *static_content_dirs[] = { + "static", /** static templates */ + "static.local", /** site local static templates */ + "tiny_mce" /** the JS editor */ +}; + +int ndirs=3; -char *server_cookie = NULL; +char *server_cookie = NULL; /**< our Cookie connection to the client */ -char *ctdlhost = DEFAULT_HOST; -char *ctdlport = DEFAULT_PORT; -int setup_wizard = 0; -char wizard_filename[PATH_MAX]; +int http_port = PORT_NUM; /**< Port to listen on */ -/* - * This is a generic function to set up a master socket for listening on +char *ctdlhost = DEFAULT_HOST; /**< our name */ +char *ctdlport = DEFAULT_PORT; /**< our Port */ +int setup_wizard = 0; /**< should we run the setup wizard? \todo */ +char wizard_filename[PATH_MAX];/**< where's the setup wizard? */ +int running_as_daemon = 0; /**< should we deamonize on startup? */ + + +/** + * \brief This is a generic function to set up a master socket for listening on * a TCP port. The server shuts down if the bind fails. + * \param ip_addr ip to bind to + * \param port_number the port to bind to + * \param queue_len the size of the input queue ???? */ int ig_tcp_server(char *ip_addr, int port_number, int queue_len) { @@ -56,37 +91,94 @@ int ig_tcp_server(char *ip_addr, int port_number, int queue_len) if (port_number == 0) { lprintf(1, "Cannot start: no port number specified.\n"); - exit(1); + exit(WC_EXIT_BIND); } sin.sin_port = htons((u_short) port_number); s = socket(PF_INET, SOCK_STREAM, (getprotobyname("tcp")->p_proto)); if (s < 0) { lprintf(1, "Can't create a socket: %s\n", strerror(errno)); - exit(errno); + exit(WC_EXIT_BIND); } - /* Set some socket options that make sense. */ + /** Set some socket options that make sense. */ i = 1; setsockopt(s, SOL_SOCKET, SO_REUSEADDR, &i, sizeof(i)); if (bind(s, (struct sockaddr *) &sin, sizeof(sin)) < 0) { lprintf(1, "Can't bind: %s\n", strerror(errno)); - exit(errno); + exit(WC_EXIT_BIND); } if (listen(s, queue_len) < 0) { lprintf(1, "Can't listen: %s\n", strerror(errno)); - exit(errno); + exit(WC_EXIT_BIND); } return (s); } -/* - * Read data from the client socket. - * Return values are: - * 1 Requested number of bytes has been read. - * 0 Request timed out. - * -1 Connection is broken, or other error. + +/** + * \brief Create a Unix domain socket and listen on it + * \param sockpath file name of the unix domain socket + * \param queue_len queue size of the kernel fifo???? + */ +int ig_uds_server(char *sockpath, int queue_len) +{ + struct sockaddr_un addr; + int s; + int i; + int actual_queue_len; + + actual_queue_len = queue_len; + if (actual_queue_len < 5) actual_queue_len = 5; + + i = unlink(sockpath); + if (i != 0) if (errno != ENOENT) { + lprintf(1, "citserver: can't unlink %s: %s\n", + sockpath, strerror(errno)); + exit(WC_EXIT_BIND); + } + + memset(&addr, 0, sizeof(addr)); + addr.sun_family = AF_UNIX; + safestrncpy(addr.sun_path, sockpath, sizeof addr.sun_path); + + s = socket(AF_UNIX, SOCK_STREAM, 0); + if (s < 0) { + lprintf(1, "citserver: Can't create a socket: %s\n", + strerror(errno)); + exit(WC_EXIT_BIND); + } + + if (bind(s, (struct sockaddr *)&addr, sizeof(addr)) < 0) { + lprintf(1, "citserver: Can't bind: %s\n", + strerror(errno)); + exit(WC_EXIT_BIND); + } + + if (listen(s, actual_queue_len) < 0) { + lprintf(1, "citserver: Can't listen: %s\n", + strerror(errno)); + exit(WC_EXIT_BIND); + } + + chmod(sockpath, 0777); + return(s); +} + + + + +/** + * \brief Read data from the client socket. + * \param sock socket fd to read from ??? + * \param buf buffer to read into + * \param bytes how large is the read buffer? + * \param timeout how long should we wait for input? + * \return values are\ + * 1 Requested number of bytes has been read.\ + * 0 Request timed out.\ + * -1 Connection is broken, or other error. */ int client_read_to(int sock, char *buf, int bytes, int timeout) { @@ -132,16 +224,36 @@ int client_read_to(int sock, char *buf, int bytes, int timeout) return (1); } - +/** + * \brief write data to the client + * \param buf data to write to the client + * \param count size of buffer + */ ssize_t client_write(const void *buf, size_t count) { + char *newptr; + size_t newalloc; if (WC->burst != NULL) { - WC->burst = - realloc(WC->burst, (WC->burst_len + count + 2)); - memcpy(&WC->burst[WC->burst_len], buf, count); - WC->burst_len += count; - return (count); + if ((WC->burst_len + count) >= WC->burst_alloc) { + newalloc = (WC->burst_alloc * 2); + if ((WC->burst_len + count) >= newalloc) { + newalloc += count; + } + newptr = realloc(WC->burst, newalloc); + if (newptr != NULL) { + WC->burst = newptr; + WC->burst_alloc = newalloc; + } + } + if ((WC->burst_len + count) < WC->burst_alloc) { + memcpy(&WC->burst[WC->burst_len], buf, count); + WC->burst_len += count; + return (count); + } + else { + return(-1); + } } #ifdef HAVE_OPENSSL if (is_https) { @@ -157,7 +269,9 @@ ssize_t client_write(const void *buf, size_t count) return (write(WC->http_sock, buf, count)); } - +/** + * \brief what burst??? + */ void begin_burst(void) { if (WC->burst != NULL) { @@ -165,26 +279,30 @@ void begin_burst(void) WC->burst = NULL; } WC->burst_len = 0; - WC->burst = malloc(SIZ); + WC->burst_alloc = 32768; + WC->burst = malloc(WC->burst_alloc); } -/* - * compress_gzip() uses the same calling syntax as compress2(), but it +/** + * \brief uses the same calling syntax as compress2(), but it * creates a stream compatible with HTTP "Content-encoding: gzip" */ #ifdef HAVE_ZLIB -#define DEF_MEM_LEVEL 8 -#define OS_CODE 0x03 /* unix */ -int ZEXPORT compress_gzip(Bytef * dest, uLongf * destLen, - const Bytef * source, uLong sourceLen, int level) +#define DEF_MEM_LEVEL 8 /**< memlevel??? */ +#define OS_CODE 0x03 /**< unix */ +int ZEXPORT compress_gzip(Bytef * dest, /**< compressed buffer*/ + uLongf * destLen, /**< length of the compresed data */ + const Bytef * source, /**< source to encode */ + uLong sourceLen, /**< length of the source to encode */ + int level) /**< what level??? */ { - const int gz_magic[2] = { 0x1f, 0x8b }; /* gzip magic header */ + const int gz_magic[2] = { 0x1f, 0x8b }; /** gzip magic header */ - /* write gzip header */ + /** write gzip header */ sprintf((char *) dest, "%c%c%c%c%c%c%c%c%c%c", gz_magic[0], gz_magic[1], Z_DEFLATED, - 0 /*flags */ , 0, 0, 0, 0 /*time */ , 0 /*xflags */ , + 0 /*flags */ , 0, 0, 0, 0 /*time */ , 0 /** xflags */ , OS_CODE); /* normal deflate */ @@ -230,6 +348,9 @@ int ZEXPORT compress_gzip(Bytef * dest, uLongf * destLen, } #endif +/** + * \brief what burst??? + */ void end_burst(void) { size_t the_len; @@ -242,6 +363,7 @@ void end_burst(void) the_data = WC->burst; WC->burst_len = 0; + WC->burst_alloc = 0; WC->burst = NULL; #ifdef HAVE_ZLIB @@ -275,10 +397,13 @@ void end_burst(void) -/* - * Read data from the client socket with default timeout. +/** + * \brief Read data from the client socket with default timeout. * (This is implemented in terms of client_read_to() and could be * justifiably moved out of sysdep.c) + * \param sock the socket fd to read from??? + * \param buf the buffer to write to + * \param bytes how large is the buffer */ int client_read(int sock, char *buf, int bytes) { @@ -286,30 +411,36 @@ int client_read(int sock, char *buf, int bytes) } -/* - * client_getln() ... Get a LF-terminated line of text from the client. +/** + * \brief Get a LF-terminated line of text from the client. * (This is implemented in terms of client_read() and could be * justifiably moved out of sysdep.c) + * \param sock socket fd to get client line from??? + * \param buf buffer to write read data to + * \param bufsiz how many bytes to read + * \return numer of bytes read??? */ int client_getln(int sock, char *buf, int bufsiz) { int i, retval; - /* Read one character at a time. - */ + /** Read one character at a time.*/ for (i = 0;; i++) { retval = client_read(sock, &buf[i], 1); if (retval != 1 || buf[i] == '\n' || i == (bufsiz-1)) break; + if ( (!isspace(buf[i])) && (!isprint(buf[i])) ) { + /** Non printable character recieved from client */ + return(-1); + } } - /* If we got a long line, discard characters until the newline. - */ + /** If we got a long line, discard characters until the newline. */ if (i == (bufsiz-1)) while (buf[i] != '\n' && retval == 1) retval = client_read(sock, &buf[i], 1); - /* + /** * Strip any trailing non-printable characters. */ buf[i] = 0; @@ -319,37 +450,133 @@ int client_getln(int sock, char *buf, int bufsiz) return (retval); } +/** + * \brief shut us down the regular way. + * param signum the signal we want to forward + */ +pid_t current_child; +void graceful_shutdown(int signum) { + kill(current_child, signum); + exit(0); +} + + +/** + * \brief Start running as a daemon. + * + * param do_close_stdio Only close stdio if set. + */ /* - * Start running as a daemon. Only close stdio if do_close_stdio is set. + * Start running as a daemon. */ -void start_daemon(int do_close_stdio) +void start_daemon(char *pid_file) { - if (do_close_stdio) { - /* close(0); */ - close(1); - close(2); - } + int status = 0; + pid_t child = 0; + FILE *fp; + int do_restart = 0; + + current_child = 0; + + /* Close stdin/stdout/stderr and replace them with /dev/null. + * We don't just call close() because we don't want these fd's + * to be reused for other files. + */ + chdir("/"); + signal(SIGHUP, SIG_IGN); signal(SIGINT, SIG_IGN); signal(SIGQUIT, SIG_IGN); - if (fork() != 0) + + child = fork(); + if (child != 0) { exit(0); + } + + setsid(); + umask(0); + freopen("/dev/null", "r", stdin); + freopen("/dev/null", "w", stdout); + freopen("/dev/null", "w", stderr); + + do { + current_child = fork(); + + + if (current_child < 0) { + perror("fork"); + exit(errno); + } + + else if (current_child == 0) { + signal(SIGTERM, graceful_shutdown); + return; /* continue starting citadel. */ + } + + else { + signal(SIGTERM, SIG_IGN); + if (pid_file) { + fp = fopen(pid_file, "w"); + if (fp != NULL) { + fprintf(fp, "%ld\n", current_child); + fclose(fp); + } + } + waitpid(current_child, &status, 0); + } + + do_restart = 0; + + /* Did the main process exit with an actual exit code? */ + if (WIFEXITED(status)) { + + /* Exit code 0 means the watcher should exit */ + if (WEXITSTATUS(status) == 0) { + do_restart = 0; + } + + /* Exit code 101-109 means the watcher should exit */ + else if ( (WEXITSTATUS(status) >= 101) && (WEXITSTATUS(status) <= 109) ) { + do_restart = 0; + } + + /* Any other exit code means we should restart. */ + else { + do_restart = 1; + } + } + + /* Any other type of termination (signals, etc.) should also restart. */ + else { + do_restart = 1; + } + + } while (do_restart); + + if (pid_file) { + unlink(pid_file); + } + exit(WEXITSTATUS(status)); } +/** + * \brief Spawn an additional worker thread into the pool. + */ void spawn_another_worker_thread() { - pthread_t SessThread; /* Thread descriptor */ - pthread_attr_t attr; /* Thread attributes */ + pthread_t SessThread; /**< Thread descriptor */ + pthread_attr_t attr; /**< Thread attributes */ int ret; lprintf(3, "Creating a new thread\n"); - /* set attributes for the new thread */ + /** set attributes for the new thread */ pthread_attr_init(&attr); pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED); - /* Our per-thread stacks need to be bigger than the default size, otherwise + /** + * Our per-thread stacks need to be bigger than the default size, otherwise * the MIME parser crashes on FreeBSD, and the IMAP service crashes on * 64-bit Linux. */ @@ -359,47 +586,80 @@ void spawn_another_worker_thread() pthread_attr_destroy(&attr); } - /* now create the thread */ + /** now create the thread */ if (pthread_create(&SessThread, &attr, (void *(*)(void *)) worker_entry, NULL) != 0) { lprintf(1, "Can't create thread: %s\n", strerror(errno)); } - /* free up the attributes */ + /** free up the attributes */ pthread_attr_destroy(&attr); } -/* - * Here's where it all begins. +/** + * \brief Here's where it all begins. + * \param argc number of commandline args + * \param argv the commandline arguments */ int main(int argc, char **argv) { - pthread_t SessThread; /* Thread descriptor */ - pthread_attr_t attr; /* Thread attributes */ - int a, i; /* General-purpose variables */ - int port = PORT_NUM; /* Port to listen on */ + pthread_t SessThread; /**< Thread descriptor */ + pthread_attr_t attr; /**< Thread attributes */ + int a, i; /**< General-purpose variables */ char tracefile[PATH_MAX]; char ip_addr[256]; - char *webcitdir = WEBCITDIR; + char dirbuffer[PATH_MAX]=""; + int relh=0; + int home=0; + int home_specified=0; + char relhome[PATH_MAX]=""; + char webcitdir[PATH_MAX] = DATADIR; + char *pidfile = NULL; + char *hdir; + const char *basedir; +#ifdef ENABLE_NLS char *locale = NULL; char *mo = NULL; +#endif /* ENABLE_NLS */ + char uds_listen_path[PATH_MAX]; /**< listen on a unix domain socket? */ - /* Parse command line */ + strcpy(uds_listen_path, ""); + + /** Parse command line */ #ifdef HAVE_OPENSSL - while ((a = getopt(argc, argv, "h:i:p:t:x:cfs")) != EOF) + while ((a = getopt(argc, argv, "h:i:p:t:x:dD:cfs")) != EOF) #else - while ((a = getopt(argc, argv, "h:i:p:t:x:cf")) != EOF) + while ((a = getopt(argc, argv, "h:i:p:t:x:dD:cf")) != EOF) #endif switch (a) { case 'h': - webcitdir = strdup(optarg); + hdir = strdup(optarg); + relh=hdir[0]!='/'; + if (!relh) safestrncpy(webcitdir, hdir, + sizeof webcitdir); + else + safestrncpy(relhome, relhome, + sizeof relhome); + /* free(hdir); TODO: SHOULD WE DO THIS? */ + home_specified = 1; + home=1; + break; + case 'd': + running_as_daemon = 1; + break; + case 'D': + pidfile = strdup(optarg); + running_as_daemon = 1; break; case 'i': safestrncpy(ip_addr, optarg, sizeof ip_addr); break; case 'p': - port = atoi(optarg); + http_port = atoi(optarg); + if (http_port == 0) { + safestrncpy(uds_listen_path, optarg, sizeof uds_listen_path); + } break; case 't': safestrncpy(tracefile, optarg, sizeof tracefile); @@ -435,6 +695,7 @@ int main(int argc, char **argv) fprintf(stderr, "usage: webserver " "[-i ip_addr] [-p http_port] " "[-t tracefile] [-c] [-f] " + "[-d] " #ifdef HAVE_OPENSSL "[-s] " #endif @@ -447,36 +708,59 @@ int main(int argc, char **argv) if (++optind < argc) ctdlport = argv[optind]; } - /* Tell 'em who's in da house */ + + /* daemonize, if we were asked to */ + if (running_as_daemon) { + start_daemon(pidfile); + } + + /** Tell 'em who's in da house */ lprintf(1, SERVER "\n"); - lprintf(1, "Copyright (C) 1996-2005 by the Citadel development team.\n" + lprintf(1, "Copyright (C) 1996-2007 by the Citadel development team.\n" "This software is distributed under the terms of the " "GNU General Public License.\n\n" ); - lprintf(9, "Changing directory to %s\n", webcitdir); - if (chdir(webcitdir) != 0) { - perror("chdir"); - } - /* initialize the International Bright Young Thing */ + /** initialize the International Bright Young Thing */ #ifdef ENABLE_NLS + initialize_locales(); locale = setlocale(LC_ALL, ""); - mo = malloc(strlen(webcitdir) + 20); - sprintf(mo, "%s/locale", webcitdir); - lprintf(9, "Message catalog directory: %s\n", - bindtextdomain("webcit", mo) - ); + lprintf(9, "Message catalog directory: %s\n", bindtextdomain("webcit", LOCALEDIR"/locale")); free(mo); - lprintf(9, "Text domain: %s\n", - textdomain("webcit") - ); + lprintf(9, "Text domain: %s\n", textdomain("webcit")); + lprintf(9, "Text domain Charset: %s\n", bind_textdomain_codeset("webcit","UTF8")); #endif + + /* calculate all our path on a central place */ + /* where to keep our config */ + +#define COMPUTE_DIRECTORY(SUBDIR) memcpy(dirbuffer,SUBDIR, sizeof dirbuffer);\ + snprintf(SUBDIR,sizeof SUBDIR, "%s%s%s%s%s%s%s", \ + (home&!relh)?webcitdir:basedir, \ + ((basedir!=webcitdir)&(home&!relh))?basedir:"/", \ + ((basedir!=webcitdir)&(home&!relh))?"/":"", \ + relhome, \ + (relhome[0]!='\0')?"/":"",\ + dirbuffer,\ + (dirbuffer[0]!='\0')?"/":""); + basedir=RUNDIR; + COMPUTE_DIRECTORY(socket_dir); + basedir=DATADIR "/static"; + COMPUTE_DIRECTORY(static_dir); + basedir=DATADIR "/static.local"; + COMPUTE_DIRECTORY(static_local_dir); + /** we should go somewhere we can leave our coredump, if enabled... */ + lprintf(9, "Changing directory to %s\n", socket_dir); + if (chdir(webcitdir) != 0) { + perror("chdir"); + } initialize_viewdefs(); + initialize_axdefs(); - /* + /** * Set up a place to put thread-specific data. * We only need a single pointer per thread - it points to the * wcsession struct to which the thread is currently bound. @@ -485,7 +769,7 @@ int main(int argc, char **argv) lprintf(1, "Can't create TSD key: %s\n", strerror(errno)); } - /* + /** * Set up a place to put thread-specific SSL data. * We don't stick this in the wcsession struct because SSL starts * up before the session is bound, and it gets torn down between @@ -497,19 +781,27 @@ int main(int argc, char **argv) } #endif - /* + /** * Bind the server to our favorite port. * There is no need to check for errors, because ig_tcp_server() * exits if it doesn't succeed. */ - lprintf(2, "Attempting to bind to port %d...\n", port); - msock = ig_tcp_server(ip_addr, port, LISTEN_QUEUE_LENGTH); + + if (strlen(uds_listen_path) > 0) { + lprintf(2, "Attempting to create listener socket at %s...\n", uds_listen_path); + msock = ig_uds_server(uds_listen_path, LISTEN_QUEUE_LENGTH); + } + else { + lprintf(2, "Attempting to bind to port %d...\n", http_port); + msock = ig_tcp_server(ip_addr, http_port, LISTEN_QUEUE_LENGTH); + } + lprintf(2, "Listening on socket %d\n", msock); signal(SIGPIPE, SIG_IGN); pthread_mutex_init(&SessionListMutex, NULL); - /* + /** * Start up the housekeeping thread */ pthread_attr_init(&attr); @@ -518,7 +810,7 @@ int main(int argc, char **argv) (void *(*)(void *)) housekeeping_loop, NULL); - /* + /** * If this is an HTTPS server, fire up SSL */ #ifdef HAVE_OPENSSL @@ -527,7 +819,7 @@ int main(int argc, char **argv) } #endif - /* Start a few initial worker threads */ + /** Start a few initial worker threads */ for (i = 0; i < (MIN_WORKER_THREADS); ++i) { spawn_another_worker_thread(); } @@ -538,7 +830,7 @@ int main(int argc, char **argv) } -/* +/** * Entry point for worker threads */ void worker_entry(void) @@ -549,19 +841,19 @@ void worker_entry(void) int fail_this_transaction = 0; do { - /* Only one thread can accept at a time */ + /** Only one thread can accept at a time */ fail_this_transaction = 0; ssock = accept(msock, NULL, 0); if (ssock < 0) { lprintf(2, "accept() failed: %s\n", strerror(errno)); } else { - /* Set the SO_REUSEADDR socket option */ + /** Set the SO_REUSEADDR socket option */ i = 1; setsockopt(ssock, SOL_SOCKET, SO_REUSEADDR, &i, sizeof(i)); - /* If we are an HTTPS server, go crypto now. */ + /** If we are an HTTPS server, go crypto now. */ #ifdef HAVE_OPENSSL if (is_https) { if (starttls(ssock) != 0) { @@ -572,9 +864,18 @@ void worker_entry(void) #endif if (fail_this_transaction == 0) { - /* Perform an HTTP transaction... */ + + /** Perform an HTTP transaction... */ context_loop(ssock); - /* ...and close the socket. */ + + /** Shut down SSL/TLS if required... */ +#ifdef HAVE_OPENSSL + if (is_https) { + endtls(); + } +#endif + + /** ...and close the socket. */ lingering_close(ssock); } @@ -585,7 +886,13 @@ void worker_entry(void) pthread_exit(NULL); } - +/** + * \brief logprintf. log messages + * logs to stderr if loglevel is lower than the verbosity set at startup + * \param loglevel level of the message + * \param format the printf like format string + * \param ... the strings to put into format + */ int lprintf(int loglevel, const char *format, ...) { va_list ap; @@ -598,3 +905,29 @@ int lprintf(int loglevel, const char *format, ...) } return 1; } + + +/** + * \brief print the actual stack frame. + */ +void wc_backtrace(void) +{ +#ifdef HAVE_BACKTRACE + void *stack_frames[50]; + size_t size, i; + char **strings; + + + size = backtrace(stack_frames, sizeof(stack_frames) / sizeof(void*)); + strings = backtrace_symbols(stack_frames, size); + for (i = 0; i < size; i++) { + if (strings != NULL) + lprintf(1, "%s\n", strings[i]); + else + lprintf(1, "%p\n", stack_frames[i]); + } + free(strings); +#endif +} + +/*@}*/