stats.c 29.6 KB
Newer Older
1 2 3 4 5 6 7 8 9 10
/* Icecast
 *
 * This program is distributed under the GNU General Public License, version 2.
 * A copy of this license is included with this source.
 *
 * Copyright 2000-2004, Jack Moffitt <jack@xiph.org, 
 *                      Michael Smith <msmith@xiph.org>,
 *                      oddsock <oddsock@xiph.org>,
 *                      Karl Heyes <karl@xiph.org>
 *                      and others (see AUTHORS for details).
11
 * Copyright 2012-2014, Philipp "ph3-der-loewe" Schafft <lion@lion.leolix.org>,
12 13
 */

14 15 16 17
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

Jack Moffitt's avatar
Jack Moffitt committed
18 19 20 21 22
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <stdarg.h>

Michael Smith's avatar
Michael Smith committed
23 24 25
#include <libxml/xmlmemory.h>
#include <libxml/parser.h>
#include <libxml/tree.h>
Jack Moffitt's avatar
Jack Moffitt committed
26

27 28 29 30
#include "thread/thread.h"
#include "avl/avl.h"
#include "httpp/httpp.h"
#include "net/sock.h"
Jack Moffitt's avatar
Jack Moffitt committed
31 32 33

#include "connection.h"

34
#include "source.h"
Jack Moffitt's avatar
Jack Moffitt committed
35 36 37 38
#include "global.h"
#include "refbuf.h"
#include "client.h"
#include "stats.h"
39
#include "xslt.h"
40
#include "util.h"
41 42
#define CATMODULE "stats"
#include "logging.h"
Jack Moffitt's avatar
Jack Moffitt committed
43

44
#ifdef _WIN32
45
#define atoll _atoi64
46
#define vsnprintf _vsnprintf
47
#define snprintf _snprintf
48
#endif
Jack Moffitt's avatar
Jack Moffitt committed
49

50 51 52 53
#define STATS_EVENT_SET     0
#define STATS_EVENT_INC     1
#define STATS_EVENT_DEC     2
#define STATS_EVENT_ADD     3
Karl Heyes's avatar
Karl Heyes committed
54 55 56
#define STATS_EVENT_SUB     4
#define STATS_EVENT_REMOVE  5
#define STATS_EVENT_HIDDEN  6
57

58 59 60 61 62 63 64 65
typedef struct _event_queue_tag
{
    volatile stats_event_t *head;
    volatile stats_event_t **tail;
} event_queue_t;

#define event_queue_init(qp)    { (qp)->head = NULL; (qp)->tail = &(qp)->head; }

Jack Moffitt's avatar
Jack Moffitt committed
66 67
typedef struct _event_listener_tag
{
68 69
    event_queue_t queue;
    mutex_t mutex;
Jack Moffitt's avatar
Jack Moffitt committed
70

71
    struct _event_listener_tag *next;
Jack Moffitt's avatar
Jack Moffitt committed
72 73
} event_listener_t;

74
static volatile int _stats_running = 0;
75
static thread_type *_stats_thread_id;
76
static volatile int _stats_threads = 0;
Jack Moffitt's avatar
Jack Moffitt committed
77

78 79
static stats_t _stats;
static mutex_t _stats_mutex;
Jack Moffitt's avatar
Jack Moffitt committed
80

81
static event_queue_t _global_event_queue;
Jack Moffitt's avatar
Jack Moffitt committed
82 83
mutex_t _global_event_mutex;

84
static volatile event_listener_t *_event_listeners;
Jack Moffitt's avatar
Jack Moffitt committed
85 86 87 88 89 90 91


static void *_stats_thread(void *arg);
static int _compare_stats(void *a, void *b, void *arg);
static int _compare_source_stats(void *a, void *b, void *arg);
static int _free_stats(void *key);
static int _free_source_stats(void *key);
92
static void _add_event_to_queue(stats_event_t *event, event_queue_t *queue);
93 94
static stats_node_t *_find_node(avl_tree *tree, const char *name);
static stats_source_t *_find_source(avl_tree *tree, const char *source);
Jack Moffitt's avatar
Jack Moffitt committed
95
static void _free_event(stats_event_t *event);
96
static stats_event_t *_get_event_from_queue (event_queue_t *queue);
Jack Moffitt's avatar
Jack Moffitt committed
97

98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121

/* simple helper function for creating an event */
static stats_event_t *build_event (const char *source, const char *name, const char *value)
{
    stats_event_t *event;

    event = (stats_event_t *)calloc(1, sizeof(stats_event_t));
    if (event)
    {
        if (source)
            event->source = (char *)strdup(source);
        if (name)
            event->name = (char *)strdup(name);
        if (value)
            event->value = (char *)strdup(value);
        else
            event->action = STATS_EVENT_REMOVE;
    }
    return event;
}

static void queue_global_event (stats_event_t *event)
{
    thread_mutex_lock(&_global_event_mutex);
122
    _add_event_to_queue (event, &_global_event_queue);
123 124 125
    thread_mutex_unlock(&_global_event_mutex);
}

126
void stats_initialize(void)
Jack Moffitt's avatar
Jack Moffitt committed
127
{
128
    _event_listeners = NULL;
129

130 131 132
    /* set up global struct */
    _stats.global_tree = avl_tree_new(_compare_stats, NULL);
    _stats.source_tree = avl_tree_new(_compare_source_stats, NULL);
Jack Moffitt's avatar
Jack Moffitt committed
133

134 135
    /* set up global mutex */
    thread_mutex_create(&_stats_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
136

137
    /* set up stats queues */
138
    event_queue_init (&_global_event_queue);
139
    thread_mutex_create(&_global_event_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
140

141 142 143
    /* fire off the stats thread */
    _stats_running = 1;
    _stats_thread_id = thread_create("Stats Thread", _stats_thread, NULL, THREAD_ATTACHED);
Jack Moffitt's avatar
Jack Moffitt committed
144 145
}

146
void stats_shutdown(void)
Jack Moffitt's avatar
Jack Moffitt committed
147
{
148
    int n;
Jack Moffitt's avatar
Jack Moffitt committed
149

150 151 152
    if(!_stats_running) /* We can't shutdown if we're not running. */
        return;

153 154 155
    /* wait for thread to exit */
    _stats_running = 0;
    thread_join(_stats_thread_id);
Jack Moffitt's avatar
Jack Moffitt committed
156

157 158 159 160 161 162 163
    /* wait for other threads to shut down */
    do {
        thread_sleep(300000);
        thread_mutex_lock(&_stats_mutex);
        n = _stats_threads;
        thread_mutex_unlock(&_stats_mutex);
    } while (n > 0);
164
    ICECAST_LOG_INFO("stats thread finished");
165

166
    /* free the queues */
Jack Moffitt's avatar
Jack Moffitt committed
167

168 169
    /* destroy the queue mutexes */
    thread_mutex_destroy(&_global_event_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
170

171 172 173
    thread_mutex_destroy(&_stats_mutex);
    avl_tree_free(_stats.source_tree, _free_source_stats);
    avl_tree_free(_stats.global_tree, _free_stats);
174

175 176 177 178
    while (1)
    {
        stats_event_t *event = _get_event_from_queue (&_global_event_queue);
        if (event == NULL) break;
179 180 181 182
        if(event->source)
            free(event->source);
        if(event->value)
            free(event->value);
183 184
        if(event->name)
            free(event->name);
185 186
        free(event);
    }
Jack Moffitt's avatar
Jack Moffitt committed
187 188
}

189
stats_t *stats_get_stats(void)
Jack Moffitt's avatar
Jack Moffitt committed
190
{
191 192 193
    /* lock global stats
    
     copy stats
Jack Moffitt's avatar
Jack Moffitt committed
194

195
     unlock global stats
Jack Moffitt's avatar
Jack Moffitt committed
196

197
     return copied stats */
Jack Moffitt's avatar
Jack Moffitt committed
198

199
    return NULL;
Jack Moffitt's avatar
Jack Moffitt committed
200 201
}

202 203
/* simple name=tag stat create/update */
void stats_event(const char *source, const char *name, const char *value)
Jack Moffitt's avatar
Jack Moffitt committed
204
{
205 206
    stats_event_t *event;

207 208
    if (value && xmlCheckUTF8 ((unsigned char *)value) == 0)
    {
209
        ICECAST_LOG_WARN("seen non-UTF8 data, probably incorrect metadata (%s, %s)", name, value);
210 211
        return;
    }
212 213 214
    event = build_event (source, name, value);
    if (event)
        queue_global_event (event);
Jack Moffitt's avatar
Jack Moffitt committed
215 216
}

217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237

/* wrapper for stats_event, this takes a charset to convert from */
void stats_event_conv(const char *mount, const char *name, const char *value, const char *charset)
{
    const char *metadata = value;
    xmlBufferPtr conv = xmlBufferCreate ();

    if (charset)
    {
        xmlCharEncodingHandlerPtr handle = xmlFindCharEncodingHandler (charset);

        if (handle)
        {
            xmlBufferPtr raw = xmlBufferCreate ();
            xmlBufferAdd (raw, (const xmlChar *)value, strlen (value));
            if (xmlCharEncInFunc (handle, conv, raw) > 0)
                metadata = (char *)xmlBufferContent (conv);
            xmlBufferFree (raw);
            xmlCharEncCloseFunc (handle);
        }
        else
238
            ICECAST_LOG_WARN("No charset found for \"%s\"", charset);
239 240 241 242 243 244
    }

    stats_event (mount, name, metadata);
    xmlBufferFree (conv);
}

245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260
/* make stat hidden (non-zero). name can be NULL if it applies to a whole
 * source stats tree. */
void stats_event_hidden (const char *source, const char *name, int hidden)
{
    stats_event_t *event;
    const char *str = NULL;

    if (hidden)
        str = "";
    event = build_event (source, name, str);
    if (event)
    {
        event->action = STATS_EVENT_HIDDEN;
        queue_global_event (event);
    }
}
261 262 263

/* printf style formatting for stat create/update */
void stats_event_args(const char *source, char *name, char *format, ...)
Jack Moffitt's avatar
Jack Moffitt committed
264
{
265 266
    char buf[1024];
    va_list val;
267 268 269 270
    int ret;

    if (name == NULL)
        return;
271
    va_start(val, format);
272
    ret = vsnprintf(buf, sizeof(buf), format, val);
273
    va_end(val);
Jack Moffitt's avatar
Jack Moffitt committed
274

275 276
    if (ret < 0 || (unsigned int)ret >= sizeof (buf))
    {
277
        ICECAST_LOG_WARN("problem with formatting %s stat %s",
278 279 280
                source==NULL ? "global" : source, name);
        return;
    }
281
    stats_event(source, name, buf);
Jack Moffitt's avatar
Jack Moffitt committed
282 283
}

284
static char *_get_stats(const char *source, const char *name)
Jack Moffitt's avatar
Jack Moffitt committed
285
{
286 287 288
    stats_node_t *stats = NULL;
    stats_source_t *src = NULL;
    char *value = NULL;
Jack Moffitt's avatar
Jack Moffitt committed
289

290
    thread_mutex_lock(&_stats_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
291

292 293 294 295 296 297 298 299
    if (source == NULL) {
        stats = _find_node(_stats.global_tree, name);
    } else {
        src = _find_source(_stats.source_tree, source);
        if (src) {
            stats = _find_node(src->stats_tree, name);
        }
    }
Jack Moffitt's avatar
Jack Moffitt committed
300

301
    if (stats) value = (char *)strdup(stats->value);
Jack Moffitt's avatar
Jack Moffitt committed
302

303
    thread_mutex_unlock(&_stats_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
304

305
    return value;
Jack Moffitt's avatar
Jack Moffitt committed
306 307
}

308
char *stats_get_value(const char *source, const char *name)
309
{
310
    return(_get_stats(source, name));
311
}
312 313 314

/* increase the value in the provided stat by 1 */
void stats_event_inc(const char *source, const char *name)
Jack Moffitt's avatar
Jack Moffitt committed
315
{
316
    stats_event_t *event = build_event (source, name, NULL);
317
    /* ICECAST_LOG_DEBUG("%s on %s", name, source==NULL?"global":source); */
318 319 320 321
    if (event)
    {
        event->action = STATS_EVENT_INC;
        queue_global_event (event);
322
    }
Jack Moffitt's avatar
Jack Moffitt committed
323 324
}

325
void stats_event_add(const char *source, const char *name, unsigned long value)
Jack Moffitt's avatar
Jack Moffitt committed
326
{
327
    stats_event_t *event = build_event (source, name, NULL);
328
    /* ICECAST_LOG_DEBUG("%s on %s", name, source==NULL?"global":source); */
329 330 331 332 333 334
    if (event)
    {
        event->value = malloc (16);
        snprintf (event->value, 16, "%ld", value);
        event->action = STATS_EVENT_ADD;
        queue_global_event (event);
335
    }
Jack Moffitt's avatar
Jack Moffitt committed
336 337
}

Karl Heyes's avatar
Karl Heyes committed
338 339 340 341 342 343 344 345 346 347 348 349
void stats_event_sub(const char *source, const char *name, unsigned long value)
{
    stats_event_t *event = build_event (source, name, NULL);
    if (event)
    {
        event->value = malloc (16);
        snprintf (event->value, 16, "%ld", value);
        event->action = STATS_EVENT_SUB;
        queue_global_event (event);
    }
}

350 351
/* decrease the value in the provided stat by 1 */
void stats_event_dec(const char *source, const char *name)
Jack Moffitt's avatar
Jack Moffitt committed
352
{
353
    /* ICECAST_LOG_DEBUG("%s on %s", name, source==NULL?"global":source); */
354 355 356 357 358
    stats_event_t *event = build_event (source, name, NULL);
    if (event)
    {
        event->action = STATS_EVENT_DEC;
        queue_global_event (event);
359
    }
Jack Moffitt's avatar
Jack Moffitt committed
360 361 362 363 364
}

/* note: you must call this function only when you have exclusive access
** to the avl_tree
*/
365
static stats_node_t *_find_node(avl_tree *stats_tree, const char *name)
Jack Moffitt's avatar
Jack Moffitt committed
366
{
367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386
    stats_node_t *stats;
    avl_node *node;
    int cmp;

    /* get the root node */
    node = stats_tree->root->right;
    
    while (node) {
        stats = (stats_node_t *)node->key;
        cmp = strcmp(name, stats->name);
        if (cmp < 0) 
            node = node->left;
        else if (cmp > 0)
            node = node->right;
        else
            return stats;
    }
    
    /* didn't find it */
    return NULL;
Jack Moffitt's avatar
Jack Moffitt committed
387 388 389 390 391
}

/* note: you must call this function only when you have exclusive access
** to the avl_tree
*/
392
static stats_source_t *_find_source(avl_tree *source_tree, const char *source)
Jack Moffitt's avatar
Jack Moffitt committed
393
{
394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409
    stats_source_t *stats;
    avl_node *node;
    int cmp;

    /* get the root node */
    node = source_tree->root->right;
    while (node) {
        stats = (stats_source_t *)node->key;
        cmp = strcmp(source, stats->source);
        if (cmp < 0)
            node = node->left;
        else if (cmp > 0)
            node = node->right;
        else
            return stats;
    }
Jack Moffitt's avatar
Jack Moffitt committed
410

411 412
    /* didn't find it */
    return NULL;
Jack Moffitt's avatar
Jack Moffitt committed
413 414 415 416
}

static stats_event_t *_copy_event(stats_event_t *event)
{
417
    stats_event_t *copy = (stats_event_t *)calloc(1, sizeof(stats_event_t));
418 419 420 421
    if (event->source) 
        copy->source = (char *)strdup(event->source);
    else
        copy->source = NULL;
422 423
    if (event->name)
        copy->name = (char *)strdup(event->name);
424 425 426 427
    if (event->value)
        copy->value = (char *)strdup(event->value);
    else
        copy->value = NULL;
428
    copy->hidden = event->hidden;
429
    copy->next = NULL;
Jack Moffitt's avatar
Jack Moffitt committed
430

431
    return copy;
Jack Moffitt's avatar
Jack Moffitt committed
432 433
}

434 435 436 437 438 439

/* helper to apply specialised changes to a stats node */
static void modify_node_event (stats_node_t *node, stats_event_t *event)
{
    char *str;

440 441 442 443 444 445 446 447
    if (event->action == STATS_EVENT_HIDDEN)
    {
        if (event->value)
            node->hidden = 1;
        else
            node->hidden = 0;
        return;
    }
448 449
    if (event->action != STATS_EVENT_SET)
    {
450
        int64_t value = 0;
451 452 453 454 455 456 457 458 459 460 461 462

        switch (event->action)
        {
            case STATS_EVENT_INC:
                value = atoi (node->value)+1;
                break;
            case STATS_EVENT_DEC:
                value = atoi (node->value)-1;
                break;
            case STATS_EVENT_ADD:
                value = atoi (node->value)+atoi (event->value);
                break;
463 464 465
            case STATS_EVENT_SUB:
                value = atoll (node->value) - atoll (event->value);
                break;
466
            default:
467
                ICECAST_LOG_WARN("unhandled event (%d) for %s", event->action, event->source);
468 469 470
                break;
        }
        str = malloc (16);
471
        snprintf (str, 16, "%" PRId64, value);
472 473
        if (event->value == NULL)
            event->value = strdup (str);
474 475 476 477 478
    }
    else
        str = (char *)strdup (event->value);
    free (node->value);
    node->value = str;
479
    if (event->source)
480
        ICECAST_LOG_DEBUG("update \"%s\" %s (%s)", event->source, node->name, node->value);
481
    else
482
        ICECAST_LOG_DEBUG("update global %s (%s)", node->name, node->value);
483 484 485 486 487 488 489
}


static void process_global_event (stats_event_t *event)
{
    stats_node_t *node;

490
    /* ICECAST_LOG_DEBUG("global event %s %s %d", event->name, event->value, event->action); */
491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525
    if (event->action == STATS_EVENT_REMOVE)
    {
        /* we're deleting */
        node = _find_node(_stats.global_tree, event->name);
        if (node != NULL)
            avl_delete(_stats.global_tree, (void *)node, _free_stats);
        return;
    }
    node = _find_node(_stats.global_tree, event->name);
    if (node)
    {
        modify_node_event (node, event);
    }
    else
    {
        /* add node */
        node = (stats_node_t *)calloc(1, sizeof(stats_node_t));
        node->name = (char *)strdup(event->name);
        node->value = (char *)strdup(event->value);

        avl_insert(_stats.global_tree, (void *)node);
    }
}


static void process_source_event (stats_event_t *event)
{
    stats_source_t *snode = _find_source(_stats.source_tree, event->source);
    if (snode == NULL)
    {
        if (event->action == STATS_EVENT_REMOVE)
            return;
        snode = (stats_source_t *)calloc(1,sizeof(stats_source_t));
        if (snode == NULL)
            return;
526
        ICECAST_LOG_DEBUG("new source stat %s", event->source);
527 528
        snode->source = (char *)strdup(event->source);
        snode->stats_tree = avl_tree_new(_compare_stats, NULL);
529 530 531 532
        if (event->action == STATS_EVENT_HIDDEN)
            snode->hidden = 1;
        else
            snode->hidden = 0;
533 534 535 536 537 538 539 540 541 542 543 544 545

        avl_insert(_stats.source_tree, (void *)snode);
    }
    if (event->name)
    {
        stats_node_t *node = _find_node(snode->stats_tree, event->name);
        if (node == NULL)
        {
            if (event->action == STATS_EVENT_REMOVE)
                return;
            /* adding node */
            if (event->value)
            {
546
                ICECAST_LOG_DEBUG("new node %s (%s)", event->name, event->value);
547 548 549
                node = (stats_node_t *)calloc(1,sizeof(stats_node_t));
                node->name = (char *)strdup(event->name);
                node->value = (char *)strdup(event->value);
550
                node->hidden = snode->hidden;
551 552 553 554 555 556 557

                avl_insert(snode->stats_tree, (void *)node);
            }
            return;
        }
        if (event->action == STATS_EVENT_REMOVE)
        {
558
            ICECAST_LOG_DEBUG("delete node %s", event->name);
559 560 561 562 563 564
            avl_delete(snode->stats_tree, (void *)node, _free_stats);
            return;
        }
        modify_node_event (node, event);
        return;
    }
565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580
    if (event->action == STATS_EVENT_HIDDEN)
    {
        avl_node *node = avl_get_first (snode->stats_tree);

        if (event->value)
            snode->hidden = 1;
        else
            snode->hidden = 0;
        while (node)
        {
            stats_node_t *stats = (stats_node_t*)node->key;
            stats->hidden = snode->hidden;
            node = avl_get_next (node);
        }
        return;
    }
581 582
    if (event->action == STATS_EVENT_REMOVE)
    {
583
        ICECAST_LOG_DEBUG("delete source node %s", event->source);
584 585 586 587
        avl_delete(_stats.source_tree, (void *)snode, _free_source_stats);
    }
}

588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635
/* NOTE: implicit %z is added to format string. */
static inline void __format_time(char * buffer, size_t len, const char * format) {
    time_t now = time(NULL);
    struct tm local;
    char tzbuffer[32];
    char timebuffer[128];
#ifdef _WIN32
    struct tm *thetime;
    int time_days, time_hours, time_tz;
    int tempnum1, tempnum2;
    char sign;
#endif

    localtime_r (&now, &local);
#ifndef _WIN32
    strftime (tzbuffer, sizeof(tzbuffer), "%z", &local);
#else
    thetime = gmtime (&now);
    time_days = local.tm_yday - thetime->tm_yday;

    if (time_days < -1) {
        tempnum1 = 24;
    } else {
        tempnum1 = 1;
    }

    if (tempnum1 < time_days) {
        tempnum2 = -24;
    } else {
        tempnum2 = time_days*24;
    }

    time_hours = (tempnum2 + local.tm_hour - thetime->tm_hour);
    time_tz = time_hours * 60 + local.tm_min - thetime->tm_min;

    if (time_tz < 0) {
        sign = '-';
        time_tz = -time_tz;
    } else {
        sign = '+';
    }

    snprintf(tzbuffer, sizeof(tzbuffer), "%c%.2d%.2d", sign, time_tz / 60, time_tz % 60);
#endif
    strftime (timebuffer, sizeof(timebuffer), format, &local);

    snprintf(buffer, len, "%s%s", timebuffer, tzbuffer);
}
636

Karl Heyes's avatar
Karl Heyes committed
637 638 639 640
void stats_event_time (const char *mount, const char *name)
{
    char buffer[100];

641
    __format_time(buffer, sizeof(buffer), "%a, %d %b %Y %H:%M:%S ");
Karl Heyes's avatar
Karl Heyes committed
642 643 644 645
    stats_event (mount, name, buffer);
}


646 647 648 649
void stats_event_time_iso8601 (const char *mount, const char *name)
{
    char buffer[100];

650
    __format_time(buffer, sizeof(buffer), "%Y-%m-%dT%H:%M:%S");
651 652 653 654
    stats_event (mount, name, buffer);
}


Karl Heyes's avatar
Karl Heyes committed
655 656
void stats_global (ice_config_t *config)
{
657
    stats_event (NULL, "server_id", config->server_id);
Karl Heyes's avatar
Karl Heyes committed
658 659 660 661 662 663
    stats_event (NULL, "host", config->hostname);
    stats_event (NULL, "location", config->location);
    stats_event (NULL, "admin", config->admin);
}


Jack Moffitt's avatar
Jack Moffitt committed
664 665
static void *_stats_thread(void *arg)
{
666 667 668 669
    stats_event_t *event;
    stats_event_t *copy;
    event_listener_t *listener;

Karl Heyes's avatar
Karl Heyes committed
670
    stats_event_time (NULL, "server_start");
671
    stats_event_time_iso8601 (NULL, "server_start_iso8601");
672 673 674 675 676 677

    /* global currently active stats */
    stats_event (NULL, "clients", "0");
    stats_event (NULL, "connections", "0");
    stats_event (NULL, "sources", "0");
    stats_event (NULL, "stats", "0");
Karl Heyes's avatar
Karl Heyes committed
678
    stats_event (NULL, "listeners", "0");
679 680 681 682 683 684 685

    /* global accumulating stats */
    stats_event (NULL, "client_connections", "0");
    stats_event (NULL, "source_client_connections", "0");
    stats_event (NULL, "source_relay_connections", "0");
    stats_event (NULL, "source_total_connections", "0");
    stats_event (NULL, "stats_connections", "0");
686
    stats_event (NULL, "listener_connections", "0");
687

688
    ICECAST_LOG_INFO("stats thread started");
689
    while (_stats_running) {
690
        thread_mutex_lock(&_global_event_mutex);
691
        if (_global_event_queue.head != NULL) {
692
            /* grab the next event from the queue */
693
            event = _get_event_from_queue (&_global_event_queue);
694 695
            thread_mutex_unlock(&_global_event_mutex);

696 697
            if (event == NULL)
                continue;
698 699 700
            event->next = NULL;

            thread_mutex_lock(&_stats_mutex);
701 702 703 704 705 706

            /* check if we are dealing with a global or source event */
            if (event->source == NULL)
                process_global_event (event);
            else
                process_source_event (event);
707 708 709
            
            /* now we have an event that's been processed into the running stats */
            /* this event should get copied to event listeners' queues */
710
            listener = (event_listener_t *)_event_listeners;
711 712
            while (listener) {
                copy = _copy_event(event);
713 714 715
                thread_mutex_lock (&listener->mutex);
                _add_event_to_queue (copy, &listener->queue);
                thread_mutex_unlock (&listener->mutex);
716 717 718 719 720 721 722 723

                listener = listener->next;
            }

            /* now we need to destroy the event */
            _free_event(event);

            thread_mutex_unlock(&_stats_mutex);
724
            continue;
725
        }
726 727 728 729
        else
        {
            thread_mutex_unlock(&_global_event_mutex);
        }
730

731
        thread_sleep(300000);
732 733 734
    }

    return NULL;
Jack Moffitt's avatar
Jack Moffitt committed
735 736
}

737
/* you must have the _stats_mutex locked here */
738
static void _unregister_listener(event_listener_t *listener)
739 740 741 742 743
{
    event_listener_t **prev = (event_listener_t **)&_event_listeners,
                     *current = *prev;
    while (current)
    {
744
        if (current == listener)
745 746 747 748 749 750 751 752 753 754
        {
            *prev = current->next;
            break;
        }
        prev = &current->next;
        current = *prev;
    }
}


Jack Moffitt's avatar
Jack Moffitt committed
755 756
static stats_event_t *_make_event_from_node(stats_node_t *node, char *source)
{
757 758 759 760 761 762 763 764
    stats_event_t *event = (stats_event_t *)malloc(sizeof(stats_event_t));
    
    if (source != NULL)
        event->source = (char *)strdup(source);
    else
        event->source = NULL;
    event->name = (char *)strdup(node->name);
    event->value = (char *)strdup(node->value);
765
    event->hidden = node->hidden;
766
    event->action = STATS_EVENT_SET;
767
    event->next = NULL;
Jack Moffitt's avatar
Jack Moffitt committed
768

769
    return event;
Jack Moffitt's avatar
Jack Moffitt committed
770 771 772
}


773 774 775 776
static void _add_event_to_queue(stats_event_t *event, event_queue_t *queue)
{
    *queue->tail = event;
    queue->tail = (volatile stats_event_t **)&event->next;
Jack Moffitt's avatar
Jack Moffitt committed
777 778 779
}


780 781 782
static stats_event_t *_get_event_from_queue (event_queue_t *queue)
{
    stats_event_t *event = NULL;
Jack Moffitt's avatar
Jack Moffitt committed
783

784 785 786 787 788 789 790
    if (queue && queue->head)
    {
        event = (stats_event_t *)queue->head;
        queue->head = event->next;
        if (queue->head == NULL)
            queue->tail = &queue->head;
    }
Jack Moffitt's avatar
Jack Moffitt committed
791

792
    return event;
Jack Moffitt's avatar
Jack Moffitt committed
793 794
}

795
static int _send_event_to_client(stats_event_t *event, client_t *client)
Jack Moffitt's avatar
Jack Moffitt committed
796
{
797
    int len;
798
    char buf [200];
Jack Moffitt's avatar
Jack Moffitt committed
799

800
    /* send data to the client!!!! */
801
    len = snprintf (buf, sizeof (buf), "EVENT %s %s %s\n",
802 803 804
            (event->source != NULL) ? event->source : "global",
            event->name ? event->name : "null",
            event->value ? event->value : "null");
805
    if (len > 0 && len < (int)sizeof (buf))
806 807 808 809 810 811
    {
        client_send_bytes (client, buf, len);
        if (client->con->error)
            return -1;
    }
    return 0;
Jack Moffitt's avatar
Jack Moffitt committed
812 813
}

814 815

static xmlNodePtr _dump_stats_to_doc (xmlNodePtr root, const char *show_mount, int hidden)
Jack Moffitt's avatar
Jack Moffitt committed
816
{
817 818
    avl_node *avlnode;
    xmlNodePtr ret = NULL;
819 820

    thread_mutex_lock(&_stats_mutex);
821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839
    /* general stats first */
    avlnode = avl_get_first(_stats.global_tree);
    while (avlnode)
    {
        stats_node_t *stat = avlnode->key;
        if (stat->hidden <=  hidden)
            xmlNewTextChild (root, NULL, XMLSTR(stat->name), XMLSTR(stat->value));
        avlnode = avl_get_next (avlnode);
    }
    /* now per mount stats */
    avlnode = avl_get_first(_stats.source_tree);
    while (avlnode)
    {
        stats_source_t *source = (stats_source_t *)avlnode->key;
        if (source->hidden <= hidden &&
                (show_mount == NULL || strcmp (show_mount, source->source) == 0))
        {
            avl_node *avlnode2 = avl_get_first (source->stats_tree);
            xmlNodePtr xmlnode = xmlNewTextChild (root, NULL, XMLSTR("source"), NULL);
840

841 842 843 844 845 846 847 848 849
            xmlSetProp (xmlnode, XMLSTR("mount"), XMLSTR(source->source));
            if (ret == NULL)
                ret = xmlnode;
            while (avlnode2)
            {
                stats_node_t *stat = avlnode2->key;
                xmlNewTextChild (xmlnode, NULL, XMLSTR(stat->name), XMLSTR(stat->value));
                avlnode2 = avl_get_next (avlnode2);
            }
850
        }
851
        avlnode = avl_get_next (avlnode);
852 853
    }
    thread_mutex_unlock(&_stats_mutex);
854
    return ret;
Jack Moffitt's avatar
Jack Moffitt committed
855 856
}

857

858 859 860 861 862
/* factoring out code for stats loops
** this function copies all stats to queue, and registers 
** the queue for all new events atomically.
** note: mutex must already be created!
*/
863
static void _register_listener (event_listener_t *listener)
Jack Moffitt's avatar
Jack Moffitt committed
864
{
865 866 867 868
    avl_node *node;
    avl_node *node2;
    stats_event_t *event;
    stats_source_t *source;
Jack Moffitt's avatar
Jack Moffitt committed
869

870
    thread_mutex_lock(&_stats_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
871

872 873 874 875 876 877
    /* first we fill our queue with the current stats */
    
    /* start with the global stats */
    node = avl_get_first(_stats.global_tree);
    while (node) {
        event = _make_event_from_node((stats_node_t *)node->key, NULL);
878
        _add_event_to_queue (event, &listener->queue);
Jack Moffitt's avatar
Jack Moffitt committed
879

880 881
        node = avl_get_next(node);
    }
Jack Moffitt's avatar
Jack Moffitt committed
882

883 884 885 886 887 888 889
    /* now the stats for each source */
    node = avl_get_first(_stats.source_tree);
    while (node) {
        source = (stats_source_t *)node->key;
        node2 = avl_get_first(source->stats_tree);
        while (node2) {
            event = _make_event_from_node((stats_node_t *)node2->key, source->source);
890
            _add_event_to_queue (event, &listener->queue);
891 892 893 894 895 896

            node2 = avl_get_next(node2);
        }
        
        node = avl_get_next(node);
    }
Jack Moffitt's avatar
Jack Moffitt committed
897

898
    /* now we register to receive future event notices */
899 900
    listener->next = (event_listener_t *)_event_listeners;
    _event_listeners = listener;
Jack Moffitt's avatar
Jack Moffitt committed
901

902
    thread_mutex_unlock(&_stats_mutex);
903 904 905 906
}

void *stats_connection(void *arg)
{
907
    client_t *client = (client_t *)arg;
908
    stats_event_t *event;
909
    event_listener_t listener;
910

911
    ICECAST_LOG_INFO("stats client starting");
912

913
    event_queue_init (&listener.queue);
914 915 916
    /* increment the thread count */
    thread_mutex_lock(&_stats_mutex);
    _stats_threads++;
917
    stats_event_args (NULL, "stats", "%d", _stats_threads);
918 919
    thread_mutex_unlock(&_stats_mutex);

920
    thread_mutex_create (&(listener.mutex));
921

922
    _register_listener (&listener);
923 924

    while (_stats_running) {
925 926 927
        thread_mutex_lock (&listener.mutex);
        event = _get_event_from_queue (&listener.queue);
        thread_mutex_unlock (&listener.mutex);
928
        if (event != NULL) {
929
            if (_send_event_to_client(event, client) < 0) {
930 931 932 933 934 935
                _free_event(event);
                break;
            }
            _free_event(event);
            continue;
        }
936
        thread_sleep (500000);
937 938 939
    }

    thread_mutex_lock(&_stats_mutex);
940
    _unregister_listener (&listener);
941
    _stats_threads--;
942
    stats_event_args (NULL, "stats", "%d", _stats_threads);
943 944
    thread_mutex_unlock(&_stats_mutex);

945
    thread_mutex_destroy (&listener.mutex);
946
    client_destroy (client);
947
    ICECAST_LOG_INFO("stats client finished");
948

949
    return NULL;
Jack Moffitt's avatar
Jack Moffitt committed
950 951
}

952 953 954 955 956 957 958 959 960 961 962 963 964

void stats_callback (client_t *client, void *notused)
{
    if (client->con->error)
    {
        client_destroy (client);
        return;
    }
    client_set_queue (client, NULL);
    thread_create("Stats Connection", stats_connection, (void *)client, THREAD_DETACHED);
}


Jack Moffitt's avatar
Jack Moffitt committed
965
typedef struct _source_xml_tag {
966 967
    char *mount;
    xmlNodePtr node;
Jack Moffitt's avatar
Jack Moffitt committed
968

969
    struct _source_xml_tag *next;
Jack Moffitt's avatar
Jack Moffitt committed
970 971 972
} source_xml_t;


973
void stats_transform_xslt(client_t *client, const char *uri)
974 975
{
    xmlDocPtr doc;
976
    char *xslpath = util_get_path_from_normalised_uri (uri);
977
    const char *mount = httpp_get_query_param (client->parser, "mount");
978

979
    doc = stats_get_xml (0, mount);
980

981
    xslt_transform(doc, xslpath, client);
982 983

    xmlFreeDoc(doc);
984
    free (xslpath);
985 986
}

987
xmlDocPtr stats_get_xml(int show_hidden, const char *show_mount)
Jack Moffitt's avatar
Jack Moffitt committed
988
{
989
    xmlDocPtr doc;
990
    xmlNodePtr node;
991

992 993
    doc = xmlNewDoc (XMLSTR("1.0"));
    node = xmlNewDocNode (doc, NULL, XMLSTR("icestats"), NULL);
994 995
    xmlDocSetRootElement(doc, node);

996
    node = _dump_stats_to_doc (node, show_mount, show_hidden);
997

998
    return doc;
Jack Moffitt's avatar
Jack Moffitt committed
999 1000
}

1001

Jack Moffitt's avatar
Jack Moffitt committed
1002 1003
static int _compare_stats(void *arg, void *a, void *b)
{
1004 1005
    stats_node_t *nodea = (stats_node_t *)a;
    stats_node_t *nodeb = (stats_node_t *)b;
Jack Moffitt's avatar
Jack Moffitt committed
1006

1007
    return strcmp(nodea->name, nodeb->name);
Jack Moffitt's avatar
Jack Moffitt committed
1008 1009 1010 1011
}

static int _compare_source_stats(void *arg, void *a, void *b)
{
1012 1013
    stats_source_t *nodea = (stats_source_t *)a;
    stats_source_t *nodeb = (stats_source_t *)b;
Jack Moffitt's avatar
Jack Moffitt committed
1014

1015
    return strcmp(nodea->source, nodeb->source);
Jack Moffitt's avatar
Jack Moffitt committed
1016 1017 1018 1019
}

static int _free_stats(void *key)
{
1020 1021 1022 1023 1024 1025
    stats_node_t *node = (stats_node_t *)key;
    free(node->value);
    free(node->name);
    free(node);
    
    return 1;
Jack Moffitt's avatar
Jack Moffitt committed
1026 1027 1028 1029
}

static int _free_source_stats(void *key)
{
1030 1031 1032
    stats_source_t *node = (stats_source_t *)key;
    avl_tree_free(node->stats_tree, _free_stats);
    free(node->source);
1033
    free(node);
Jack Moffitt's avatar
Jack Moffitt committed
1034

1035
    return 1;
Jack Moffitt's avatar
Jack Moffitt committed
1036 1037 1038 1039
}

static void _free_event(stats_event_t *event)
{
1040 1041 1042 1043
    if (event->source) free(event->source);
    if (event->name) free(event->name);
    if (event->value) free(event->value);
    free(event);
Jack Moffitt's avatar
Jack Moffitt committed
1044
}
1045 1046


1047
refbuf_t *stats_get_streams (void)
1048
{
1049
#define STREAMLIST_BLKSIZE  4096
1050
    avl_node *node;
1051
    unsigned int remaining = STREAMLIST_BLKSIZE;
1052 1053
    refbuf_t *start = refbuf_new (remaining), *cur = start;
    char *buffer = cur->data;
1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064

    /* now the stats for each source */
    thread_mutex_lock (&_stats_mutex);
    node = avl_get_first(_stats.source_tree);
    while (node)
    {
        int ret;
        stats_source_t *source = (stats_source_t *)node->key;

        if (source->hidden == 0)
        {
1065
            if (remaining <= strlen (source->source) + 3)
1066
            {
1067 1068 1069 1070 1071
                cur->len = STREAMLIST_BLKSIZE - remaining;
                cur->next = refbuf_new (STREAMLIST_BLKSIZE);
                remaining = STREAMLIST_BLKSIZE;
                cur = cur->next;
                buffer = cur->data;
1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082
            }
            ret = snprintf (buffer, remaining, "%s\r\n", source->source);
            if (ret > 0)
            {
                buffer += ret;
                remaining -= ret;
            }
        }
        node = avl_get_next(node);
    }
    thread_mutex_unlock (&_stats_mutex);
1083 1084
    cur->len = STREAMLIST_BLKSIZE - remaining;
    return start;
1085 1086
}

1087 1088


1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107
/* This removes any source stats from virtual mountpoints, ie mountpoints
 * where no source_t exists. This function requires the global sources lock
 * to be held before calling.
 */
void stats_clear_virtual_mounts (void)
{
    avl_node *snode;

    thread_mutex_lock (&_stats_mutex);
    snode = avl_get_first(_stats.source_tree);
    while (snode)
    {
        stats_source_t *src = (stats_source_t *)snode->key;
        source_t *source = source_find_mount_raw (src->source);

        if (source == NULL)
        {
            /* no source_t is reserved so remove them now */
            snode = avl_get_next (snode);
1108
            ICECAST_LOG_DEBUG("releasing %s stats", src->source);
1109 1110 1111 1112 1113 1114 1115 1116 1117
            avl_delete (_stats.source_tree, src, _free_source_stats);
            continue;
        }

        snode = avl_get_next (snode);
    }
    thread_mutex_unlock (&_stats_mutex);
}