stats.c 30.7 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
#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
52 53 54
#define STATS_EVENT_SUB     4
#define STATS_EVENT_REMOVE  5
#define STATS_EVENT_HIDDEN  6
55

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

/* 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);
}

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

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

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

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

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

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

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

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

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

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

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

/* 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
324
{
325 326 327 328 329 330
    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);
331
    }
Jack Moffitt's avatar
Jack Moffitt committed
332 333
}

334
void stats_event_add(const char *source, const char *name, unsigned long value)
Jack Moffitt's avatar
Jack Moffitt committed
335
{
336 337 338 339 340 341 342 343
    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);
344
    }
Jack Moffitt's avatar
Jack Moffitt committed
345 346
}

Karl Heyes's avatar
Karl Heyes committed
347 348 349 350 351 352 353 354 355 356 357 358
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);
    }
}

359 360
/* 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
361
{
362 363 364 365 366 367
    /* 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);
368
    }
Jack Moffitt's avatar
Jack Moffitt committed
369 370 371 372 373
}

/* note: you must call this function only when you have exclusive access
** to the avl_tree
*/
374
static stats_node_t *_find_node(avl_tree *stats_tree, const char *name)
Jack Moffitt's avatar
Jack Moffitt committed
375
{
376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395
    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
396 397 398 399 400
}

/* note: you must call this function only when you have exclusive access
** to the avl_tree
*/
401
static stats_source_t *_find_source(avl_tree *source_tree, const char *source)
Jack Moffitt's avatar
Jack Moffitt committed
402
{
403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418
    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
419

420 421
    /* didn't find it */
    return NULL;
Jack Moffitt's avatar
Jack Moffitt committed
422 423 424 425
}

static stats_event_t *_copy_event(stats_event_t *event)
{
426
    stats_event_t *copy = (stats_event_t *)calloc(1, sizeof(stats_event_t));
427 428 429 430
    if (event->source) 
        copy->source = (char *)strdup(event->source);
    else
        copy->source = NULL;
431 432
    if (event->name)
        copy->name = (char *)strdup(event->name);
433 434 435 436
    if (event->value)
        copy->value = (char *)strdup(event->value);
    else
        copy->value = NULL;
437
    copy->hidden = event->hidden;
438
    copy->next = NULL;
Jack Moffitt's avatar
Jack Moffitt committed
439

440
    return copy;
Jack Moffitt's avatar
Jack Moffitt committed
441 442
}

443 444 445 446 447 448

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

449 450 451 452 453 454 455 456
    if (event->action == STATS_EVENT_HIDDEN)
    {
        if (event->value)
            node->hidden = 1;
        else
            node->hidden = 0;
        return;
    }
457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476
    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);
477 478
        if (event->value == NULL)
            event->value = strdup (str);
479 480 481 482 483
    }
    else
        str = (char *)strdup (event->value);
    free (node->value);
    node->value = str;
484
    DEBUG2 ("update node %s (%s)", node->name, node->value);
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 518 519 520 521 522 523 524 525 526 527 528 529 530
}


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);
531 532 533 534
        if (event->action == STATS_EVENT_HIDDEN)
            snode->hidden = 1;
        else
            snode->hidden = 0;
535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551

        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);
552
                node->hidden = snode->hidden;
553 554 555 556 557 558 559 560 561 562 563 564 565 566

                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;
    }
567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582
    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;
    }
583 584 585 586 587 588 589 590
    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
591 592 593
void stats_event_time (const char *mount, const char *name)
{
    time_t now = time(NULL);
594
    struct tm local;
Karl Heyes's avatar
Karl Heyes committed
595 596 597 598 599 600 601 602
    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
603 604
void stats_global (ice_config_t *config)
{
605
    stats_event (NULL, "server_id", config->server_id);
Karl Heyes's avatar
Karl Heyes committed
606 607 608 609 610 611
    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
612 613
static void *_stats_thread(void *arg)
{
614 615 616 617
    stats_event_t *event;
    stats_event_t *copy;
    event_listener_t *listener;

Karl Heyes's avatar
Karl Heyes committed
618
    stats_event_time (NULL, "server_start");
619 620 621 622 623 624

    /* 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
625
    stats_event (NULL, "listeners", "0");
626 627 628 629 630 631 632

    /* 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");
633
    stats_event (NULL, "listener_connections", "0");
634 635

    INFO0 ("stats thread started");
636
    while (_stats_running) {
637
        if (_global_event_queue.head != NULL) {
638
            /* grab the next event from the queue */
639
            thread_mutex_lock(&_global_event_mutex);
640
            event = _get_event_from_queue (&_global_event_queue);
641 642
            thread_mutex_unlock(&_global_event_mutex);

643 644
            if (event == NULL)
                continue;
645 646 647
            event->next = NULL;

            thread_mutex_lock(&_stats_mutex);
648 649 650 651 652 653

            /* check if we are dealing with a global or source event */
            if (event->source == NULL)
                process_global_event (event);
            else
                process_source_event (event);
654 655 656
            
            /* now we have an event that's been processed into the running stats */
            /* this event should get copied to event listeners' queues */
657
            listener = (event_listener_t *)_event_listeners;
658 659
            while (listener) {
                copy = _copy_event(event);
660 661 662
                thread_mutex_lock (&listener->mutex);
                _add_event_to_queue (copy, &listener->queue);
                thread_mutex_unlock (&listener->mutex);
663 664 665 666 667 668 669 670

                listener = listener->next;
            }

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

            thread_mutex_unlock(&_stats_mutex);
671
            continue;
672 673
        }

674
        thread_sleep(300000);
675 676 677
    }

    return NULL;
Jack Moffitt's avatar
Jack Moffitt committed
678 679
}

680
/* you must have the _stats_mutex locked here */
681
static void _unregister_listener(event_listener_t *listener)
682 683 684 685 686
{
    event_listener_t **prev = (event_listener_t **)&_event_listeners,
                     *current = *prev;
    while (current)
    {
687
        if (current == listener)
688 689 690 691 692 693 694 695 696 697
        {
            *prev = current->next;
            break;
        }
        prev = &current->next;
        current = *prev;
    }
}


Jack Moffitt's avatar
Jack Moffitt committed
698 699
static stats_event_t *_make_event_from_node(stats_node_t *node, char *source)
{
700 701 702 703 704 705 706 707
    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);
708
    event->hidden = node->hidden;
709
    event->action = STATS_EVENT_SET;
710
    event->next = NULL;
Jack Moffitt's avatar
Jack Moffitt committed
711

712
    return event;
Jack Moffitt's avatar
Jack Moffitt committed
713 714 715
}


716 717 718 719
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
720 721 722
}


723 724 725
static stats_event_t *_get_event_from_queue (event_queue_t *queue)
{
    stats_event_t *event = NULL;
Jack Moffitt's avatar
Jack Moffitt committed
726

727 728 729 730 731 732 733
    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
734

735
    return event;
Jack Moffitt's avatar
Jack Moffitt committed
736 737
}

738
static int _send_event_to_client(stats_event_t *event, client_t *client)
Jack Moffitt's avatar
Jack Moffitt committed
739
{
740
    int len;
741
    char buf [200];
Jack Moffitt's avatar
Jack Moffitt committed
742

743
    /* send data to the client!!!! */
744
    len = snprintf (buf, sizeof (buf), "EVENT %s %s %s\n",
745 746 747
            (event->source != NULL) ? event->source : "global",
            event->name ? event->name : "null",
            event->value ? event->value : "null");
748
    if (len > 0 && len < (int)sizeof (buf))
749 750 751 752 753 754
    {
        client_send_bytes (client, buf, len);
        if (client->con->error)
            return -1;
    }
    return 0;
Jack Moffitt's avatar
Jack Moffitt committed
755 756
}

757
void _dump_stats_to_queue (event_queue_t *queue)
Jack Moffitt's avatar
Jack Moffitt committed
758
{
759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789
    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
790 791
}

792 793 794 795 796
/* 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!
*/
797
static void _register_listener (event_listener_t *listener)
Jack Moffitt's avatar
Jack Moffitt committed
798
{
799 800 801 802
    avl_node *node;
    avl_node *node2;
    stats_event_t *event;
    stats_source_t *source;
Jack Moffitt's avatar
Jack Moffitt committed
803

804
    thread_mutex_lock(&_stats_mutex);
Jack Moffitt's avatar
Jack Moffitt committed
805

806 807 808 809 810 811
    /* 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);
812
        _add_event_to_queue (event, &listener->queue);
Jack Moffitt's avatar
Jack Moffitt committed
813

814 815
        node = avl_get_next(node);
    }
Jack Moffitt's avatar
Jack Moffitt committed
816

817 818 819 820 821 822 823
    /* 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);
824
            _add_event_to_queue (event, &listener->queue);
825 826 827 828 829 830

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

832
    /* now we register to receive future event notices */
833 834
    listener->next = (event_listener_t *)_event_listeners;
    _event_listeners = listener;
Jack Moffitt's avatar
Jack Moffitt committed
835

836
    thread_mutex_unlock(&_stats_mutex);
837 838 839 840
}

void *stats_connection(void *arg)
{
841
    client_t *client = (client_t *)arg;
842
    stats_event_t *event;
843
    event_listener_t listener;
844

845 846
    INFO0 ("stats client starting");

847
    event_queue_init (&listener.queue);
848 849 850
    /* increment the thread count */
    thread_mutex_lock(&_stats_mutex);
    _stats_threads++;
851
    stats_event_args (NULL, "stats", "%d", _stats_threads);
852 853
    thread_mutex_unlock(&_stats_mutex);

854
    thread_mutex_create (&(listener.mutex));
855

856
    _register_listener (&listener);
857 858

    while (_stats_running) {
859 860 861
        thread_mutex_lock (&listener.mutex);
        event = _get_event_from_queue (&listener.queue);
        thread_mutex_unlock (&listener.mutex);
862
        if (event != NULL) {
863
            if (_send_event_to_client(event, client) < 0) {
864 865 866 867 868 869
                _free_event(event);
                break;
            }
            _free_event(event);
            continue;
        }
870
        thread_sleep (500000);
871 872 873
    }

    thread_mutex_lock(&_stats_mutex);
874
    _unregister_listener (&listener);
875
    _stats_threads--;
876
    stats_event_args (NULL, "stats", "%d", _stats_threads);
877 878
    thread_mutex_unlock(&_stats_mutex);

879
    thread_mutex_destroy (&listener.mutex);
880
    client_destroy (client);
881 882
    INFO0 ("stats client finished");

883
    return NULL;
Jack Moffitt's avatar
Jack Moffitt committed
884 885
}

886 887 888 889 890 891 892 893 894 895 896 897 898

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
899
typedef struct _source_xml_tag {
900 901
    char *mount;
    xmlNodePtr node;
Jack Moffitt's avatar
Jack Moffitt committed
902

903
    struct _source_xml_tag *next;
Jack Moffitt's avatar
Jack Moffitt committed
904 905 906 907
} source_xml_t;

static xmlNodePtr _find_xml_node(char *mount, source_xml_t **list, xmlNodePtr root)
{
908 909 910 911 912 913 914 915 916 917 918 919
    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
920

921
    if (found) return node->node;
Jack Moffitt's avatar
Jack Moffitt committed
922

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

925 926 927
    /* build node */
    node = (source_xml_t *)malloc(sizeof(source_xml_t));
    node->mount = strdup(mount);
928 929
    node->node = xmlNewChild (root, NULL, XMLSTR("source"), NULL);
    xmlSetProp (node->node, XMLSTR("mount"), XMLSTR(mount));
930
    node->next = NULL;
Jack Moffitt's avatar
Jack Moffitt committed
931

932 933 934 935 936 937 938 939
    /* 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
940

941
    return node->node;
Jack Moffitt's avatar
Jack Moffitt committed
942 943
}

944
void stats_transform_xslt(client_t *client, const char *uri)
945 946
{
    xmlDocPtr doc;
947
    char *xslpath = util_get_path_from_normalised_uri (uri);
948
    const char *mount = httpp_get_query_param (client->parser, "mount");
949

950
    stats_get_xml(&doc, 0, mount);
951

952
    xslt_transform(doc, xslpath, client);
953 954

    xmlFreeDoc(doc);
955
    free (xslpath);
956 957
}

958
void stats_get_xml(xmlDocPtr *doc, int show_hidden, const char *show_mount)
959
{
960
    stats_event_t *event;
961
    event_queue_t queue;
962 963 964
    xmlNodePtr node, srcnode;
    source_xml_t *src_nodes = NULL;
    source_xml_t *next;
965

966 967
    event_queue_init (&queue);
    _dump_stats_to_queue (&queue);
968

969 970
    *doc = xmlNewDoc (XMLSTR("1.0"));
    node = xmlNewDocNode(*doc, NULL, XMLSTR("icestats"), NULL);
971
    xmlDocSetRootElement(*doc, node);
972

973
    event = _get_event_from_queue(&queue);
974 975
    while (event)
    {
976 977
        if (event->hidden <= show_hidden)
        {
978 979 980
            do
            {
                xmlChar *name, *value;
981 982
                name = xmlEncodeEntitiesReentrant (*doc, XMLSTR(event->name));
                value = xmlEncodeEntitiesReentrant (*doc, XMLSTR(event->value));
983 984 985 986 987 988 989 990 991
                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;
992
                xmlNewChild(srcnode, NULL, XMLSTR(name), XMLSTR(value));
993 994 995
                xmlFree (value);
                xmlFree (name);
            } while (0);
996
        }
997

998 999 1000
        _free_event(event);
        event = _get_event_from_queue(&queue);
    }
1001

1002 1003 1004 1005 1006 1007
    while (src_nodes) {
        next = src_nodes->next;
        free(src_nodes->mount);
        free(src_nodes);
        src_nodes = next;
    }
1008
}
Jack Moffitt's avatar
Jack Moffitt committed
1009 1010
void stats_sendxml(client_t *client)
{
1011 1012
    int bytes;
    stats_event_t *event;
1013
    event_queue_t queue;
1014 1015 1016
    xmlDocPtr doc;
    xmlNodePtr node, srcnode;
    int len;
1017
    xmlChar *buff = NULL;
1018 1019 1020
    source_xml_t *snd;
    source_xml_t *src_nodes = NULL;

1021 1022
    event_queue_init (&queue);
    _dump_stats_to_queue (&queue);
1023

1024 1025
    doc = xmlNewDoc (XMLSTR("1.0"));
    node = xmlNewDocNode (doc, NULL, XMLSTR("icestats"), NULL);
1026 1027 1028 1029 1030 1031
    xmlDocSetRootElement(doc, node);


    event = _get_event_from_queue(&queue);
    while (event) {
        if (event->source == NULL) {
1032
            xmlNewChild (node, NULL, XMLSTR(event->name), XMLSTR(event->value));
1033 1034
        } else {
            srcnode = _find_xml_node(event->source, &src_nodes, node);
1035
            xmlNewChild (srcnode, NULL, XMLSTR(event->name), XMLSTR(event->value));
1036 1037 1038 1039 1040 1041
        }

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

1042
    xmlDocDumpMemory(doc, &buff, &len);
1043 1044 1045 1046 1047 1048 1049 1050 1051 1052
    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;

1053
    bytes = client_send_bytes (client, buff, (unsigned)len);
Jack Moffitt's avatar
Jack Moffitt committed
1054 1055

 send_error:
1056 1057 1058 1059 1060 1061 1062
    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
1063 1064 1065 1066
}

static int _compare_stats(void *arg, void *a, void *b)
{
1067 1068
    stats_node_t *nodea = (stats_node_t *)a;
    stats_node_t *nodeb = (stats_node_t *)b;
Jack Moffitt's avatar
Jack Moffitt committed
1069

1070
    return strcmp(nodea->name, nodeb->name);
Jack Moffitt's avatar
Jack Moffitt committed
1071 1072 1073 1074
}

static int _compare_source_stats(void *arg, void *a, void *b)
{
1075 1076
    stats_source_t *nodea = (stats_source_t *)a;
    stats_source_t *nodeb = (stats_source_t *)b;
Jack Moffitt's avatar
Jack Moffitt committed
1077

1078
    return strcmp(nodea->source, nodeb->source);
Jack Moffitt's avatar
Jack Moffitt committed
1079 1080 1081 1082
}

static int _free_stats(void *key)
{
1083 1084 1085 1086 1087 1088
    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
1089 1090 1091 1092
}

static int _free_source_stats(void *key)
{
1093 1094 1095
    stats_source_t *node = (stats_source_t *)key;
    avl_tree_free(node->stats_tree, _free_stats);
    free(node->source);
1096
    free(node);
Jack Moffitt's avatar
Jack Moffitt committed
1097

1098
    return 1;
Jack Moffitt's avatar
Jack Moffitt committed
1099 1100 1101 1102
}

static void _free_event(stats_event_t *event)
{
1103 1104 1105 1106
    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
1107
}
1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142


/* 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);
}

1143 1144 1145 1146 1147 1148 1149 1150 1151