stats.c 30.2 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12
/* 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).
 */

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

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

Michael Smith's avatar
Michael Smith committed
22 23 24
#include <libxml/xmlmemory.h>
#include <libxml/parser.h>
#include <libxml/tree.h>
Jack Moffitt's avatar
Jack Moffitt committed
25 26 27 28 29 30 31 32

#include <thread/thread.h>
#include <avl/avl.h>
#include <httpp/httpp.h>
#include <net/sock.h>

#include "connection.h"

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

43
#ifdef _WIN32
44
#define vsnprintf _vsnprintf
45
#define snprintf _snprintf
46
#endif
Jack Moffitt's avatar
Jack Moffitt committed
47

48 49 50 51 52
#define STATS_EVENT_SET     0
#define STATS_EVENT_INC     1
#define STATS_EVENT_DEC     2
#define STATS_EVENT_ADD     3
#define STATS_EVENT_REMOVE  4
53
#define STATS_EVENT_HIDDEN  5
54

55 56 57 58 59 60 61 62
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
63 64
typedef struct _event_listener_tag
{
65 66
    event_queue_t queue;
    mutex_t mutex;
Jack Moffitt's avatar
Jack Moffitt committed
67

68
    struct _event_listener_tag *next;
Jack Moffitt's avatar
Jack Moffitt committed
69 70
} event_listener_t;

71
static volatile int _stats_running = 0;
72
static thread_type *_stats_thread_id;
73
static volatile int _stats_threads = 0;
Jack Moffitt's avatar
Jack Moffitt committed
74

75 76
static stats_t _stats;
static mutex_t _stats_mutex;
Jack Moffitt's avatar
Jack Moffitt committed
77

78
static event_queue_t _global_event_queue;
Jack Moffitt's avatar
Jack Moffitt committed
79 80
mutex_t _global_event_mutex;

81
static volatile event_listener_t *_event_listeners;
Jack Moffitt's avatar
Jack Moffitt committed
82 83 84 85 86 87 88


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);
89
static void _add_event_to_queue(stats_event_t *event, event_queue_t *queue);
90 91
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
92
static void _free_event(stats_event_t *event);
93
static stats_event_t *_get_event_from_queue (event_queue_t *queue);
Jack Moffitt's avatar
Jack Moffitt committed
94

95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118

/* 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);
119
    _add_event_to_queue (event, &_global_event_queue);
120 121 122
    thread_mutex_unlock(&_global_event_mutex);
}

123
void stats_initialize(void)
Jack Moffitt's avatar
Jack Moffitt committed
124
{
125
    _event_listeners = NULL;
126

127 128 129
    /* 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
130

131 132
    /* set up global mutex */
    thread_mutex_create(&_stats_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
133

134
    /* set up stats queues */
135
    event_queue_init (&_global_event_queue);
136
    thread_mutex_create(&_global_event_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
137

138 139 140
    /* 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
141 142
}

143
void stats_shutdown(void)
Jack Moffitt's avatar
Jack Moffitt committed
144
{
145
    int n;
Jack Moffitt's avatar
Jack Moffitt committed
146

147 148 149
    if(!_stats_running) /* We can't shutdown if we're not running. */
        return;

150 151 152
    /* wait for thread to exit */
    _stats_running = 0;
    thread_join(_stats_thread_id);
Jack Moffitt's avatar
Jack Moffitt committed
153

154 155 156 157 158 159 160
    /* 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);
161
    INFO0("stats thread finished");
162

163
    /* free the queues */
Jack Moffitt's avatar
Jack Moffitt committed
164

165 166
    /* destroy the queue mutexes */
    thread_mutex_destroy(&_global_event_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
167

168 169 170
    thread_mutex_destroy(&_stats_mutex);
    avl_tree_free(_stats.source_tree, _free_source_stats);
    avl_tree_free(_stats.global_tree, _free_stats);
171

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

186
stats_t *stats_get_stats(void)
Jack Moffitt's avatar
Jack Moffitt committed
187
{
188 189 190
    /* lock global stats
    
     copy stats
Jack Moffitt's avatar
Jack Moffitt committed
191

192
     unlock global stats
Jack Moffitt's avatar
Jack Moffitt committed
193

194
     return copied stats */
Jack Moffitt's avatar
Jack Moffitt committed
195

196
    return NULL;
Jack Moffitt's avatar
Jack Moffitt committed
197 198
}

199 200
/* 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
201
{
202 203
    stats_event_t *event;

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

214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252

/* 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
            WARN1 ("No charset found for \"%s\"", charset);
    }

    stats_event (mount, name, metadata);

    /* special case for title updates, log converted title */
    if (mount && strcmp (name, "title") == 0)
    {
        char *s = stats_get_value ((char*)mount, "listeners");
        int listeners = 0;
        if (s)
            listeners = atoi (s);
        free (s);
        logging_playlist (mount, metadata, listeners);
    }
    xmlBufferFree (conv);
}

253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268
/* 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);
    }
}
269 270 271

/* 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
272
{
273 274
    char buf[1024];
    va_list val;
275 276 277 278
    int ret;

    if (name == NULL)
        return;
279
    va_start(val, format);
280
    ret = vsnprintf(buf, 1024, format, val);
281
    va_end(val);
Jack Moffitt's avatar
Jack Moffitt committed
282

283 284 285 286 287 288
    if (ret < 0 || (unsigned int)ret >= sizeof (buf))
    {
        WARN2 ("problem with formatting %s stat %s",
                source==NULL ? "global" : source, name);
        return;
    }
289
    stats_event(source, name, buf);
Jack Moffitt's avatar
Jack Moffitt committed
290 291
}

292
static char *_get_stats(const char *source, const char *name)
Jack Moffitt's avatar
Jack Moffitt committed
293
{
294 295 296
    stats_node_t *stats = NULL;
    stats_source_t *src = NULL;
    char *value = NULL;
Jack Moffitt's avatar
Jack Moffitt committed
297

298
    thread_mutex_lock(&_stats_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
299

300 301 302 303 304 305 306 307
    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
308

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

311
    thread_mutex_unlock(&_stats_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
312

313
    return value;
Jack Moffitt's avatar
Jack Moffitt committed
314 315
}

316
char *stats_get_value(const char *source, const char *name)
317
{
318
    return(_get_stats(source, name));
319
}
320 321 322

/* 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
323
{
324 325 326 327 328 329
    stats_event_t *event = build_event (source, name, NULL);
    /* DEBUG2("%s on %s", name, source==NULL?"global":source); */
    if (event)
    {
        event->action = STATS_EVENT_INC;
        queue_global_event (event);
330
    }
Jack Moffitt's avatar
Jack Moffitt committed
331 332
}

333
void stats_event_add(const char *source, const char *name, unsigned long value)
Jack Moffitt's avatar
Jack Moffitt committed
334
{
335 336 337 338 339 340 341 342
    stats_event_t *event = build_event (source, name, NULL);
    /* DEBUG2("%s on %s", name, source==NULL?"global":source); */
    if (event)
    {
        event->value = malloc (16);
        snprintf (event->value, 16, "%ld", value);
        event->action = STATS_EVENT_ADD;
        queue_global_event (event);
343
    }
Jack Moffitt's avatar
Jack Moffitt committed
344 345
}

346 347
/* 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
348
{
349 350 351 352 353 354
    /* DEBUG2("%s on %s", name, source==NULL?"global":source); */
    stats_event_t *event = build_event (source, name, NULL);
    if (event)
    {
        event->action = STATS_EVENT_DEC;
        queue_global_event (event);
355
    }
Jack Moffitt's avatar
Jack Moffitt committed
356 357 358 359 360
}

/* note: you must call this function only when you have exclusive access
** to the avl_tree
*/
361
static stats_node_t *_find_node(avl_tree *stats_tree, const char *name)
Jack Moffitt's avatar
Jack Moffitt committed
362
{
363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382
    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
383 384 385 386 387
}

/* note: you must call this function only when you have exclusive access
** to the avl_tree
*/
388
static stats_source_t *_find_source(avl_tree *source_tree, const char *source)
Jack Moffitt's avatar
Jack Moffitt committed
389
{
390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405
    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
406

407 408
    /* didn't find it */
    return NULL;
Jack Moffitt's avatar
Jack Moffitt committed
409 410 411 412
}

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

427
    return copy;
Jack Moffitt's avatar
Jack Moffitt committed
428 429
}

430 431 432 433 434 435

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

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

        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;
            default:
                break;
        }
        str = malloc (16);
        snprintf (str, 16, "%d", value);
464 465
        if (event->value == NULL)
            event->value = strdup (str);
466 467 468 469 470
    }
    else
        str = (char *)strdup (event->value);
    free (node->value);
    node->value = str;
471
    DEBUG2 ("update node %s (%s)", node->name, node->value);
472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 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
}


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

    /* DEBUG3("global event %s %s %d", event->name, event->value, event->action); */
    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;
        DEBUG1 ("new source stat %s", event->source);
        snode->source = (char *)strdup(event->source);
        snode->stats_tree = avl_tree_new(_compare_stats, NULL);
518 519 520 521
        if (event->action == STATS_EVENT_HIDDEN)
            snode->hidden = 1;
        else
            snode->hidden = 0;
522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538

        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)
            {
                DEBUG2 ("new node %s (%s)", event->name, event->value);
                node = (stats_node_t *)calloc(1,sizeof(stats_node_t));
                node->name = (char *)strdup(event->name);
                node->value = (char *)strdup(event->value);
539
                node->hidden = snode->hidden;
540 541 542 543 544 545 546 547 548 549 550 551 552 553

                avl_insert(snode->stats_tree, (void *)node);
            }
            return;
        }
        if (event->action == STATS_EVENT_REMOVE)
        {
            DEBUG1 ("delete node %s", event->name);
            avl_delete(snode->stats_tree, (void *)node, _free_stats);
            return;
        }
        modify_node_event (node, event);
        return;
    }
554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569
    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;
    }
570 571 572 573 574 575 576 577
    if (event->action == STATS_EVENT_REMOVE)
    {
        DEBUG1 ("delete source node %s", event->source);
        avl_delete(_stats.source_tree, (void *)snode, _free_source_stats);
    }
}


Karl Heyes's avatar
Karl Heyes committed
578 579 580
void stats_event_time (const char *mount, const char *name)
{
    time_t now = time(NULL);
581
    struct tm local;
Karl Heyes's avatar
Karl Heyes committed
582 583 584 585 586 587 588 589
    char buffer[100];

    localtime_r (&now, &local);
    strftime (buffer, sizeof (buffer), "%a, %d %b %Y %H:%M:%S %z", &local);
    stats_event (mount, name, buffer);
}


Karl Heyes's avatar
Karl Heyes committed
590 591
void stats_global (ice_config_t *config)
{
592
    stats_event (NULL, "server_id", config->server_id);
Karl Heyes's avatar
Karl Heyes committed
593 594 595 596 597 598
    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
599 600
static void *_stats_thread(void *arg)
{
601 602 603 604
    stats_event_t *event;
    stats_event_t *copy;
    event_listener_t *listener;

Karl Heyes's avatar
Karl Heyes committed
605
    stats_event_time (NULL, "server_start");
606 607 608 609 610 611 612 613 614 615 616 617 618

    /* global currently active stats */
    stats_event (NULL, "clients", "0");
    stats_event (NULL, "connections", "0");
    stats_event (NULL, "sources", "0");
    stats_event (NULL, "stats", "0");

    /* 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");
619
    stats_event (NULL, "listener_connections", "0");
620 621

    INFO0 ("stats thread started");
622
    while (_stats_running) {
623
        if (_global_event_queue.head != NULL) {
624
            /* grab the next event from the queue */
625
            thread_mutex_lock(&_global_event_mutex);
626
            event = _get_event_from_queue (&_global_event_queue);
627 628
            thread_mutex_unlock(&_global_event_mutex);

629 630
            if (event == NULL)
                continue;
631 632 633
            event->next = NULL;

            thread_mutex_lock(&_stats_mutex);
634 635 636 637 638 639

            /* check if we are dealing with a global or source event */
            if (event->source == NULL)
                process_global_event (event);
            else
                process_source_event (event);
640 641 642
            
            /* now we have an event that's been processed into the running stats */
            /* this event should get copied to event listeners' queues */
643
            listener = (event_listener_t *)_event_listeners;
644 645
            while (listener) {
                copy = _copy_event(event);
646 647 648
                thread_mutex_lock (&listener->mutex);
                _add_event_to_queue (copy, &listener->queue);
                thread_mutex_unlock (&listener->mutex);
649 650 651 652 653 654 655 656

                listener = listener->next;
            }

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

            thread_mutex_unlock(&_stats_mutex);
657
            continue;
658 659
        }

660
        thread_sleep(300000);
661 662 663
    }

    return NULL;
Jack Moffitt's avatar
Jack Moffitt committed
664 665
}

666
/* you must have the _stats_mutex locked here */
667
static void _unregister_listener(event_listener_t *listener)
668 669 670 671 672
{
    event_listener_t **prev = (event_listener_t **)&_event_listeners,
                     *current = *prev;
    while (current)
    {
673
        if (current == listener)
674 675 676 677 678 679 680 681 682 683
        {
            *prev = current->next;
            break;
        }
        prev = &current->next;
        current = *prev;
    }
}


Jack Moffitt's avatar
Jack Moffitt committed
684 685
static stats_event_t *_make_event_from_node(stats_node_t *node, char *source)
{
686 687 688 689 690 691 692 693
    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);
694
    event->hidden = node->hidden;
695
    event->action = STATS_EVENT_SET;
696
    event->next = NULL;
Jack Moffitt's avatar
Jack Moffitt committed
697

698
    return event;
Jack Moffitt's avatar
Jack Moffitt committed
699 700 701
}


702 703 704 705
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
706 707 708
}


709 710 711
static stats_event_t *_get_event_from_queue (event_queue_t *queue)
{
    stats_event_t *event = NULL;
Jack Moffitt's avatar
Jack Moffitt committed
712

713 714 715 716 717 718 719
    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
720

721
    return event;
Jack Moffitt's avatar
Jack Moffitt committed
722 723
}

724
static int _send_event_to_client(stats_event_t *event, client_t *client)
Jack Moffitt's avatar
Jack Moffitt committed
725
{
726
    int len;
727
    char buf [200];
Jack Moffitt's avatar
Jack Moffitt committed
728

729
    /* send data to the client!!!! */
730
    len = snprintf (buf, sizeof (buf), "EVENT %s %s %s\n",
731 732 733
            (event->source != NULL) ? event->source : "global",
            event->name ? event->name : "null",
            event->value ? event->value : "null");
734
    if (len > 0 && len < (int)sizeof (buf))
735 736 737 738 739 740
    {
        client_send_bytes (client, buf, len);
        if (client->con->error)
            return -1;
    }
    return 0;
Jack Moffitt's avatar
Jack Moffitt committed
741 742
}

743
void _dump_stats_to_queue (event_queue_t *queue)
Jack Moffitt's avatar
Jack Moffitt committed
744
{
745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775
    avl_node *node;
    avl_node *node2;
    stats_event_t *event;
    stats_source_t *source;

    thread_mutex_lock(&_stats_mutex);
    /* 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);
        _add_event_to_queue(event, queue);

        node = avl_get_next(node);
    }

    /* 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);
            _add_event_to_queue(event, queue);

            node2 = avl_get_next(node2);
        }
        
        node = avl_get_next(node);
    }
    thread_mutex_unlock(&_stats_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
776 777
}

778 779 780 781 782
/* 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!
*/
783
static void _register_listener (event_listener_t *listener)
Jack Moffitt's avatar
Jack Moffitt committed
784
{
785 786 787 788
    avl_node *node;
    avl_node *node2;
    stats_event_t *event;
    stats_source_t *source;
Jack Moffitt's avatar
Jack Moffitt committed
789

790
    thread_mutex_lock(&_stats_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
791

792 793 794 795 796 797
    /* 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);
798
        _add_event_to_queue (event, &listener->queue);
Jack Moffitt's avatar
Jack Moffitt committed
799

800 801
        node = avl_get_next(node);
    }
Jack Moffitt's avatar
Jack Moffitt committed
802

803 804 805 806 807 808 809
    /* 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);
810
            _add_event_to_queue (event, &listener->queue);
811 812 813 814 815 816

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

818
    /* now we register to receive future event notices */
819 820
    listener->next = (event_listener_t *)_event_listeners;
    _event_listeners = listener;
Jack Moffitt's avatar
Jack Moffitt committed
821

822
    thread_mutex_unlock(&_stats_mutex);
823 824 825 826
}

void *stats_connection(void *arg)
{
827
    client_t *client = (client_t *)arg;
828
    stats_event_t *event;
829
    event_listener_t listener;
830

831 832
    INFO0 ("stats client starting");

833
    event_queue_init (&listener.queue);
834 835 836
    /* increment the thread count */
    thread_mutex_lock(&_stats_mutex);
    _stats_threads++;
837
    stats_event_args (NULL, "stats", "%d", _stats_threads);
838 839
    thread_mutex_unlock(&_stats_mutex);

840
    thread_mutex_create (&(listener.mutex));
841

842
    _register_listener (&listener);
843 844

    while (_stats_running) {
845 846 847
        thread_mutex_lock (&listener.mutex);
        event = _get_event_from_queue (&listener.queue);
        thread_mutex_unlock (&listener.mutex);
848
        if (event != NULL) {
849
            if (_send_event_to_client(event, client) < 0) {
850 851 852 853 854 855
                _free_event(event);
                break;
            }
            _free_event(event);
            continue;
        }
856
        thread_sleep (500000);
857 858 859
    }

    thread_mutex_lock(&_stats_mutex);
860
    _unregister_listener (&listener);
861
    _stats_threads--;
862
    stats_event_args (NULL, "stats", "%d", _stats_threads);
863 864
    thread_mutex_unlock(&_stats_mutex);

865
    thread_mutex_destroy (&listener.mutex);
866
    client_destroy (client);
867 868
    INFO0 ("stats client finished");

869
    return NULL;
Jack Moffitt's avatar
Jack Moffitt committed
870 871
}

872 873 874 875 876 877 878 879 880 881 882 883 884

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
885
typedef struct _source_xml_tag {
886 887
    char *mount;
    xmlNodePtr node;
Jack Moffitt's avatar
Jack Moffitt committed
888

889
    struct _source_xml_tag *next;
Jack Moffitt's avatar
Jack Moffitt committed
890 891 892 893
} source_xml_t;

static xmlNodePtr _find_xml_node(char *mount, source_xml_t **list, xmlNodePtr root)
{
894 895 896 897 898 899 900 901 902 903 904 905
    source_xml_t *node, *node2;
    int found = 0;

    /* search for existing node */
    node = *list;
    while (node) {
        if (strcmp(node->mount, mount) == 0) {
            found = 1;
            break;
        }
        node = node->next;
    }
Jack Moffitt's avatar
Jack Moffitt committed
906

907
    if (found) return node->node;
Jack Moffitt's avatar
Jack Moffitt committed
908

909
    /* if we didn't find it, we must build it and add it to the list */
Jack Moffitt's avatar
Jack Moffitt committed
910

911 912 913 914 915 916
    /* build node */
    node = (source_xml_t *)malloc(sizeof(source_xml_t));
    node->mount = strdup(mount);
    node->node = xmlNewChild(root, NULL, "source", NULL);
    xmlSetProp(node->node, "mount", mount);
    node->next = NULL;
Jack Moffitt's avatar
Jack Moffitt committed
917

918 919 920 921 922 923 924 925
    /* add node */
    if (*list == NULL) {
        *list = node;
    } else {
        node2 = *list;
        while (node2->next) node2 = node2->next;
        node2->next = node;
    }
Jack Moffitt's avatar
Jack Moffitt committed
926

927
    return node->node;
Jack Moffitt's avatar
Jack Moffitt committed
928 929
}

930
void stats_transform_xslt(client_t *client, const char *uri)
931 932
{
    xmlDocPtr doc;
933
    char *xslpath = util_get_path_from_normalised_uri (uri);
934
    const char *mount = httpp_get_query_param (client->parser, "mount");
935

936
    stats_get_xml(&doc, 0, mount);
937

938
    xslt_transform(doc, xslpath, client);
939 940

    xmlFreeDoc(doc);
941
    free (xslpath);
942 943
}

944
void stats_get_xml(xmlDocPtr *doc, int show_hidden, const char *show_mount)
945
{
946
    stats_event_t *event;
947
    event_queue_t queue;
948 949 950
    xmlNodePtr node, srcnode;
    source_xml_t *src_nodes = NULL;
    source_xml_t *next;
951

952 953
    event_queue_init (&queue);
    _dump_stats_to_queue (&queue);
954

955 956 957
    *doc = xmlNewDoc("1.0");
    node = xmlNewDocNode(*doc, NULL, "icestats", NULL);
    xmlDocSetRootElement(*doc, node);
958

959
    event = _get_event_from_queue(&queue);
960 961
    while (event)
    {
962 963
        if (event->hidden <= show_hidden)
        {
964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981
            do
            {
                xmlChar *name, *value;
                name = xmlEncodeEntitiesReentrant (*doc, event->name);
                value = xmlEncodeEntitiesReentrant (*doc, event->value);
                srcnode = node;
                if (event->source)
                {
                    if (show_mount && strcmp (event->source, show_mount) != 0)
                        break;
                    srcnode = _find_xml_node(event->source, &src_nodes, node);
                }
                else
                    srcnode = node;
                xmlNewChild(srcnode, NULL, name, value);
                xmlFree (value);
                xmlFree (name);
            } while (0);
982
        }
983

984 985 986
        _free_event(event);
        event = _get_event_from_queue(&queue);
    }
987

988 989 990 991 992 993
    while (src_nodes) {
        next = src_nodes->next;
        free(src_nodes->mount);
        free(src_nodes);
        src_nodes = next;
    }
994
}
Jack Moffitt's avatar
Jack Moffitt committed
995 996
void stats_sendxml(client_t *client)
{
997 998
    int bytes;
    stats_event_t *event;
999
    event_queue_t queue;
1000 1001 1002
    xmlDocPtr doc;
    xmlNodePtr node, srcnode;
    int len;
1003
    xmlChar *buff = NULL;
1004 1005 1006
    source_xml_t *snd;
    source_xml_t *src_nodes = NULL;

1007 1008
    event_queue_init (&queue);
    _dump_stats_to_queue (&queue);
1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027

    doc = xmlNewDoc("1.0");
    node = xmlNewDocNode(doc, NULL, "icestats", NULL);
    xmlDocSetRootElement(doc, node);


    event = _get_event_from_queue(&queue);
    while (event) {
        if (event->source == NULL) {
            xmlNewChild(node, NULL, event->name, event->value);
        } else {
            srcnode = _find_xml_node(event->source, &src_nodes, node);
            xmlNewChild(srcnode, NULL, event->name, event->value);
        }

        _free_event(event);
        event = _get_event_from_queue(&queue);
    }

1028
    xmlDocDumpMemory(doc, &buff, &len);
1029 1030 1031 1032 1033 1034 1035 1036 1037 1038
    xmlFreeDoc(doc);
    
    client->respcode = 200;
    bytes = sock_write(client->con->sock, "HTTP/1.0 200 OK\r\n"
               "Content-Length: %d\r\n"
               "Content-Type: text/xml\r\n"
               "\r\n", len);
    if (bytes > 0) client->con->sent_bytes += bytes;
    else goto send_error;

1039
    bytes = client_send_bytes (client, buff, (unsigned)len);
Jack Moffitt's avatar
Jack Moffitt committed
1040 1041

 send_error:
1042 1043 1044 1045 1046 1047 1048
    while (src_nodes) {
        snd = src_nodes->next;
        free(src_nodes->mount);
        free(src_nodes);
        src_nodes = snd;
    }
    if (buff) xmlFree(buff);
Jack Moffitt's avatar
Jack Moffitt committed
1049 1050 1051 1052
}

static int _compare_stats(void *arg, void *a, void *b)
{
1053 1054
    stats_node_t *nodea = (stats_node_t *)a;
    stats_node_t *nodeb = (stats_node_t *)b;
Jack Moffitt's avatar
Jack Moffitt committed
1055

1056
    return strcmp(nodea->name, nodeb->name);
Jack Moffitt's avatar
Jack Moffitt committed
1057 1058 1059 1060
}

static int _compare_source_stats(void *arg, void *a, void *b)
{
1061 1062
    stats_source_t *nodea = (stats_source_t *)a;
    stats_source_t *nodeb = (stats_source_t *)b;
Jack Moffitt's avatar
Jack Moffitt committed
1063

1064
    return strcmp(nodea->source, nodeb->source);
Jack Moffitt's avatar
Jack Moffitt committed
1065 1066 1067 1068
}

static int _free_stats(void *key)
{
1069 1070 1071 1072 1073 1074
    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
1075 1076 1077 1078
}

static int _free_source_stats(void *key)
{
1079 1080 1081
    stats_source_t *node = (stats_source_t *)key;
    avl_tree_free(node->stats_tree, _free_stats);
    free(node->source);
1082
    free(node);
Jack Moffitt's avatar
Jack Moffitt committed
1083

1084
    return 1;
Jack Moffitt's avatar
Jack Moffitt committed
1085 1086 1087 1088
}

static void _free_event(stats_event_t *event)
{
1089 1090 1091 1092
    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
1093
}
1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128


/* get a list of mountpoints that are in the stats but are not marked as hidden */
void stats_get_streamlist (char *buffer, size_t remaining)
{
    avl_node *node;

    /* 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)
        {
            if (remaining <= strlen (source->source)+2)
            {
                WARN0 ("streamlist was truncated");
                break;
            }
            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);
}

1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157
/* 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);
            DEBUG1 ("releasing %s stats", src->source);
            avl_delete (_stats.source_tree, src, _free_source_stats);
            continue;
        }

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