ffserver.c 123 KB
Newer Older
Fabrice Bellard's avatar
Fabrice Bellard committed
1
/*
2
 * Copyright (c) 2000, 2001, 2002 Fabrice Bellard
Fabrice Bellard's avatar
Fabrice Bellard committed
3
 *
4 5 6
 * This file is part of FFmpeg.
 *
 * FFmpeg is free software; you can redistribute it and/or
7 8
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
9
 * version 2.1 of the License, or (at your option) any later version.
Fabrice Bellard's avatar
Fabrice Bellard committed
10
 *
11
 * FFmpeg is distributed in the hope that it will be useful,
Fabrice Bellard's avatar
Fabrice Bellard committed
12
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 14
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
Fabrice Bellard's avatar
Fabrice Bellard committed
15
 *
16
 * You should have received a copy of the GNU Lesser General Public
17
 * License along with FFmpeg; if not, write to the Free Software
18
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
Fabrice Bellard's avatar
Fabrice Bellard committed
19
 */
20

21 22 23 24 25
/**
 * @file
 * multiple format streaming server based on the FFmpeg libraries
 */

26
#include "config.h"
27
#if !HAVE_CLOSESOCKET
28 29 30 31
#define closesocket close
#endif
#include <string.h>
#include <stdlib.h>
32
#include <stdio.h>
33
#include "libavformat/avformat.h"
34
/* FIXME: those are internal headers, ffserver _really_ shouldn't use them */
35
#include "libavformat/ffm.h"
36 37
#include "libavformat/network.h"
#include "libavformat/os_support.h"
38
#include "libavformat/rtpdec.h"
39
#include "libavformat/rtpproto.h"
40
#include "libavformat/rtsp.h"
41
#include "libavformat/rtspcodes.h"
42
#include "libavformat/avio_internal.h"
43 44 45
#include "libavformat/internal.h"
#include "libavformat/url.h"

46
#include "libavutil/avassert.h"
47
#include "libavutil/avstring.h"
48
#include "libavutil/lfg.h"
49
#include "libavutil/dict.h"
50
#include "libavutil/intreadwrite.h"
51
#include "libavutil/mathematics.h"
52
#include "libavutil/random_seed.h"
53
#include "libavutil/parseutils.h"
54
#include "libavutil/opt.h"
55 56
#include "libavutil/time.h"

Fabrice Bellard's avatar
Fabrice Bellard committed
57
#include <stdarg.h>
58
#if HAVE_UNISTD_H
Fabrice Bellard's avatar
Fabrice Bellard committed
59
#include <unistd.h>
60
#endif
Fabrice Bellard's avatar
Fabrice Bellard committed
61 62
#include <fcntl.h>
#include <sys/ioctl.h>
63
#if HAVE_POLL_H
64
#include <poll.h>
65
#endif
Fabrice Bellard's avatar
Fabrice Bellard committed
66 67
#include <errno.h>
#include <time.h>
68
#include <sys/wait.h>
Fabrice Bellard's avatar
Fabrice Bellard committed
69
#include <signal.h>
70

71
#include "cmdutils.h"
72
#include "ffserver_config.h"
Fabrice Bellard's avatar
Fabrice Bellard committed
73

74 75
#define PATH_LENGTH 1024

76
const char program_name[] = "ffserver";
77
const int program_birth_year = 2000;
78

79 80
static const OptionDef options[];

Fabrice Bellard's avatar
Fabrice Bellard committed
81 82 83 84
enum HTTPState {
    HTTPSTATE_WAIT_REQUEST,
    HTTPSTATE_SEND_HEADER,
    HTTPSTATE_SEND_DATA_HEADER,
85
    HTTPSTATE_SEND_DATA,          /* sending TCP or UDP data */
Fabrice Bellard's avatar
Fabrice Bellard committed
86
    HTTPSTATE_SEND_DATA_TRAILER,
87
    HTTPSTATE_RECEIVE_DATA,
88 89 90 91 92
    HTTPSTATE_WAIT_FEED,          /* wait for data from the feed */
    HTTPSTATE_READY,

    RTSPSTATE_WAIT_REQUEST,
    RTSPSTATE_SEND_REPLY,
93
    RTSPSTATE_SEND_PACKET,
Fabrice Bellard's avatar
Fabrice Bellard committed
94 95
};

96
static const char * const http_state[] = {
97 98 99
    "HTTP_WAIT_REQUEST",
    "HTTP_SEND_HEADER",

Fabrice Bellard's avatar
Fabrice Bellard committed
100 101 102 103 104
    "SEND_DATA_HEADER",
    "SEND_DATA",
    "SEND_DATA_TRAILER",
    "RECEIVE_DATA",
    "WAIT_FEED",
105 106 107 108
    "READY",

    "RTSP_WAIT_REQUEST",
    "RTSP_SEND_REPLY",
109
    "RTSP_SEND_PACKET",
Fabrice Bellard's avatar
Fabrice Bellard committed
110 111
};

112
#define IOBUFFER_INIT_SIZE 8192
Fabrice Bellard's avatar
Fabrice Bellard committed
113 114

/* timeouts are in ms */
115 116 117
#define HTTP_REQUEST_TIMEOUT (15 * 1000)
#define RTSP_REQUEST_TIMEOUT (3600 * 24 * 1000)

Fabrice Bellard's avatar
Fabrice Bellard committed
118 119
#define SYNC_TIMEOUT (10 * 1000)

120 121 122 123 124
typedef struct RTSPActionServerSetup {
    uint32_t ipaddr;
    char transport_option[512];
} RTSPActionServerSetup;

125
typedef struct {
126
    int64_t count1, count2;
127
    int64_t time1, time2;
128 129
} DataRateData;

Fabrice Bellard's avatar
Fabrice Bellard committed
130 131 132 133 134 135
/* context associated with one connection */
typedef struct HTTPContext {
    enum HTTPState state;
    int fd; /* socket file descriptor */
    struct sockaddr_in from_addr; /* origin */
    struct pollfd *poll_entry; /* used when polling */
136
    int64_t timeout;
137
    uint8_t *buffer_ptr, *buffer_end;
Fabrice Bellard's avatar
Fabrice Bellard committed
138
    int http_error;
139
    int post;
140 141
    int chunked_encoding;
    int chunk_size;               /* 0 if it needs to be read */
Fabrice Bellard's avatar
Fabrice Bellard committed
142
    struct HTTPContext *next;
143
    int got_key_frame; /* stream 0 => 1, stream 1 => 2, stream 2=> 4 */
144
    int64_t data_count;
Fabrice Bellard's avatar
Fabrice Bellard committed
145 146 147 148
    /* feed input */
    int feed_fd;
    /* input format handling */
    AVFormatContext *fmt_in;
149
    int64_t start_time;            /* In milliseconds - this wraps fairly often */
150
    int64_t first_pts;            /* initial pts value */
151 152 153 154 155 156 157
    int64_t cur_pts;             /* current pts value from the stream in us */
    int64_t cur_frame_duration;  /* duration of the current frame in us */
    int cur_frame_bytes;       /* output frame size, needed to compute
                                  the time at which we send each
                                  packet */
    int pts_stream_index;        /* stream we choose as clock reference */
    int64_t cur_clock;           /* current clock reference value in us */
Fabrice Bellard's avatar
Fabrice Bellard committed
158
    /* output format handling */
159
    struct FFServerStream *stream;
160
    /* -1 is invalid stream */
161 162
    int feed_streams[FFSERVER_MAX_STREAMS]; /* index of streams in the feed */
    int switch_feed_streams[FFSERVER_MAX_STREAMS]; /* index of streams in the feed */
163
    int switch_pending;
164
    AVFormatContext fmt_ctx; /* instance of FFServerStream for one user */
Fabrice Bellard's avatar
Fabrice Bellard committed
165
    int last_packet_sent; /* true if last data packet was sent */
166
    int suppress_log;
167
    DataRateData datarate;
168
    int wmp_client_id;
169 170 171
    char protocol[16];
    char method[16];
    char url[128];
172
    int buffer_size;
173
    uint8_t *buffer;
174 175
    int is_packetized; /* if true, the stream is packetized */
    int packet_stream_index; /* current stream for output in state machine */
176

177
    /* RTSP state specific */
178
    uint8_t *pb_buffer; /* XXX: use that in all the code */
179
    AVIOContext *pb;
180
    int seq; /* RTSP sequence number */
181

182
    /* RTP state specific */
183
    enum RTSPLowerTransport rtp_protocol;
184
    char session_id[32]; /* session id */
185
    AVFormatContext *rtp_ctx[FFSERVER_MAX_STREAMS];
186

187
    /* RTP/UDP specific */
188
    URLContext *rtp_handles[FFSERVER_MAX_STREAMS];
189 190 191 192

    /* RTP/TCP specific */
    struct HTTPContext *rtsp_c;
    uint8_t *packet_buffer, *packet_buffer_ptr, *packet_buffer_end;
Fabrice Bellard's avatar
Fabrice Bellard committed
193 194 195 196
} HTTPContext;

typedef struct FeedData {
    long long data_count;
Diego Biurrun's avatar
Diego Biurrun committed
197
    float avg_frame_size;   /* frame size averaged over last frames with exponential mean */
Fabrice Bellard's avatar
Fabrice Bellard committed
198 199
} FeedData;

200
static HTTPContext *first_http_ctx;
201 202 203 204 205

static FFServerConfig config = {
    .nb_max_http_connections = 2000,
    .nb_max_connections = 5,
    .max_bandwidth = 1000,
206
    .use_defaults = 1,
207
};
Fabrice Bellard's avatar
Fabrice Bellard committed
208

209 210 211 212 213
static void new_connection(int server_fd, int is_rtsp);
static void close_connection(HTTPContext *c);

/* HTTP handling */
static int handle_connection(HTTPContext *c);
214
static inline void print_stream_params(AVIOContext *pb, FFServerStream *stream);
215
static void compute_status(HTTPContext *c);
Fabrice Bellard's avatar
Fabrice Bellard committed
216
static int open_input_stream(HTTPContext *c, const char *info);
217 218
static int http_parse_request(HTTPContext *c);
static int http_send_data(HTTPContext *c);
Fabrice Bellard's avatar
Fabrice Bellard committed
219 220
static int http_start_receive_data(HTTPContext *c);
static int http_receive_data(HTTPContext *c);
221 222 223 224

/* RTSP handling */
static int rtsp_parse_request(HTTPContext *c);
static void rtsp_cmd_describe(HTTPContext *c, const char *url);
225
static void rtsp_cmd_options(HTTPContext *c, const char *url);
226 227 228 229 230 231
static void rtsp_cmd_setup(HTTPContext *c, const char *url,
                           RTSPMessageHeader *h);
static void rtsp_cmd_play(HTTPContext *c, const char *url,
                          RTSPMessageHeader *h);
static void rtsp_cmd_interrupt(HTTPContext *c, const char *url,
                               RTSPMessageHeader *h, int pause_only);
232

233
/* SDP handling */
234
static int prepare_sdp_description(FFServerStream *stream, uint8_t **pbuffer,
235 236
                                   struct in_addr my_ip);

237
/* RTP handling */
238
static HTTPContext *rtp_new_connection(struct sockaddr_in *from_addr,
239 240
                                       FFServerStream *stream,
                                       const char *session_id,
241
                                       enum RTSPLowerTransport rtp_protocol);
242
static int rtp_new_av_stream(HTTPContext *c,
243 244
                             int stream_index, struct sockaddr_in *dest_addr,
                             HTTPContext *rtsp_c);
Fabrice Bellard's avatar
Fabrice Bellard committed
245

246 247
static const char *my_program_name;

248
static int no_launch;
249
static int need_to_start_children;
250

251
/* maximum number of simultaneous HTTP connections */
252
static unsigned int nb_connections;
Fabrice Bellard's avatar
Fabrice Bellard committed
253

254
static uint64_t current_bandwidth;
255

256 257
/* Making this global saves on passing it around everywhere */
static int64_t cur_time;
258

259
static AVLFG random_state;
260

Fabrice Bellard's avatar
Fabrice Bellard committed
261 262
static FILE *logfile = NULL;

263 264 265 266 267 268 269 270
static void htmlstrip(char *s) {
    while (s && *s) {
        s += strspn(s, "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,. ");
        if (*s)
            *s++ = '?';
    }
}

271 272 273 274
static int64_t ffm_read_write_index(int fd)
{
    uint8_t buf[8];

275 276
    if (lseek(fd, 8, SEEK_SET) < 0)
        return AVERROR(EIO);
277 278 279 280 281 282 283 284 285 286 287 288
    if (read(fd, buf, 8) != 8)
        return AVERROR(EIO);
    return AV_RB64(buf);
}

static int ffm_write_write_index(int fd, int64_t pos)
{
    uint8_t buf[8];
    int i;

    for(i=0;i<8;i++)
        buf[i] = (pos >> (56 - i * 8)) & 0xff;
289
    if (lseek(fd, 8, SEEK_SET) < 0)
290
        goto bail_eio;
291
    if (write(fd, buf, 8) != 8)
292 293
        goto bail_eio;

294
    return 8;
295 296 297

bail_eio:
    return AVERROR(EIO);
298 299 300 301 302
}

static void ffm_set_write_index(AVFormatContext *s, int64_t pos,
                                int64_t file_size)
{
303 304 305
    av_opt_set_int(s, "server_attached", 1, AV_OPT_SEARCH_CHILDREN);
    av_opt_set_int(s, "write_index", pos, AV_OPT_SEARCH_CHILDREN);
    av_opt_set_int(s, "file_size", file_size, AV_OPT_SEARCH_CHILDREN);
306 307
}

308
static char *ctime1(char *buf2, size_t buf_size)
Baptiste Coudurier's avatar
Baptiste Coudurier committed
309 310 311 312 313 314
{
    time_t ti;
    char *p;

    ti = time(NULL);
    p = ctime(&ti);
315 316 317 318
    if (!p || !*p) {
        *buf2 = '\0';
        return buf2;
    }
319
    av_strlcpy(buf2, p, buf_size);
320
    p = buf2 + strlen(buf2) - 1;
Baptiste Coudurier's avatar
Baptiste Coudurier committed
321 322 323 324 325
    if (*p == '\n')
        *p = '\0';
    return buf2;
}

326
static void http_vlog(const char *fmt, va_list vargs)
Fabrice Bellard's avatar
Fabrice Bellard committed
327
{
328
    static int print_prefix = 1;
329
    char buf[32];
330 331 332 333

    if (!logfile)
        return;

334 335 336 337 338 339 340
    if (print_prefix) {
        ctime1(buf, sizeof(buf));
        fprintf(logfile, "%s ", buf);
    }
    print_prefix = strstr(fmt, "\n") != NULL;
    vfprintf(logfile, fmt, vargs);
    fflush(logfile);
341 342
}

343 344 345 346
#ifdef __GNUC__
__attribute__ ((format (printf, 1, 2)))
#endif
static void http_log(const char *fmt, ...)
347 348 349 350 351 352 353 354 355 356 357
{
    va_list vargs;
    va_start(vargs, fmt);
    http_vlog(fmt, vargs);
    va_end(vargs);
}

static void http_av_log(void *ptr, int level, const char *fmt, va_list vargs)
{
    static int print_prefix = 1;
    AVClass *avc = ptr ? *(AVClass**)ptr : NULL;
358
    if (level > av_log_get_level())
359 360
        return;
    if (print_prefix && avc)
361
        http_log("[%s @ %p]", avc->item_name(ptr), ptr);
362 363
    print_prefix = strstr(fmt, "\n") != NULL;
    http_vlog(fmt, vargs);
Fabrice Bellard's avatar
Fabrice Bellard committed
364 365
}

366 367
static void log_connection(HTTPContext *c)
{
368
    if (c->suppress_log)
369 370
        return;

371 372
    http_log("%s - - [%s] \"%s %s\" %d %"PRId64"\n",
             inet_ntoa(c->from_addr.sin_addr), c->method, c->url,
373
             c->protocol, (c->http_error ? c->http_error : 200), c->data_count);
374 375
}

376
static void update_datarate(DataRateData *drd, int64_t count)
377 378 379 380
{
    if (!drd->time1 && !drd->count1) {
        drd->time1 = drd->time2 = cur_time;
        drd->count1 = drd->count2 = count;
381
    } else if (cur_time - drd->time2 > 5000) {
Alex Beregszaszi's avatar
Alex Beregszaszi committed
382 383 384 385
        drd->time1 = drd->time2;
        drd->count1 = drd->count2;
        drd->time2 = cur_time;
        drd->count2 = count;
386 387 388 389
    }
}

/* In bytes per second */
390
static int compute_datarate(DataRateData *drd, int64_t count)
391 392 393
{
    if (cur_time == drd->time1)
        return 0;
394

395 396 397
    return ((count - drd->count1) * 1000) / (cur_time - drd->time1);
}

398

399
static void start_children(FFServerStream *feed)
400
{
401
    char *pathname;
402 403
    char *slash;
    int i;
404
    size_t cmd_length;
405

406 407 408
    if (no_launch)
        return;

409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425
    cmd_length = strlen(my_program_name);

   /**
    * FIXME: WIP Safeguard. Remove after clearing all harcoded
    * '1024' path lengths
    */
    if (cmd_length > PATH_LENGTH - 1) {
        http_log("Could not start children. Command line: '%s' exceeds "
                    "path length limit (%d)\n", my_program_name, PATH_LENGTH);
        return;
    }

    pathname = av_strdup (my_program_name);
    if (!pathname) {
        http_log("Could not allocate memory for children cmd line\n");
        return;
    }
426 427 428 429 430 431 432 433 434 435
   /* replace "ffserver" with "ffmpeg" in the path of current
    * program. Ignore user provided path */

    slash = strrchr(pathname, '/');
    if (!slash)
        slash = pathname;
    else
        slash++;
    strcpy(slash, "ffmpeg");

436
    for (; feed; feed = feed->next) {
437 438 439 440

        if (!feed->child_argv || feed->pid)
            continue;

441
        feed->pid_start = time(0);
442

443 444 445 446 447
        feed->pid = fork();
        if (feed->pid < 0) {
            http_log("Unable to create children\n");
            exit(1);
        }
448

449 450
        if (feed->pid)
            continue;
451

452
        /* In child */
453

454 455
        http_log("Launch command line: ");
        http_log("%s ", pathname);
456

457 458 459
        for (i = 1; feed->child_argv[i] && feed->child_argv[i][0]; i++)
            http_log("%s ", feed->child_argv[i]);
        http_log("\n");
460

461 462
        for (i = 3; i < 256; i++)
            close(i);
463

464 465 466 467 468 469 470 471
        if (!config.debug) {
            if (!freopen("/dev/null", "r", stdin))
                http_log("failed to redirect STDIN to /dev/null\n;");
            if (!freopen("/dev/null", "w", stdout))
                http_log("failed to redirect STDOUT to /dev/null\n;");
            if (!freopen("/dev/null", "w", stderr))
                http_log("failed to redirect STDERR to /dev/null\n;");
        }
472

473 474
        signal(SIGPIPE, SIG_DFL);
        execvp(pathname, feed->child_argv);
475
        av_free (pathname);
476
        _exit(1);
477
    }
478
    av_free (pathname);
479 480
}

481 482
/* open a listening socket */
static int socket_open_listen(struct sockaddr_in *my_addr)
Fabrice Bellard's avatar
Fabrice Bellard committed
483
{
484
    int server_fd, tmp;
Fabrice Bellard's avatar
Fabrice Bellard committed
485 486 487 488 489 490

    server_fd = socket(AF_INET,SOCK_STREAM,0);
    if (server_fd < 0) {
        perror ("socket");
        return -1;
    }
491

Fabrice Bellard's avatar
Fabrice Bellard committed
492
    tmp = 1;
493 494
    if (setsockopt(server_fd, SOL_SOCKET, SO_REUSEADDR, &tmp, sizeof(tmp)))
        av_log(NULL, AV_LOG_WARNING, "setsockopt SO_REUSEADDR failed\n");
Fabrice Bellard's avatar
Fabrice Bellard committed
495

496
    my_addr->sin_family = AF_INET;
497
    if (bind (server_fd, (struct sockaddr *) my_addr, sizeof (*my_addr)) < 0) {
498
        char bindmsg[32];
499 500
        snprintf(bindmsg, sizeof(bindmsg), "bind(port %d)",
                 ntohs(my_addr->sin_port));
501
        perror (bindmsg);
502
        goto fail;
Fabrice Bellard's avatar
Fabrice Bellard committed
503
    }
504

Fabrice Bellard's avatar
Fabrice Bellard committed
505 506
    if (listen (server_fd, 5) < 0) {
        perror ("listen");
507
        goto fail;
Fabrice Bellard's avatar
Fabrice Bellard committed
508
    }
509 510 511

    if (ff_socket_nonblock(server_fd, 1) < 0)
        av_log(NULL, AV_LOG_WARNING, "ff_socket_nonblock failed\n");
512 513

    return server_fd;
514 515 516 517

fail:
    closesocket(server_fd);
    return -1;
518 519
}

520 521 522
/* start all multicast streams */
static void start_multicast(void)
{
523
    FFServerStream *stream;
524 525
    char session_id[32];
    HTTPContext *rtp_c;
526
    struct sockaddr_in dest_addr = {0};
527
    int default_port, stream_index;
528
    unsigned int random0, random1;
529 530

    default_port = 6000;
531
    for(stream = config.first_stream; stream; stream = stream->next) {
532

533 534
        if (!stream->is_multicast)
            continue;
535

536 537 538 539
        random0 = av_lfg_get(&random_state);
        random1 = av_lfg_get(&random_state);

        /* open the RTP connection */
540
        snprintf(session_id, sizeof(session_id), "%08x%08x", random0, random1);
541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568

        /* choose a port if none given */
        if (stream->multicast_port == 0) {
            stream->multicast_port = default_port;
            default_port += 100;
        }

        dest_addr.sin_family = AF_INET;
        dest_addr.sin_addr = stream->multicast_ip;
        dest_addr.sin_port = htons(stream->multicast_port);

        rtp_c = rtp_new_connection(&dest_addr, stream, session_id,
                                   RTSP_LOWER_TRANSPORT_UDP_MULTICAST);
        if (!rtp_c)
            continue;

        if (open_input_stream(rtp_c, "") < 0) {
            http_log("Could not open input stream for stream '%s'\n",
                     stream->filename);
            continue;
        }

        /* open each RTP stream */
        for(stream_index = 0; stream_index < stream->nb_streams;
            stream_index++) {
            dest_addr.sin_port = htons(stream->multicast_port +
                                       2 * stream_index);
            if (rtp_new_av_stream(rtp_c, stream_index, &dest_addr, NULL) >= 0)
569
                continue;
570 571 572 573 574 575 576

            http_log("Could not open output stream '%s/streamid=%d'\n",
                     stream->filename, stream_index);
            exit(1);
        }

        rtp_c->state = HTTPSTATE_SEND_DATA;
577 578
    }
}
579

580
/* main loop of the HTTP server */
581 582
static int http_server(void)
{
583
    int server_fd = 0, rtsp_server_fd = 0;
584
    int ret, delay;
585
    struct pollfd *poll_table, *poll_entry;
586 587
    HTTPContext *c, *c_next;

588 589 590 591 592
    poll_table = av_mallocz_array(config.nb_max_http_connections + 2,
                                  sizeof(*poll_table));
    if(!poll_table) {
        http_log("Impossible to allocate a poll table handling %d "
                 "connections.\n", config.nb_max_http_connections);
593 594 595
        return -1;
    }

596 597
    if (config.http_addr.sin_port) {
        server_fd = socket_open_listen(&config.http_addr);
598 599
        if (server_fd < 0)
            goto quit;
600
    }
Fabrice Bellard's avatar
Fabrice Bellard committed
601

602 603
    if (config.rtsp_addr.sin_port) {
        rtsp_server_fd = socket_open_listen(&config.rtsp_addr);
604 605
        if (rtsp_server_fd < 0) {
            closesocket(server_fd);
606
            goto quit;
607
        }
608 609 610 611
    }

    if (!rtsp_server_fd && !server_fd) {
        http_log("HTTP and RTSP disabled.\n");
612
        goto quit;
613
    }
614

615
    http_log("FFserver started.\n");
Fabrice Bellard's avatar
Fabrice Bellard committed
616

617
    start_children(config.first_feed);
618

619 620
    start_multicast();

Fabrice Bellard's avatar
Fabrice Bellard committed
621 622
    for(;;) {
        poll_entry = poll_table;
623
        if (server_fd) {
Baptiste Coudurier's avatar
Baptiste Coudurier committed
624 625 626
            poll_entry->fd = server_fd;
            poll_entry->events = POLLIN;
            poll_entry++;
627 628
        }
        if (rtsp_server_fd) {
Baptiste Coudurier's avatar
Baptiste Coudurier committed
629 630 631
            poll_entry->fd = rtsp_server_fd;
            poll_entry->events = POLLIN;
            poll_entry++;
632
        }
633

Fabrice Bellard's avatar
Fabrice Bellard committed
634 635
        /* wait for events on each HTTP handle */
        c = first_http_ctx;
636
        delay = 1000;
637
        while (c) {
Fabrice Bellard's avatar
Fabrice Bellard committed
638 639 640
            int fd;
            fd = c->fd;
            switch(c->state) {
641 642
            case HTTPSTATE_SEND_HEADER:
            case RTSPSTATE_SEND_REPLY:
643
            case RTSPSTATE_SEND_PACKET:
Fabrice Bellard's avatar
Fabrice Bellard committed
644 645
                c->poll_entry = poll_entry;
                poll_entry->fd = fd;
646
                poll_entry->events = POLLOUT;
Fabrice Bellard's avatar
Fabrice Bellard committed
647 648 649 650 651
                poll_entry++;
                break;
            case HTTPSTATE_SEND_DATA_HEADER:
            case HTTPSTATE_SEND_DATA:
            case HTTPSTATE_SEND_DATA_TRAILER:
652
                if (!c->is_packetized) {
653 654
                    /* for TCP, we output as much as we can
                     * (may need to put a limit) */
655 656 657 658 659
                    c->poll_entry = poll_entry;
                    poll_entry->fd = fd;
                    poll_entry->events = POLLOUT;
                    poll_entry++;
                } else {
660
                    /* when ffserver is doing the timing, we work by
661 662
                     * looking at which packet needs to be sent every
                     * 10 ms (one tick wait XXX: 10 ms assumed) */
663 664
                    if (delay > 10)
                        delay = 10;
665
                }
Fabrice Bellard's avatar
Fabrice Bellard committed
666
                break;
667
            case HTTPSTATE_WAIT_REQUEST:
Fabrice Bellard's avatar
Fabrice Bellard committed
668 669
            case HTTPSTATE_RECEIVE_DATA:
            case HTTPSTATE_WAIT_FEED:
670
            case RTSPSTATE_WAIT_REQUEST:
Fabrice Bellard's avatar
Fabrice Bellard committed
671 672 673
                /* need to catch errors */
                c->poll_entry = poll_entry;
                poll_entry->fd = fd;
674
                poll_entry->events = POLLIN;/* Maybe this will work */
Fabrice Bellard's avatar
Fabrice Bellard committed
675 676 677 678 679 680 681 682 683 684
                poll_entry++;
                break;
            default:
                c->poll_entry = NULL;
                break;
            }
            c = c->next;
        }

        /* wait for an event on one connection. We poll at least every
685
         * second to handle timeouts */
Fabrice Bellard's avatar
Fabrice Bellard committed
686
        do {
687
            ret = poll(poll_table, poll_entry - poll_table, delay);
688
            if (ret < 0 && ff_neterrno() != AVERROR(EAGAIN) &&
689
                ff_neterrno() != AVERROR(EINTR)) {
690
                goto quit;
691
            }
692
        } while (ret < 0);
693

694
        cur_time = av_gettime() / 1000;
Fabrice Bellard's avatar
Fabrice Bellard committed
695

696 697
        if (need_to_start_children) {
            need_to_start_children = 0;
698
            start_children(config.first_feed);
699 700
        }

Fabrice Bellard's avatar
Fabrice Bellard committed
701
        /* now handle the events */
702
        for(c = first_http_ctx; c; c = c_next) {
703 704
            c_next = c->next;
            if (handle_connection(c) < 0) {
705
                log_connection(c);
706
                /* close and free the connection */
707
                close_connection(c);
Fabrice Bellard's avatar
Fabrice Bellard committed
708 709 710 711
            }
        }

        poll_entry = poll_table;
712
        if (server_fd) {
Baptiste Coudurier's avatar
Baptiste Coudurier committed
713 714 715 716
            /* new HTTP connection request ? */
            if (poll_entry->revents & POLLIN)
                new_connection(server_fd, 0);
            poll_entry++;
717 718
        }
        if (rtsp_server_fd) {
Baptiste Coudurier's avatar
Baptiste Coudurier committed
719 720 721
            /* new RTSP connection request ? */
            if (poll_entry->revents & POLLIN)
                new_connection(rtsp_server_fd, 1);
722
        }
Fabrice Bellard's avatar
Fabrice Bellard committed
723
    }
724 725 726 727

quit:
    av_free(poll_table);
    return -1;
Fabrice Bellard's avatar
Fabrice Bellard committed
728 729
}

730 731
/* start waiting for a new HTTP/RTSP request */
static void start_wait_request(HTTPContext *c, int is_rtsp)
Fabrice Bellard's avatar
Fabrice Bellard committed
732
{
733 734 735
    c->buffer_ptr = c->buffer;
    c->buffer_end = c->buffer + c->buffer_size - 1; /* leave room for '\0' */

736 737
    c->state = is_rtsp ? RTSPSTATE_WAIT_REQUEST : HTTPSTATE_WAIT_REQUEST;
    c->timeout = cur_time +
738
                 (is_rtsp ? RTSP_REQUEST_TIMEOUT : HTTP_REQUEST_TIMEOUT);
739 740
}

741 742
static void http_send_too_busy_reply(int fd)
{
743
    char buffer[400];
744
    int len = snprintf(buffer, sizeof(buffer),
745
                       "HTTP/1.0 503 Server too busy\r\n"
746 747 748
                       "Content-type: text/html\r\n"
                       "\r\n"
                       "<html><head><title>Too busy</title></head><body>\r\n"
749 750 751 752
                       "<p>The server is too busy to serve your request at "
                       "this time.</p>\r\n"
                       "<p>The number of current connections is %u, and this "
                       "exceeds the limit of %u.</p>\r\n"
753
                       "</body></html>\r\n",
754
                       nb_connections, config.nb_max_connections);
755
    av_assert0(len < sizeof(buffer));
756
    if (send(fd, buffer, len, 0) < len)
757 758
        av_log(NULL, AV_LOG_WARNING,
               "Could not send too-busy reply, send() failed\n");
759 760 761
}


762 763 764
static void new_connection(int server_fd, int is_rtsp)
{
    struct sockaddr_in from_addr;
765 766
    socklen_t len;
    int fd;
767 768 769
    HTTPContext *c = NULL;

    len = sizeof(from_addr);
770
    fd = accept(server_fd, (struct sockaddr *)&from_addr,
771
                &len);
Baptiste Coudurier's avatar
Baptiste Coudurier committed
772 773
    if (fd < 0) {
        http_log("error during accept %s\n", strerror(errno));
774
        return;
Baptiste Coudurier's avatar
Baptiste Coudurier committed
775
    }
776 777
    if (ff_socket_nonblock(fd, 1) < 0)
        av_log(NULL, AV_LOG_WARNING, "ff_socket_nonblock failed\n");
778

779
    if (nb_connections >= config.nb_max_connections) {
780
        http_send_too_busy_reply(fd);
781
        goto fail;
782
    }
783

784 785 786 787
    /* add a new connection */
    c = av_mallocz(sizeof(HTTPContext));
    if (!c)
        goto fail;
788

789 790 791 792 793 794 795
    c->fd = fd;
    c->poll_entry = NULL;
    c->from_addr = from_addr;
    c->buffer_size = IOBUFFER_INIT_SIZE;
    c->buffer = av_malloc(c->buffer_size);
    if (!c->buffer)
        goto fail;
796 797 798

    c->next = first_http_ctx;
    first_http_ctx = c;
799
    nb_connections++;
800

801 802 803 804 805 806
    start_wait_request(c, is_rtsp);

    return;

 fail:
    if (c) {
807
        av_freep(&c->buffer);
808 809
        av_free(c);
    }
810
    closesocket(fd);
811 812 813 814 815 816 817 818 819 820 821
}

static void close_connection(HTTPContext *c)
{
    HTTPContext **cp, *c1;
    int i, nb_streams;
    AVFormatContext *ctx;
    AVStream *st;

    /* remove connection from list */
    cp = &first_http_ctx;
822
    while (*cp) {
823
        c1 = *cp;
824
        if (c1 == c)
825
            *cp = c->next;
826
        else
827 828 829
            cp = &c1->next;
    }

830
    /* remove references, if any (XXX: do it faster) */
831
    for(c1 = first_http_ctx; c1; c1 = c1->next) {
832 833 834 835
        if (c1->rtsp_c == c)
            c1->rtsp_c = NULL;
    }

836 837
    /* remove connection associated resources */
    if (c->fd >= 0)
838
        closesocket(c->fd);
839 840 841 842
    if (c->fmt_in) {
        /* close each frame parser */
        for(i=0;i<c->fmt_in->nb_streams;i++) {
            st = c->fmt_in->streams[i];
843
            if (st->codec->codec)
844
                avcodec_close(st->codec);
845
        }
846
        avformat_close_input(&c->fmt_in);
847 848 849 850
    }

    /* free RTP output streams if any */
    nb_streams = 0;
851
    if (c->stream)
852
        nb_streams = c->stream->nb_streams;
853

854 855 856 857
    for(i=0;i<nb_streams;i++) {
        ctx = c->rtp_ctx[i];
        if (ctx) {
            av_write_trailer(ctx);
858
            av_dict_free(&ctx->metadata);
859 860
            av_freep(&ctx->streams[0]);
            av_freep(&ctx);
861
        }
862
        ffurl_close(c->rtp_handles[i]);
863
    }
864

865 866
    ctx = &c->fmt_ctx;

867
    if (!c->last_packet_sent && c->state == HTTPSTATE_SEND_DATA_TRAILER) {
868 869 870 871 872
        /* prepare header */
        if (ctx->oformat && avio_open_dyn_buf(&ctx->pb) >= 0) {
            av_write_trailer(ctx);
            av_freep(&c->pb_buffer);
            avio_close_dyn_buf(ctx->pb, &c->pb_buffer);
873 874 875
        }
    }

876
    for(i=0; i<ctx->nb_streams; i++)
877
        av_freep(&ctx->streams[i]);
878 879
    av_freep(&ctx->streams);
    av_freep(&ctx->priv_data);
880

881
    if (c->stream && !c->post && c->stream->stream_type == STREAM_TYPE_LIVE)
882
        current_bandwidth -= c->stream->bandwidth;
883 884 885 886 887 888 889

    /* signal that there is no feed if we are the feeder socket */
    if (c->state == HTTPSTATE_RECEIVE_DATA && c->stream) {
        c->stream->feed_opened = 0;
        close(c->feed_fd);
    }

890
    av_freep(&c->pb_buffer);
891
    av_freep(&c->packet_buffer);
892
    av_freep(&c->buffer);
893 894 895 896 897 898 899
    av_free(c);
    nb_connections--;
}

static int handle_connection(HTTPContext *c)
{
    int len, ret;
900
    uint8_t *ptr;
901

Fabrice Bellard's avatar
Fabrice Bellard committed
902 903
    switch(c->state) {
    case HTTPSTATE_WAIT_REQUEST:
904
    case RTSPSTATE_WAIT_REQUEST:
Fabrice Bellard's avatar
Fabrice Bellard committed
905 906 907 908 909 910 911 912 913 914
        /* timeout ? */
        if ((c->timeout - cur_time) < 0)
            return -1;
        if (c->poll_entry->revents & (POLLERR | POLLHUP))
            return -1;

        /* no need to read if no events */
        if (!(c->poll_entry->revents & POLLIN))
            return 0;
        /* read the data */
915
    read_loop:
916 917 918
        if (!(len = recv(c->fd, c->buffer_ptr, 1, 0)))
            return -1;

Fabrice Bellard's avatar
Fabrice Bellard committed
919
        if (len < 0) {
920 921
            if (ff_neterrno() != AVERROR(EAGAIN) &&
                ff_neterrno() != AVERROR(EINTR))
Fabrice Bellard's avatar
Fabrice Bellard committed
922
                return -1;
923 924
            break;
        }
925 926 927 928 929 930
        /* search for end of request. */
        c->buffer_ptr += len;
        ptr = c->buffer_ptr;
        if ((ptr >= c->buffer + 2 && !memcmp(ptr-2, "\n\n", 2)) ||
            (ptr >= c->buffer + 4 && !memcmp(ptr-4, "\r\n\r\n", 4))) {
            /* request found : parse it and reply */
931
            if (c->state == HTTPSTATE_WAIT_REQUEST)
932
                ret = http_parse_request(c);
933
            else
934
                ret = rtsp_parse_request(c);
935

936
            if (ret < 0)
Fabrice Bellard's avatar
Fabrice Bellard committed
937
                return -1;
938 939 940 941
        } else if (ptr >= c->buffer_end) {
            /* request too long: cannot do anything */
            return -1;
        } else goto read_loop;
942

Fabrice Bellard's avatar
Fabrice Bellard committed
943 944 945 946 947 948
        break;

    case HTTPSTATE_SEND_HEADER:
        if (c->poll_entry->revents & (POLLERR | POLLHUP))
            return -1;

949
        /* no need to write if no events */
Fabrice Bellard's avatar
Fabrice Bellard committed
950 951
        if (!(c->poll_entry->revents & POLLOUT))
            return 0;
952
        len = send(c->fd, c->buffer_ptr, c->buffer_end - c->buffer_ptr, 0);
Fabrice Bellard's avatar
Fabrice Bellard committed
953
        if (len < 0) {
954 955
            if (ff_neterrno() != AVERROR(EAGAIN) &&
                ff_neterrno() != AVERROR(EINTR)) {
956
                goto close_connection;
Fabrice Bellard's avatar
Fabrice Bellard committed
957
            }
958 959
            break;
        }
960 961 962 963 964 965 966 967 968 969 970 971 972 973
        c->buffer_ptr += len;
        if (c->stream)
            c->stream->bytes_served += len;
        c->data_count += len;
        if (c->buffer_ptr >= c->buffer_end) {
            av_freep(&c->pb_buffer);
            /* if error, exit */
            if (c->http_error)
                return -1;
            /* all the buffer was sent : synchronize to the incoming
             * stream */
            c->state = HTTPSTATE_SEND_DATA_HEADER;
            c->buffer_ptr = c->buffer_end = c->buffer;
        }
Fabrice Bellard's avatar
Fabrice Bellard committed
974 975 976 977 978
        break;

    case HTTPSTATE_SEND_DATA:
    case HTTPSTATE_SEND_DATA_HEADER:
    case HTTPSTATE_SEND_DATA_TRAILER:
979
        /* for packetized output, we consider we can always write (the
980 981
         * input streams set the speed). It may be better to verify
         * that we do not rely too much on the kernel queues */
982 983 984
        if (!c->is_packetized) {
            if (c->poll_entry->revents & (POLLERR | POLLHUP))
                return -1;
985

986 987 988 989
            /* no need to read if no events */
            if (!(c->poll_entry->revents & POLLOUT))
                return 0;
        }
990
        if (http_send_data(c) < 0)
Fabrice Bellard's avatar
Fabrice Bellard committed
991
            return -1;
992 993 994
        /* close connection if trailer sent */
        if (c->state == HTTPSTATE_SEND_DATA_TRAILER)
            return -1;
995 996 997 998
        /* Check if it is a single jpeg frame 123 */
        if (c->stream->single_frame && c->data_count > c->cur_frame_bytes && c->cur_frame_bytes > 0) {
            close_connection(c);
        }
Fabrice Bellard's avatar
Fabrice Bellard committed
999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010
        break;
    case HTTPSTATE_RECEIVE_DATA:
        /* no need to read if no events */
        if (c->poll_entry->revents & (POLLERR | POLLHUP))
            return -1;
        if (!(c->poll_entry->revents & POLLIN))
            return 0;
        if (http_receive_data(c) < 0)
            return -1;
        break;
    case HTTPSTATE_WAIT_FEED:
        /* no need to read if no events */
1011
        if (c->poll_entry->revents & (POLLIN | POLLERR | POLLHUP))
Fabrice Bellard's avatar
Fabrice Bellard committed
1012 1013 1014 1015
            return -1;

        /* nothing to do, we'll be waken up by incoming feed packets */
        break;
1016 1017

    case RTSPSTATE_SEND_REPLY:
1018 1019
        if (c->poll_entry->revents & (POLLERR | POLLHUP))
            goto close_connection;
1020 1021 1022
        /* no need to write if no events */
        if (!(c->poll_entry->revents & POLLOUT))
            return 0;
1023
        len = send(c->fd, c->buffer_ptr, c->buffer_end - c->buffer_ptr, 0);
1024
        if (len < 0) {
1025 1026
            if (ff_neterrno() != AVERROR(EAGAIN) &&
                ff_neterrno() != AVERROR(EINTR)) {
1027
                goto close_connection;
1028
            }
1029 1030
            break;
        }
1031 1032 1033 1034 1035 1036 1037
        c->buffer_ptr += len;
        c->data_count += len;
        if (c->buffer_ptr >= c->buffer_end) {
            /* all the buffer was sent : wait for a new request */
            av_freep(&c->pb_buffer);
            start_wait_request(c, 1);
        }
1038
        break;
1039 1040 1041 1042 1043 1044 1045 1046
    case RTSPSTATE_SEND_PACKET:
        if (c->poll_entry->revents & (POLLERR | POLLHUP)) {
            av_freep(&c->packet_buffer);
            return -1;
        }
        /* no need to write if no events */
        if (!(c->poll_entry->revents & POLLOUT))
            return 0;
1047 1048
        len = send(c->fd, c->packet_buffer_ptr,
                    c->packet_buffer_end - c->packet_buffer_ptr, 0);
1049
        if (len < 0) {
1050 1051
            if (ff_neterrno() != AVERROR(EAGAIN) &&
                ff_neterrno() != AVERROR(EINTR)) {
1052 1053 1054 1055
                /* error : close connection */
                av_freep(&c->packet_buffer);
                return -1;
            }
1056 1057
            break;
        }
1058 1059 1060 1061 1062 1063
        c->packet_buffer_ptr += len;
        if (c->packet_buffer_ptr >= c->packet_buffer_end) {
            /* all the buffer was sent : wait for a new request */
            av_freep(&c->packet_buffer);
            c->state = RTSPSTATE_WAIT_REQUEST;
        }
1064
        break;
1065 1066 1067
    case HTTPSTATE_READY:
        /* nothing to do */
        break;
Fabrice Bellard's avatar
Fabrice Bellard committed
1068 1069 1070 1071
    default:
        return -1;
    }
    return 0;
1072 1073 1074 1075

close_connection:
    av_freep(&c->pb_buffer);
    return -1;
Fabrice Bellard's avatar
Fabrice Bellard committed
1076 1077
}

1078 1079 1080 1081 1082
static int extract_rates(char *rates, int ratelen, const char *request)
{
    const char *p;

    for (p = request; *p && *p != '\r' && *p != '\n'; ) {
1083
        if (av_strncasecmp(p, "Pragma:", 7) == 0) {
1084 1085
            const char *q = p + 7;

1086
            while (*q && *q != '\n' && av_isspace(*q))
1087 1088
                q++;

1089
            if (av_strncasecmp(q, "stream-switch-entry=", 20) == 0) {
1090 1091 1092 1093 1094
                int stream_no;
                int rate_no;

                q += 20;

1095
                memset(rates, 0xff, ratelen);
1096 1097 1098 1099 1100

                while (1) {
                    while (*q && *q != '\n' && *q != ':')
                        q++;

1101
                    if (sscanf(q, ":%d:%d", &stream_no, &rate_no) != 2)
1102
                        break;
1103

1104
                    stream_no--;
1105
                    if (stream_no < ratelen && stream_no >= 0)
1106 1107
                        rates[stream_no] = rate_no;

1108
                    while (*q && *q != '\n' && !av_isspace(*q))
1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124
                        q++;
                }

                return 1;
            }
        }
        p = strchr(p, '\n');
        if (!p)
            break;

        p++;
    }

    return 0;
}

1125 1126
static int find_stream_in_feed(FFServerStream *feed, AVCodecContext *codec,
                               int bit_rate)
1127 1128
{
    int i;
1129 1130 1131 1132
    int best_bitrate = 100000000;
    int best = -1;

    for (i = 0; i < feed->nb_streams; i++) {
1133
        AVCodecContext *feed_codec = feed->streams[i]->codec;
1134 1135 1136 1137

        if (feed_codec->codec_id != codec->codec_id ||
            feed_codec->sample_rate != codec->sample_rate ||
            feed_codec->width != codec->width ||
1138
            feed_codec->height != codec->height)
1139 1140 1141 1142
            continue;

        /* Potential stream */

1143
        /* We want the fastest stream less than bit_rate, or the slowest
1144 1145 1146 1147
         * faster than bit_rate
         */

        if (feed_codec->bit_rate <= bit_rate) {
1148 1149
            if (best_bitrate > bit_rate ||
                feed_codec->bit_rate > best_bitrate) {
1150 1151 1152
                best_bitrate = feed_codec->bit_rate;
                best = i;
            }
1153 1154 1155 1156 1157
            continue;
        }
        if (feed_codec->bit_rate < best_bitrate) {
            best_bitrate = feed_codec->bit_rate;
            best = i;
1158 1159 1160 1161 1162 1163 1164 1165
        }
    }
    return best;
}

static int modify_current_stream(HTTPContext *c, char *rates)
{
    int i;
1166
    FFServerStream *req = c->stream;
1167
    int action_required = 0;
1168

1169 1170 1171 1172
    /* Not much we can do for a feed */
    if (!req->feed)
        return 0;

1173
    for (i = 0; i < req->nb_streams; i++) {
1174
        AVCodecContext *codec = req->streams[i]->codec;
1175 1176 1177

        switch(rates[i]) {
            case 0:
1178
                c->switch_feed_streams[i] = req->feed_streams[i];
1179 1180
                break;
            case 1:
1181
                c->switch_feed_streams[i] = find_stream_in_feed(req->feed, codec, codec->bit_rate / 2);
1182 1183
                break;
            case 2:
1184 1185 1186 1187 1188 1189 1190
                /* Wants off or slow */
                c->switch_feed_streams[i] = find_stream_in_feed(req->feed, codec, codec->bit_rate / 4);
#ifdef WANTS_OFF
                /* This doesn't work well when it turns off the only stream! */
                c->switch_feed_streams[i] = -2;
                c->feed_streams[i] = -2;
#endif
1191 1192 1193
                break;
        }

1194 1195
        if (c->switch_feed_streams[i] >= 0 &&
            c->switch_feed_streams[i] != c->feed_streams[i]) {
1196
            action_required = 1;
1197
        }
1198
    }
1199

1200 1201
    return action_required;
}
1202

1203 1204 1205 1206 1207 1208
static void get_word(char *buf, int buf_size, const char **pp)
{
    const char *p;
    char *q;

    p = *pp;
1209
    p += strspn(p, SPACE_CHARS);
1210
    q = buf;
1211
    while (!av_isspace(*p) && *p != '\0') {
1212 1213 1214 1215 1216 1217 1218 1219 1220
        if ((q - buf) < buf_size - 1)
            *q++ = *p;
        p++;
    }
    if (buf_size > 0)
        *q = '\0';
    *pp = p;
}

1221 1222
static FFServerIPAddressACL* parse_dynamic_acl(FFServerStream *stream,
                                               HTTPContext *c)
1223 1224 1225 1226
{
    FILE* f;
    char line[1024];
    char  cmd[1024];
1227
    FFServerIPAddressACL *acl = NULL;
1228 1229 1230 1231 1232 1233 1234 1235 1236
    int line_num = 0;
    const char *p;

    f = fopen(stream->dynamic_acl, "r");
    if (!f) {
        perror(stream->dynamic_acl);
        return NULL;
    }

1237
    acl = av_mallocz(sizeof(FFServerIPAddressACL));
1238 1239 1240 1241
    if (!acl) {
        fclose(f);
        return NULL;
    }
1242 1243

    /* Build ACL */
1244
    while (fgets(line, sizeof(line), f)) {
1245 1246
        line_num++;
        p = line;
1247
        while (av_isspace(*p))
1248 1249 1250
            p++;
        if (*p == '\0' || *p == '#')
            continue;
1251
        ffserver_get_arg(cmd, sizeof(cmd), &p);
1252

1253
        if (!av_strcasecmp(cmd, "ACL"))
1254 1255
            ffserver_parse_acl_row(NULL, NULL, acl, p, stream->dynamic_acl,
                                   line_num);
1256 1257 1258 1259 1260 1261
    }
    fclose(f);
    return acl;
}


1262
static void free_acl_list(FFServerIPAddressACL *in_acl)
1263
{
1264
    FFServerIPAddressACL *pacl, *pacl2;
1265 1266 1267 1268 1269 1270 1271 1272 1273

    pacl = in_acl;
    while(pacl) {
        pacl2 = pacl;
        pacl = pacl->next;
        av_freep(pacl2);
    }
}

1274
static int validate_acl_list(FFServerIPAddressACL *in_acl, HTTPContext *c)
1275
{
1276 1277
    enum FFServerIPAddressAction last_action = IP_DENY;
    FFServerIPAddressACL *acl;
1278
    struct in_addr *src = &c->from_addr.sin_addr;
1279
    unsigned long src_addr = src->s_addr;
1280

1281
    for (acl = in_acl; acl; acl = acl->next) {
1282
        if (src_addr >= acl->first.s_addr && src_addr <= acl->last.s_addr)
1283 1284 1285 1286 1287 1288 1289 1290
            return (acl->action == IP_ALLOW) ? 1 : 0;
        last_action = acl->action;
    }

    /* Nothing matched, so return not the last action */
    return (last_action == IP_DENY) ? 1 : 0;
}

1291
static int validate_acl(FFServerStream *stream, HTTPContext *c)
1292 1293
{
    int ret = 0;
1294
    FFServerIPAddressACL *acl;
1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307

    /* if stream->acl is null validate_acl_list will return 1 */
    ret = validate_acl_list(stream->acl, c);

    if (stream->dynamic_acl[0]) {
        acl = parse_dynamic_acl(stream, c);
        ret = validate_acl_list(acl, c);
        free_acl_list(acl);
    }

    return ret;
}

1308 1309 1310 1311
/**
 * compute the real filename of a file by matching it without its
 * extensions to all the stream's filenames
 */
1312 1313 1314 1315 1316
static void compute_real_filename(char *filename, int max_size)
{
    char file1[1024];
    char file2[1024];
    char *p;
1317
    FFServerStream *stream;
1318

1319
    av_strlcpy(file1, filename, sizeof(file1));
1320 1321 1322
    p = strrchr(file1, '.');
    if (p)
        *p = '\0';
1323
    for(stream = config.first_stream; stream; stream = stream->next) {
1324
        av_strlcpy(file2, stream->filename, sizeof(file2));
1325 1326 1327 1328
        p = strrchr(file2, '.');
        if (p)
            *p = '\0';
        if (!strcmp(file1, file2)) {
1329
            av_strlcpy(filename, stream->filename, max_size);
1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343
            break;
        }
    }
}

enum RedirType {
    REDIR_NONE,
    REDIR_ASX,
    REDIR_RAM,
    REDIR_ASF,
    REDIR_RTSP,
    REDIR_SDP,
};

1344
/* parse HTTP request and prepare header */
Fabrice Bellard's avatar
Fabrice Bellard committed
1345 1346
static int http_parse_request(HTTPContext *c)
{
1347 1348
    const char *p;
    char *p1;
1349
    enum RedirType redir_type;
Fabrice Bellard's avatar
Fabrice Bellard committed
1350
    char cmd[32];
1351
    char info[1024], filename[1024];
Fabrice Bellard's avatar
Fabrice Bellard committed
1352 1353 1354 1355
    char url[1024], *q;
    char protocol[32];
    char msg[1024];
    const char *mime_type;
1356
    FFServerStream *stream;
1357
    int i;
1358
    char ratebuf[32];
1359
    const char *useragent = 0;
Fabrice Bellard's avatar
Fabrice Bellard committed
1360 1361

    p = c->buffer;
1362
    get_word(cmd, sizeof(cmd), &p);
1363
    av_strlcpy(c->method, cmd, sizeof(c->method));
1364

Fabrice Bellard's avatar
Fabrice Bellard committed
1365
    if (!strcmp(cmd, "GET"))
1366
        c->post = 0;
Fabrice Bellard's avatar
Fabrice Bellard committed
1367
    else if (!strcmp(cmd, "POST"))
1368
        c->post = 1;
Fabrice Bellard's avatar
Fabrice Bellard committed
1369 1370 1371
    else
        return -1;

1372
    get_word(url, sizeof(url), &p);
1373
    av_strlcpy(c->url, url, sizeof(c->url));
1374

1375
    get_word(protocol, sizeof(protocol), (const char **)&p);
Fabrice Bellard's avatar
Fabrice Bellard committed
1376 1377
    if (strcmp(protocol, "HTTP/1.0") && strcmp(protocol, "HTTP/1.1"))
        return -1;
1378

1379
    av_strlcpy(c->protocol, protocol, sizeof(c->protocol));
1380

1381
    if (config.debug)
1382 1383
        http_log("%s - - New connection: %s %s\n",
                 inet_ntoa(c->from_addr.sin_addr), cmd, url);
1384

Fabrice Bellard's avatar
Fabrice Bellard committed
1385
    /* find the filename and the optional info string in the request */
1386 1387 1388 1389
    p1 = strchr(url, '?');
    if (p1) {
        av_strlcpy(info, p1, sizeof(info));
        *p1 = '\0';
1390
    } else
Fabrice Bellard's avatar
Fabrice Bellard committed
1391 1392
        info[0] = '\0';

1393
    av_strlcpy(filename, url + ((*url == '/') ? 1 : 0), sizeof(filename)-1);
1394

1395
    for (p = c->buffer; *p && *p != '\r' && *p != '\n'; ) {
1396
        if (av_strncasecmp(p, "User-Agent:", 11) == 0) {
1397
            useragent = p + 11;
1398
            if (*useragent && *useragent != '\n' && av_isspace(*useragent))
1399 1400 1401 1402 1403 1404 1405 1406 1407 1408
                useragent++;
            break;
        }
        p = strchr(p, '\n');
        if (!p)
            break;

        p++;
    }

1409
    redir_type = REDIR_NONE;
1410
    if (av_match_ext(filename, "asx")) {
1411
        redir_type = REDIR_ASX;
1412
        filename[strlen(filename)-1] = 'f';
1413
    } else if (av_match_ext(filename, "asf") &&
1414
        (!useragent || av_strncasecmp(useragent, "NSPlayer", 8))) {
1415
        /* if this isn't WMP or lookalike, return the redirector file */
1416
        redir_type = REDIR_ASF;
1417
    } else if (av_match_ext(filename, "rpm,ram")) {
1418
        redir_type = REDIR_RAM;
1419
        strcpy(filename + strlen(filename)-2, "m");
1420
    } else if (av_match_ext(filename, "rtsp")) {
1421
        redir_type = REDIR_RTSP;
1422
        compute_real_filename(filename, sizeof(filename) - 1);
1423
    } else if (av_match_ext(filename, "sdp")) {
1424
        redir_type = REDIR_SDP;
1425
        compute_real_filename(filename, sizeof(filename) - 1);
1426
    }
1427

1428
    /* "redirect" request to index.html */
1429
    if (!strlen(filename))
1430
        av_strlcpy(filename, "index.html", sizeof(filename) - 1);
1431

1432
    stream = config.first_stream;
1433
    while (stream) {
1434
        if (!strcmp(stream->filename, filename) && validate_acl(stream, c))
Fabrice Bellard's avatar
Fabrice Bellard committed
1435 1436 1437
            break;
        stream = stream->next;
    }
1438
    if (!stream) {
1439
        snprintf(msg, sizeof(msg), "File '%s' not found", url);
1440
        http_log("File '%s' not found\n", url);
Fabrice Bellard's avatar
Fabrice Bellard committed
1441 1442
        goto send_error;
    }
1443

1444 1445 1446 1447 1448 1449 1450
    c->stream = stream;
    memcpy(c->feed_streams, stream->feed_streams, sizeof(c->feed_streams));
    memset(c->switch_feed_streams, -1, sizeof(c->switch_feed_streams));

    if (stream->stream_type == STREAM_TYPE_REDIRECT) {
        c->http_error = 301;
        q = c->buffer;
1451
        snprintf(q, c->buffer_size,
1452 1453 1454 1455 1456 1457
                      "HTTP/1.0 301 Moved\r\n"
                      "Location: %s\r\n"
                      "Content-type: text/html\r\n"
                      "\r\n"
                      "<html><head><title>Moved</title></head><body>\r\n"
                      "You should be <a href=\"%s\">redirected</a>.\r\n"
1458 1459
                      "</body></html>\r\n",
                 stream->feed_filename, stream->feed_filename);
1460
        q += strlen(q);
1461 1462 1463 1464 1465 1466 1467
        /* prepare output buffer */
        c->buffer_ptr = c->buffer;
        c->buffer_end = q;
        c->state = HTTPSTATE_SEND_HEADER;
        return 0;
    }

1468 1469
    /* If this is WMP, get the rate information */
    if (extract_rates(ratebuf, sizeof(ratebuf), c->buffer)) {
1470
        if (modify_current_stream(c, ratebuf)) {
1471
            for (i = 0; i < FF_ARRAY_ELEMS(c->feed_streams); i++) {
1472
                if (c->switch_feed_streams[i] >= 0)
Reinhard Tartler's avatar
Reinhard Tartler committed
1473
                    c->switch_feed_streams[i] = -1;
1474 1475
            }
        }
1476 1477
    }

1478 1479 1480
    if (c->post == 0 && stream->stream_type == STREAM_TYPE_LIVE)
        current_bandwidth += stream->bandwidth;

1481
    /* If already streaming this feed, do not let another feeder start */
1482 1483
    if (stream->feed_opened) {
        snprintf(msg, sizeof(msg), "This feed is already being received.");
1484
        http_log("Feed '%s' already being received\n", stream->feed_filename);
1485 1486 1487
        goto send_error;
    }

1488
    if (c->post == 0 && config.max_bandwidth < current_bandwidth) {
1489
        c->http_error = 503;
1490
        q = c->buffer;
1491
        snprintf(q, c->buffer_size,
1492
                      "HTTP/1.0 503 Server too busy\r\n"
1493 1494 1495
                      "Content-type: text/html\r\n"
                      "\r\n"
                      "<html><head><title>Too busy</title></head><body>\r\n"
1496 1497 1498
                      "<p>The server is too busy to serve your request at "
                      "this time.</p>\r\n"
                      "<p>The bandwidth being served (including your stream) "
1499 1500
                      "is %"PRIu64"kbit/s, and this exceeds the limit of "
                      "%"PRIu64"kbit/s.</p>\r\n"
1501 1502
                      "</body></html>\r\n",
                 current_bandwidth, config.max_bandwidth);
1503
        q += strlen(q);
1504 1505 1506 1507 1508 1509
        /* prepare output buffer */
        c->buffer_ptr = c->buffer;
        c->buffer_end = q;
        c->state = HTTPSTATE_SEND_HEADER;
        return 0;
    }
1510

1511
    if (redir_type != REDIR_NONE) {
1512
        const char *hostinfo = 0;
1513

1514
        for (p = c->buffer; *p && *p != '\r' && *p != '\n'; ) {
1515
            if (av_strncasecmp(p, "Host:", 5) == 0) {
1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529
                hostinfo = p + 5;
                break;
            }
            p = strchr(p, '\n');
            if (!p)
                break;

            p++;
        }

        if (hostinfo) {
            char *eoh;
            char hostbuf[260];

1530
            while (av_isspace(*hostinfo))
1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543
                hostinfo++;

            eoh = strchr(hostinfo, '\n');
            if (eoh) {
                if (eoh[-1] == '\r')
                    eoh--;

                if (eoh - hostinfo < sizeof(hostbuf) - 1) {
                    memcpy(hostbuf, hostinfo, eoh - hostinfo);
                    hostbuf[eoh - hostinfo] = 0;

                    c->http_error = 200;
                    q = c->buffer;
1544 1545
                    switch(redir_type) {
                    case REDIR_ASX:
1546
                        snprintf(q, c->buffer_size,
1547 1548 1549 1550 1551 1552 1553
                                      "HTTP/1.0 200 ASX Follows\r\n"
                                      "Content-type: video/x-ms-asf\r\n"
                                      "\r\n"
                                      "<ASX Version=\"3\">\r\n"
                                      //"<!-- Autogenerated by ffserver -->\r\n"
                                      "<ENTRY><REF HREF=\"http://%s/%s%s\"/></ENTRY>\r\n"
                                      "</ASX>\r\n", hostbuf, filename, info);
1554
                        q += strlen(q);
1555 1556
                        break;
                    case REDIR_RAM:
1557
                        snprintf(q, c->buffer_size,
1558 1559 1560 1561 1562
                                      "HTTP/1.0 200 RAM Follows\r\n"
                                      "Content-type: audio/x-pn-realaudio\r\n"
                                      "\r\n"
                                      "# Autogenerated by ffserver\r\n"
                                      "http://%s/%s%s\r\n", hostbuf, filename, info);
1563
                        q += strlen(q);
1564 1565
                        break;
                    case REDIR_ASF:
1566
                        snprintf(q, c->buffer_size,
1567 1568 1569 1570 1571
                                      "HTTP/1.0 200 ASF Redirect follows\r\n"
                                      "Content-type: video/x-ms-asf\r\n"
                                      "\r\n"
                                      "[Reference]\r\n"
                                      "Ref1=http://%s/%s%s\r\n", hostbuf, filename, info);
1572
                        q += strlen(q);
1573 1574 1575 1576 1577
                        break;
                    case REDIR_RTSP:
                        {
                            char hostname[256], *p;
                            /* extract only hostname */
1578
                            av_strlcpy(hostname, hostbuf, sizeof(hostname));
1579 1580 1581
                            p = strrchr(hostname, ':');
                            if (p)
                                *p = '\0';
1582
                            snprintf(q, c->buffer_size,
1583
                                          "HTTP/1.0 200 RTSP Redirect follows\r\n"
1584
                                          /* XXX: incorrect MIME type ? */
1585 1586
                                          "Content-type: application/x-rtsp\r\n"
                                          "\r\n"
1587
                                          "rtsp://%s:%d/%s\r\n", hostname, ntohs(config.rtsp_addr.sin_port), filename);
1588
                            q += strlen(q);
1589 1590 1591 1592
                        }
                        break;
                    case REDIR_SDP:
                        {
1593
                            uint8_t *sdp_data;
1594 1595
                            int sdp_data_size;
                            socklen_t len;
1596 1597
                            struct sockaddr_in my_addr;

1598
                            snprintf(q, c->buffer_size,
1599 1600 1601
                                          "HTTP/1.0 200 OK\r\n"
                                          "Content-type: application/sdp\r\n"
                                          "\r\n");
1602
                            q += strlen(q);
1603 1604

                            len = sizeof(my_addr);
1605 1606 1607 1608

                            /* XXX: Should probably fail? */
                            if (getsockname(c->fd, (struct sockaddr *)&my_addr, &len))
                                http_log("getsockname() failed\n");
1609

1610
                            /* XXX: should use a dynamic buffer */
1611 1612
                            sdp_data_size = prepare_sdp_description(stream,
                                                                    &sdp_data,
1613 1614 1615 1616 1617 1618 1619 1620 1621 1622
                                                                    my_addr.sin_addr);
                            if (sdp_data_size > 0) {
                                memcpy(q, sdp_data, sdp_data_size);
                                q += sdp_data_size;
                                *q = '\0';
                                av_free(sdp_data);
                            }
                        }
                        break;
                    default:
1623
                        abort();
1624
                        break;
1625
                    }
1626 1627 1628 1629 1630 1631 1632 1633 1634 1635

                    /* prepare output buffer */
                    c->buffer_ptr = c->buffer;
                    c->buffer_end = q;
                    c->state = HTTPSTATE_SEND_HEADER;
                    return 0;
                }
            }
        }

1636
        snprintf(msg, sizeof(msg), "ASX/RAM file not handled");
1637
        goto send_error;
Fabrice Bellard's avatar
Fabrice Bellard committed
1638 1639
    }

1640
    stream->conns_served++;
1641

Fabrice Bellard's avatar
Fabrice Bellard committed
1642 1643
    /* XXX: add there authenticate and IP match */

1644
    if (c->post) {
Fabrice Bellard's avatar
Fabrice Bellard committed
1645 1646
        /* if post, it means a feed is being sent */
        if (!stream->is_feed) {
Diego Biurrun's avatar
Diego Biurrun committed
1647
            /* However it might be a status report from WMP! Let us log the
1648
             * data as it might come handy one day. */
1649
            const char *logline = 0;
1650
            int client_id = 0;
1651

1652
            for (p = c->buffer; *p && *p != '\r' && *p != '\n'; ) {
1653
                if (av_strncasecmp(p, "Pragma: log-line=", 17) == 0) {
1654 1655 1656
                    logline = p;
                    break;
                }
1657
                if (av_strncasecmp(p, "Pragma: client-id=", 18) == 0)
1658
                    client_id = strtol(p + 18, 0, 10);
1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673
                p = strchr(p, '\n');
                if (!p)
                    break;

                p++;
            }

            if (logline) {
                char *eol = strchr(logline, '\n');

                logline += 17;

                if (eol) {
                    if (eol[-1] == '\r')
                        eol--;
Falk Hüffner's avatar
Falk Hüffner committed
1674
                    http_log("%.*s\n", (int) (eol - logline), logline);
1675 1676 1677
                    c->suppress_log = 1;
                }
            }
1678

1679
#ifdef DEBUG
1680
            http_log("\nGot request:\n%s\n", c->buffer);
1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691
#endif

            if (client_id && extract_rates(ratebuf, sizeof(ratebuf), c->buffer)) {
                HTTPContext *wmpc;

                /* Now we have to find the client_id */
                for (wmpc = first_http_ctx; wmpc; wmpc = wmpc->next) {
                    if (wmpc->wmp_client_id == client_id)
                        break;
                }

1692 1693
                if (wmpc && modify_current_stream(wmpc, ratebuf))
                    wmpc->switch_pending = 1;
1694
            }
1695

1696
            snprintf(msg, sizeof(msg), "POST command not handled");
1697
            c->stream = 0;
Fabrice Bellard's avatar
Fabrice Bellard committed
1698 1699 1700
            goto send_error;
        }
        if (http_start_receive_data(c) < 0) {
1701
            snprintf(msg, sizeof(msg), "could not open feed");
Fabrice Bellard's avatar
Fabrice Bellard committed
1702 1703 1704 1705 1706 1707 1708
            goto send_error;
        }
        c->http_error = 0;
        c->state = HTTPSTATE_RECEIVE_DATA;
        return 0;
    }

1709
#ifdef DEBUG
1710
    if (strcmp(stream->filename + strlen(stream->filename) - 4, ".asf") == 0)
1711
        http_log("\nGot request:\n%s\n", c->buffer);
1712 1713
#endif

Fabrice Bellard's avatar
Fabrice Bellard committed
1714
    if (c->stream->stream_type == STREAM_TYPE_STATUS)
1715
        goto send_status;
Fabrice Bellard's avatar
Fabrice Bellard committed
1716 1717 1718

    /* open input stream */
    if (open_input_stream(c, info) < 0) {
1719
        snprintf(msg, sizeof(msg), "Input stream corresponding to '%s' not found", url);
Fabrice Bellard's avatar
Fabrice Bellard committed
1720 1721 1722
        goto send_error;
    }

1723
    /* prepare HTTP header */
1724 1725
    c->buffer[0] = 0;
    av_strlcatf(c->buffer, c->buffer_size, "HTTP/1.0 200 OK\r\n");
Fabrice Bellard's avatar
Fabrice Bellard committed
1726 1727
    mime_type = c->stream->fmt->mime_type;
    if (!mime_type)
1728
        mime_type = "application/x-octet-stream";
1729
    av_strlcatf(c->buffer, c->buffer_size, "Pragma: no-cache\r\n");
Fabrice Bellard's avatar
Fabrice Bellard committed
1730 1731

    /* for asf, we need extra headers */
1732
    if (!strcmp(c->stream->fmt->name,"asf_stream")) {
1733 1734
        /* Need to allocate a client id */

1735
        c->wmp_client_id = av_lfg_get(&random_state);
1736

1737
        av_strlcatf(c->buffer, c->buffer_size, "Server: Cougar 4.1.0.3923\r\nCache-Control: no-cache\r\nPragma: client-id=%d\r\nPragma: features=\"broadcast\"\r\n", c->wmp_client_id);
Fabrice Bellard's avatar
Fabrice Bellard committed
1738
    }
1739 1740 1741
    av_strlcatf(c->buffer, c->buffer_size, "Content-Type: %s\r\n", mime_type);
    av_strlcatf(c->buffer, c->buffer_size, "\r\n");
    q = c->buffer + strlen(c->buffer);
1742

Fabrice Bellard's avatar
Fabrice Bellard committed
1743 1744 1745 1746 1747 1748 1749 1750 1751
    /* prepare output buffer */
    c->http_error = 0;
    c->buffer_ptr = c->buffer;
    c->buffer_end = q;
    c->state = HTTPSTATE_SEND_HEADER;
    return 0;
 send_error:
    c->http_error = 404;
    q = c->buffer;
1752
    htmlstrip(msg);
1753
    snprintf(q, c->buffer_size,
1754 1755 1756
                  "HTTP/1.0 404 Not Found\r\n"
                  "Content-type: text/html\r\n"
                  "\r\n"
1757 1758 1759 1760
                  "<html>\n"
                  "<head><title>404 Not Found</title></head>\n"
                  "<body>%s</body>\n"
                  "</html>\n", msg);
1761
    q += strlen(q);
Fabrice Bellard's avatar
Fabrice Bellard committed
1762 1763 1764 1765 1766
    /* prepare output buffer */
    c->buffer_ptr = c->buffer;
    c->buffer_end = q;
    c->state = HTTPSTATE_SEND_HEADER;
    return 0;
1767 1768
 send_status:
    compute_status(c);
1769 1770 1771
    /* horrible: we use this value to avoid
     * going to the send data state */
    c->http_error = 200;
Fabrice Bellard's avatar
Fabrice Bellard committed
1772 1773 1774 1775
    c->state = HTTPSTATE_SEND_HEADER;
    return 0;
}

1776
static void fmt_bytecount(AVIOContext *pb, int64_t count)
1777
{
1778
    static const char suffix[] = " kMGTP";
1779 1780
    const char *s;

1781
    for (s = suffix; count >= 100000 && s[1]; count /= 1000, s++);
1782

1783
    avio_printf(pb, "%"PRId64"%c", count, *s);
1784 1785
}

1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796
static inline void print_stream_params(AVIOContext *pb, FFServerStream *stream)
{
    int i, stream_no;
    const char *type = "unknown";
    char parameters[64];
    AVStream *st;
    AVCodec *codec;

    stream_no = stream->nb_streams;

    avio_printf(pb, "<table cellspacing=0 cellpadding=4><tr><th>Stream<th>"
1797
                    "type<th>kbit/s<th align=left>codec<th align=left>"
1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822
                    "Parameters\n");

    for (i = 0; i < stream_no; i++) {
        st = stream->streams[i];
        codec = avcodec_find_encoder(st->codec->codec_id);

        parameters[0] = 0;

        switch(st->codec->codec_type) {
        case AVMEDIA_TYPE_AUDIO:
            type = "audio";
            snprintf(parameters, sizeof(parameters), "%d channel(s), %d Hz",
                     st->codec->channels, st->codec->sample_rate);
            break;
        case AVMEDIA_TYPE_VIDEO:
            type = "video";
            snprintf(parameters, sizeof(parameters),
                     "%dx%d, q=%d-%d, fps=%d", st->codec->width,
                     st->codec->height, st->codec->qmin, st->codec->qmax,
                     st->codec->time_base.den / st->codec->time_base.num);
            break;
        default:
            abort();
        }

1823
        avio_printf(pb, "<tr><td align=right>%d<td>%s<td align=right>%"PRId64
1824
                        "<td>%s<td>%s\n",
1825
                    i, type, (int64_t)st->codec->bit_rate/1000,
1826 1827 1828 1829 1830 1831
                    codec ? codec->name : "", parameters);
     }

     avio_printf(pb, "</table>\n");
}

1832
static void compute_status(HTTPContext *c)
Fabrice Bellard's avatar
Fabrice Bellard committed
1833 1834
{
    HTTPContext *c1;
1835
    FFServerStream *stream;
1836
    char *p;
Fabrice Bellard's avatar
Fabrice Bellard committed
1837
    time_t ti;
1838
    int i, len;
1839
    AVIOContext *pb;
1840

1841
    if (avio_open_dyn_buf(&pb) < 0) {
1842
        /* XXX: return an error ? */
1843
        c->buffer_ptr = c->buffer;
1844 1845
        c->buffer_end = c->buffer;
        return;
1846
    }
Fabrice Bellard's avatar
Fabrice Bellard committed
1847

1848
    avio_printf(pb, "HTTP/1.0 200 OK\r\n");
1849
    avio_printf(pb, "Content-type: text/html\r\n");
1850 1851
    avio_printf(pb, "Pragma: no-cache\r\n");
    avio_printf(pb, "\r\n");
1852

1853
    avio_printf(pb, "<html><head><title>%s Status</title>\n", program_name);
1854
    if (c->stream->feed_filename[0])
1855 1856
        avio_printf(pb, "<link rel=\"shortcut icon\" href=\"%s\">\n",
                    c->stream->feed_filename);
1857 1858
    avio_printf(pb, "</head>\n<body>");
    avio_printf(pb, "<h1>%s Status</h1>\n", program_name);
Fabrice Bellard's avatar
Fabrice Bellard committed
1859
    /* format status */
1860 1861
    avio_printf(pb, "<h2>Available Streams</h2>\n");
    avio_printf(pb, "<table cellspacing=0 cellpadding=4>\n");
1862
    avio_printf(pb, "<tr><th valign=top>Path<th align=left>Served<br>Conns<th><br>bytes<th valign=top>Format<th>Bit rate<br>kbit/s<th align=left>Video<br>kbit/s<th><br>Codec<th align=left>Audio<br>kbit/s<th><br>Codec<th align=left valign=top>Feed\n");
1863
    stream = config.first_stream;
1864
    while (stream) {
1865 1866 1867
        char sfilename[1024];
        char *eosf;

1868 1869 1870 1871
        if (stream->feed == stream) {
            stream = stream->next;
            continue;
        }
1872 1873 1874 1875 1876 1877 1878 1879 1880 1881

        av_strlcpy(sfilename, stream->filename, sizeof(sfilename) - 10);
        eosf = sfilename + strlen(sfilename);
        if (eosf - sfilename >= 4) {
            if (strcmp(eosf - 4, ".asf") == 0)
                strcpy(eosf - 4, ".asx");
            else if (strcmp(eosf - 3, ".rm") == 0)
                strcpy(eosf - 3, ".ram");
            else if (stream->fmt && !strcmp(stream->fmt->name, "rtp")) {
                /* generate a sample RTSP director if
1882 1883
                 * unicast. Generate an SDP redirector if
                 * multicast */
1884 1885 1886 1887 1888 1889 1890
                eosf = strrchr(sfilename, '.');
                if (!eosf)
                    eosf = sfilename + strlen(sfilename);
                if (stream->is_multicast)
                    strcpy(eosf, ".sdp");
                else
                    strcpy(eosf, ".rtsp");
1891
            }
1892
        }
1893

1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919
        avio_printf(pb, "<tr><td><a href=\"/%s\">%s</a> ",
                    sfilename, stream->filename);
        avio_printf(pb, "<td align=right> %d <td align=right> ",
                    stream->conns_served);
        fmt_bytecount(pb, stream->bytes_served);

        switch(stream->stream_type) {
        case STREAM_TYPE_LIVE: {
            int audio_bit_rate = 0;
            int video_bit_rate = 0;
            const char *audio_codec_name = "";
            const char *video_codec_name = "";
            const char *audio_codec_name_extra = "";
            const char *video_codec_name_extra = "";

            for(i=0;i<stream->nb_streams;i++) {
                AVStream *st = stream->streams[i];
                AVCodec *codec = avcodec_find_encoder(st->codec->codec_id);

                switch(st->codec->codec_type) {
                case AVMEDIA_TYPE_AUDIO:
                    audio_bit_rate += st->codec->bit_rate;
                    if (codec) {
                        if (*audio_codec_name)
                            audio_codec_name_extra = "...";
                        audio_codec_name = codec->name;
Fabrice Bellard's avatar
Fabrice Bellard committed
1920
                    }
1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934
                    break;
                case AVMEDIA_TYPE_VIDEO:
                    video_bit_rate += st->codec->bit_rate;
                    if (codec) {
                        if (*video_codec_name)
                            video_codec_name_extra = "...";
                        video_codec_name = codec->name;
                    }
                    break;
                case AVMEDIA_TYPE_DATA:
                    video_bit_rate += st->codec->bit_rate;
                    break;
                default:
                    abort();
Fabrice Bellard's avatar
Fabrice Bellard committed
1935 1936
                }
            }
1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957

            avio_printf(pb, "<td align=center> %s <td align=right> %d "
                            "<td align=right> %d <td> %s %s <td align=right> "
                            "%d <td> %s %s",
                        stream->fmt->name, stream->bandwidth,
                        video_bit_rate / 1000, video_codec_name,
                        video_codec_name_extra, audio_bit_rate / 1000,
                        audio_codec_name, audio_codec_name_extra);

            if (stream->feed)
                avio_printf(pb, "<td>%s", stream->feed->filename);
            else
                avio_printf(pb, "<td>%s", stream->feed_filename);
            avio_printf(pb, "\n");
        }
            break;
        default:
            avio_printf(pb, "<td align=center> - <td align=right> - "
                            "<td align=right> - <td><td align=right> - <td>\n");
            break;
        }
Fabrice Bellard's avatar
Fabrice Bellard committed
1958 1959
        stream = stream->next;
    }
1960
    avio_printf(pb, "</table>\n");
1961

1962
    stream = config.first_stream;
1963
    while (stream) {
1964

1965 1966 1967 1968
        if (stream->feed != stream) {
            stream = stream->next;
            continue;
        }
1969 1970 1971

        avio_printf(pb, "<h2>Feed %s</h2>", stream->filename);
        if (stream->pid) {
1972
            avio_printf(pb, "Running as pid %"PRId64".\n", (int64_t) stream->pid);
1973

1974
#if defined(linux)
1975 1976 1977 1978 1979 1980
            {
                FILE *pid_stat;
                char ps_cmd[64];

                /* This is somewhat linux specific I guess */
                snprintf(ps_cmd, sizeof(ps_cmd),
1981 1982
                         "ps -o \"%%cpu,cputime\" --no-headers %"PRId64"",
                         (int64_t) stream->pid);
1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996

                 pid_stat = popen(ps_cmd, "r");
                 if (pid_stat) {
                     char cpuperc[10];
                     char cpuused[64];

                     if (fscanf(pid_stat, "%9s %63s", cpuperc, cpuused) == 2) {
                         avio_printf(pb, "Currently using %s%% of the cpu. "
                                         "Total time used %s.\n",
                                     cpuperc, cpuused);
                     }
                     fclose(pid_stat);
                 }
            }
1997 1998
#endif

1999 2000
            avio_printf(pb, "<p>");
        }
2001

2002
        print_stream_params(pb, stream);
2003 2004
        stream = stream->next;
    }
2005

Fabrice Bellard's avatar
Fabrice Bellard committed
2006
    /* connection status */
2007
    avio_printf(pb, "<h2>Connection Status</h2>\n");
Fabrice Bellard's avatar
Fabrice Bellard committed
2008

2009
    avio_printf(pb, "Number of connections: %d / %d<br>\n",
2010
                nb_connections, config.nb_max_connections);
Fabrice Bellard's avatar
Fabrice Bellard committed
2011

2012
    avio_printf(pb, "Bandwidth in use: %"PRIu64"k / %"PRIu64"k<br>\n",
2013
                current_bandwidth, config.max_bandwidth);
2014

2015
    avio_printf(pb, "<table>\n");
2016
    avio_printf(pb, "<tr><th>#<th>File<th>IP<th>Proto<th>State<th>Target "
2017
                    "bit/s<th>Actual bit/s<th>Bytes transferred\n");
Fabrice Bellard's avatar
Fabrice Bellard committed
2018 2019
    c1 = first_http_ctx;
    i = 0;
2020
    while (c1) {
2021 2022 2023 2024
        int bitrate;
        int j;

        bitrate = 0;
2025 2026
        if (c1->stream) {
            for (j = 0; j < c1->stream->nb_streams; j++) {
2027
                if (!c1->stream->feed)
2028
                    bitrate += c1->stream->streams[j]->codec->bit_rate;
2029 2030
                else if (c1->feed_streams[j] >= 0)
                    bitrate += c1->stream->feed->streams[c1->feed_streams[j]]->codec->bit_rate;
2031 2032 2033
            }
        }

Fabrice Bellard's avatar
Fabrice Bellard committed
2034 2035
        i++;
        p = inet_ntoa(c1->from_addr.sin_addr);
2036 2037 2038 2039 2040
        avio_printf(pb, "<tr><td><b>%d</b><td>%s%s<td>%s<td>%s<td>%s"
                        "<td align=right>",
                    i, c1->stream ? c1->stream->filename : "",
                    c1->state == HTTPSTATE_RECEIVE_DATA ? "(input)" : "", p,
                    c1->protocol, http_state[c1->state]);
2041
        fmt_bytecount(pb, bitrate);
2042
        avio_printf(pb, "<td align=right>");
2043
        fmt_bytecount(pb, compute_datarate(&c1->datarate, c1->data_count) * 8);
2044
        avio_printf(pb, "<td align=right>");
2045
        fmt_bytecount(pb, c1->data_count);
2046
        avio_printf(pb, "\n");
Fabrice Bellard's avatar
Fabrice Bellard committed
2047 2048
        c1 = c1->next;
    }
2049
    avio_printf(pb, "</table>\n");
2050

Fabrice Bellard's avatar
Fabrice Bellard committed
2051 2052 2053
    /* date */
    ti = time(NULL);
    p = ctime(&ti);
2054 2055
    avio_printf(pb, "<hr size=1 noshade>Generated at %s", p);
    avio_printf(pb, "</body>\n</html>\n");
Fabrice Bellard's avatar
Fabrice Bellard committed
2056

2057
    len = avio_close_dyn_buf(pb, &c->pb_buffer);
2058 2059
    c->buffer_ptr = c->pb_buffer;
    c->buffer_end = c->pb_buffer + len;
Fabrice Bellard's avatar
Fabrice Bellard committed
2060 2061 2062 2063 2064 2065
}

static int open_input_stream(HTTPContext *c, const char *info)
{
    char buf[128];
    char input_filename[1024];
2066
    AVFormatContext *s = NULL;
2067
    int buf_size, i, ret;
2068
    int64_t stream_pos;
Fabrice Bellard's avatar
Fabrice Bellard committed
2069 2070 2071 2072

    /* find file name */
    if (c->stream->feed) {
        strcpy(input_filename, c->stream->feed->feed_filename);
2073
        buf_size = FFM_PACKET_SIZE;
Fabrice Bellard's avatar
Fabrice Bellard committed
2074
        /* compute position (absolute time) */
2075
        if (av_find_info_tag(buf, sizeof(buf), "date", info)) {
2076 2077
            if ((ret = av_parse_time(&stream_pos, buf, 0)) < 0) {
                http_log("Invalid date specification '%s' for stream\n", buf);
2078
                return ret;
2079
            }
2080
        } else if (av_find_info_tag(buf, sizeof(buf), "buffer", info)) {
2081
            int prebuffer = strtol(buf, 0, 10);
2082
            stream_pos = av_gettime() - prebuffer * (int64_t)1000000;
2083
        } else
2084
            stream_pos = av_gettime() - c->stream->prebuffer * (int64_t)1000;
Fabrice Bellard's avatar
Fabrice Bellard committed
2085 2086
    } else {
        strcpy(input_filename, c->stream->feed_filename);
2087
        buf_size = 0;
Fabrice Bellard's avatar
Fabrice Bellard committed
2088
        /* compute position (relative time) */
2089
        if (av_find_info_tag(buf, sizeof(buf), "date", info)) {
2090 2091
            if ((ret = av_parse_time(&stream_pos, buf, 1)) < 0) {
                http_log("Invalid date specification '%s' for stream\n", buf);
2092
                return ret;
2093
            }
2094
        } else
Fabrice Bellard's avatar
Fabrice Bellard committed
2095 2096
            stream_pos = 0;
    }
2097 2098 2099 2100
    if (!input_filename[0]) {
        http_log("No filename was specified for stream\n");
        return AVERROR(EINVAL);
    }
Fabrice Bellard's avatar
Fabrice Bellard committed
2101 2102

    /* open stream */
2103 2104 2105
    ret = avformat_open_input(&s, input_filename, c->stream->ifmt,
                              &c->stream->in_opts);
    if (ret < 0) {
2106 2107
        http_log("Could not open input '%s': %s\n",
                 input_filename, av_err2str(ret));
2108
        return ret;
2109
    }
2110 2111

    /* set buffer size */
2112 2113 2114 2115 2116 2117 2118
    if (buf_size > 0) {
        ret = ffio_set_buf_size(s->pb, buf_size);
        if (ret < 0) {
            http_log("Failed to set buffer size\n");
            return ret;
        }
    }
2119

2120
    s->flags |= AVFMT_FLAG_GENPTS;
Fabrice Bellard's avatar
Fabrice Bellard committed
2121
    c->fmt_in = s;
2122 2123 2124
    if (strcmp(s->iformat->name, "ffm") &&
        (ret = avformat_find_stream_info(c->fmt_in, NULL)) < 0) {
        http_log("Could not find stream info for input '%s'\n", input_filename);
2125
        avformat_close_input(&s);
2126
        return ret;
2127
    }
2128

2129 2130
    /* choose stream as clock source (we favor the video stream if
     * present) for packet sending */
2131 2132
    c->pts_stream_index = 0;
    for(i=0;i<c->stream->nb_streams;i++) {
2133
        if (c->pts_stream_index == 0 &&
2134
            c->stream->streams[i]->codec->codec_type == AVMEDIA_TYPE_VIDEO) {
2135 2136 2137
            c->pts_stream_index = i;
        }
    }
Fabrice Bellard's avatar
Fabrice Bellard committed
2138

2139
    if (c->fmt_in->iformat->read_seek)
2140
        av_seek_frame(c->fmt_in, -1, stream_pos, 0);
2141 2142 2143
    /* set the start time (needed for maxtime and RTP packet timing) */
    c->start_time = cur_time;
    c->first_pts = AV_NOPTS_VALUE;
Fabrice Bellard's avatar
Fabrice Bellard committed
2144 2145 2146
    return 0;
}

2147 2148
/* return the server clock (in us) */
static int64_t get_server_clock(HTTPContext *c)
2149
{
2150
    /* compute current pts value from system time */
2151
    return (cur_time - c->start_time) * 1000;
2152 2153
}

2154
/* return the estimated time (in us) at which the current packet must be sent */
2155
static int64_t get_packet_send_clock(HTTPContext *c)
2156
{
2157
    int bytes_left, bytes_sent, frame_bytes;
2158

2159
    frame_bytes = c->cur_frame_bytes;
2160
    if (frame_bytes <= 0)
2161
        return c->cur_pts;
2162 2163 2164 2165

    bytes_left = c->buffer_end - c->buffer_ptr;
    bytes_sent = frame_bytes - bytes_left;
    return c->cur_pts + (c->cur_frame_duration * bytes_sent) / frame_bytes;
2166 2167 2168 2169 2170 2171 2172 2173
}


static int http_prepare_data(HTTPContext *c)
{
    int i, len, ret;
    AVFormatContext *ctx;

2174
    av_freep(&c->pb_buffer);
2175 2176
    switch(c->state) {
    case HTTPSTATE_SEND_DATA_HEADER:
2177
        ctx = avformat_alloc_context();
2178 2179
        if (!ctx)
            return AVERROR(ENOMEM);
2180 2181
        c->fmt_ctx = *ctx;
        av_freep(&ctx);
2182
        av_dict_copy(&(c->fmt_ctx.metadata), c->stream->metadata, 0);
2183 2184
        c->fmt_ctx.streams = av_mallocz_array(c->stream->nb_streams,
                                              sizeof(AVStream *));
2185 2186
        if (!c->fmt_ctx.streams)
            return AVERROR(ENOMEM);
2187

2188
        for(i=0;i<c->stream->nb_streams;i++) {
2189
            AVStream *src;
2190
            c->fmt_ctx.streams[i] = av_mallocz(sizeof(AVStream));
2191

2192 2193
            /* if file or feed, then just take streams from FFServerStream
             * struct */
2194
            if (!c->stream->feed ||
2195
                c->stream->feed == c->stream)
2196
                src = c->stream->streams[i];
2197
            else
2198 2199
                src = c->stream->feed->streams[c->stream->feed_streams[i]];

2200 2201
            *(c->fmt_ctx.streams[i]) = *src;
            c->fmt_ctx.streams[i]->priv_data = 0;
2202 2203
            /* XXX: should be done in AVStream, not in codec */
            c->fmt_ctx.streams[i]->codec->frame_number = 0;
2204
        }
2205 2206 2207 2208
        /* set output format parameters */
        c->fmt_ctx.oformat = c->stream->fmt;
        c->fmt_ctx.nb_streams = c->stream->nb_streams;

2209 2210 2211
        c->got_key_frame = 0;

        /* prepare header and save header data in a stream */
2212
        if (avio_open_dyn_buf(&c->fmt_ctx.pb) < 0) {
2213 2214 2215
            /* XXX: potential leak */
            return -1;
        }
2216
        c->fmt_ctx.pb->seekable = 0;
2217

2218
        /*
2219
         * HACK to avoid MPEG-PS muxer to spit many underflow errors
2220
         * Default value from FFmpeg
2221
         * Try to set it using configuration option
2222 2223 2224
         */
        c->fmt_ctx.max_delay = (int)(0.7*AV_TIME_BASE);

2225 2226 2227 2228
        if ((ret = avformat_write_header(&c->fmt_ctx, NULL)) < 0) {
            http_log("Error writing output header for stream '%s': %s\n",
                     c->stream->filename, av_err2str(ret));
            return ret;
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2229
        }
2230
        av_dict_free(&c->fmt_ctx.metadata);
2231

2232
        len = avio_close_dyn_buf(c->fmt_ctx.pb, &c->pb_buffer);
2233 2234 2235 2236
        c->buffer_ptr = c->pb_buffer;
        c->buffer_end = c->pb_buffer + len;

        c->state = HTTPSTATE_SEND_DATA;
Fabrice Bellard's avatar
Fabrice Bellard committed
2237 2238 2239 2240
        c->last_packet_sent = 0;
        break;
    case HTTPSTATE_SEND_DATA:
        /* find a new packet */
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253
        /* read a packet from the input stream */
        if (c->stream->feed)
            ffm_set_write_index(c->fmt_in,
                                c->stream->feed->feed_write_index,
                                c->stream->feed->feed_size);

        if (c->stream->max_time &&
            c->stream->max_time + c->start_time - cur_time < 0)
            /* We have timed out */
            c->state = HTTPSTATE_SEND_DATA_TRAILER;
        else {
            AVPacket pkt;
        redo:
2254 2255 2256
            ret = av_read_frame(c->fmt_in, &pkt);
            if (ret < 0) {
                if (c->stream->feed) {
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2257
                    /* if coming from feed, it means we reached the end of the
2258
                     * ffm file, so must wait for more data */
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2259 2260
                    c->state = HTTPSTATE_WAIT_FEED;
                    return 1; /* state changed */
2261 2262
                }
                if (ret == AVERROR(EAGAIN)) {
2263 2264
                    /* input not ready, come back later */
                    return 0;
2265 2266 2267 2268 2269 2270
                }
                if (c->stream->loop) {
                    avformat_close_input(&c->fmt_in);
                    if (open_input_stream(c, "") < 0)
                        goto no_loop;
                    goto redo;
2271
                } else {
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2272
                    no_loop:
2273
                        /* must send trailer now because EOF or error */
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2274 2275 2276
                        c->state = HTTPSTATE_SEND_DATA_TRAILER;
                }
            } else {
2277
                int source_index = pkt.stream_index;
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2278
                /* update first pts if needed */
2279
                if (c->first_pts == AV_NOPTS_VALUE && pkt.dts != AV_NOPTS_VALUE) {
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2280 2281 2282 2283 2284 2285 2286 2287
                    c->first_pts = av_rescale_q(pkt.dts, c->fmt_in->streams[pkt.stream_index]->time_base, AV_TIME_BASE_Q);
                    c->start_time = cur_time;
                }
                /* send it to the appropriate stream */
                if (c->stream->feed) {
                    /* if coming from a feed, select the right stream */
                    if (c->switch_pending) {
                        c->switch_pending = 0;
2288
                        for(i=0;i<c->stream->nb_streams;i++) {
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2289
                            if (c->switch_feed_streams[i] == pkt.stream_index)
2290
                                if (pkt.flags & AV_PKT_FLAG_KEY)
Reinhard Tartler's avatar
Reinhard Tartler committed
2291
                                    c->switch_feed_streams[i] = -1;
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2292 2293
                            if (c->switch_feed_streams[i] >= 0)
                                c->switch_pending = 1;
2294
                        }
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2295 2296
                    }
                    for(i=0;i<c->stream->nb_streams;i++) {
2297
                        if (c->stream->feed_streams[i] == pkt.stream_index) {
2298
                            AVStream *st = c->fmt_in->streams[source_index];
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2299
                            pkt.stream_index = i;
2300
                            if (pkt.flags & AV_PKT_FLAG_KEY &&
2301
                                (st->codec->codec_type == AVMEDIA_TYPE_VIDEO ||
2302
                                 c->stream->nb_streams == 1))
2303 2304
                                c->got_key_frame = 1;
                            if (!c->stream->send_on_key || c->got_key_frame)
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2305 2306 2307 2308 2309
                                goto send_it;
                        }
                    }
                } else {
                    AVCodecContext *codec;
2310 2311 2312
                    AVStream *ist, *ost;
                send_it:
                    ist = c->fmt_in->streams[source_index];
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2313
                    /* specific handling for RTP: we use several
2314 2315
                     * output streams (one for each RTP connection).
                     * XXX: need more abstract handling */
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2316 2317
                    if (c->is_packetized) {
                        /* compute send time and duration */
2318 2319 2320 2321
                        if (pkt.dts != AV_NOPTS_VALUE) {
                            c->cur_pts = av_rescale_q(pkt.dts, ist->time_base, AV_TIME_BASE_Q);
                            c->cur_pts -= c->first_pts;
                        }
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2322
                        c->cur_frame_duration = av_rescale_q(pkt.duration, ist->time_base, AV_TIME_BASE_Q);
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2323 2324 2325 2326
                        /* find RTP context */
                        c->packet_stream_index = pkt.stream_index;
                        ctx = c->rtp_ctx[c->packet_stream_index];
                        if(!ctx) {
2327
                            av_packet_unref(&pkt);
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2328
                            break;
2329
                        }
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2330 2331 2332 2333 2334 2335
                        codec = ctx->streams[0]->codec;
                        /* only one stream per RTP connection */
                        pkt.stream_index = 0;
                    } else {
                        ctx = &c->fmt_ctx;
                        /* Fudge here */
2336
                        codec = ctx->streams[pkt.stream_index]->codec;
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2337 2338 2339 2340
                    }

                    if (c->is_packetized) {
                        int max_packet_size;
2341
                        if (c->rtp_protocol == RTSP_LOWER_TRANSPORT_TCP)
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2342 2343
                            max_packet_size = RTSP_TCP_MAX_PACKET_SIZE;
                        else
2344
                            max_packet_size = c->rtp_handles[c->packet_stream_index]->max_packet_size;
2345 2346
                        ret = ffio_open_dyn_packet_buf(&ctx->pb,
                                                       max_packet_size);
2347
                    } else
2348
                        ret = avio_open_dyn_buf(&ctx->pb);
2349

Baptiste Coudurier's avatar
Baptiste Coudurier committed
2350 2351 2352 2353
                    if (ret < 0) {
                        /* XXX: potential leak */
                        return -1;
                    }
2354 2355
                    ost = ctx->streams[pkt.stream_index];

2356
                    ctx->pb->seekable = 0;
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2357
                    if (pkt.dts != AV_NOPTS_VALUE)
2358 2359
                        pkt.dts = av_rescale_q(pkt.dts, ist->time_base,
                                               ost->time_base);
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2360
                    if (pkt.pts != AV_NOPTS_VALUE)
2361 2362 2363 2364
                        pkt.pts = av_rescale_q(pkt.pts, ist->time_base,
                                               ost->time_base);
                    pkt.duration = av_rescale_q(pkt.duration, ist->time_base,
                                                ost->time_base);
2365 2366 2367
                    if ((ret = av_write_frame(ctx, &pkt)) < 0) {
                        http_log("Error writing frame to output for stream '%s': %s\n",
                                 c->stream->filename, av_err2str(ret));
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2368
                        c->state = HTTPSTATE_SEND_DATA_TRAILER;
2369
                    }
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2370

2371
                    av_freep(&c->pb_buffer);
2372
                    len = avio_close_dyn_buf(ctx->pb, &c->pb_buffer);
2373
                    ctx->pb = NULL;
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2374 2375 2376 2377 2378 2379
                    c->cur_frame_bytes = len;
                    c->buffer_ptr = c->pb_buffer;
                    c->buffer_end = c->pb_buffer + len;

                    codec->frame_number++;
                    if (len == 0) {
2380
                        av_packet_unref(&pkt);
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2381
                        goto redo;
2382
                    }
Fabrice Bellard's avatar
Fabrice Bellard committed
2383
                }
2384
                av_packet_unref(&pkt);
Fabrice Bellard's avatar
Fabrice Bellard committed
2385
            }
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2386
        }
Fabrice Bellard's avatar
Fabrice Bellard committed
2387 2388 2389 2390
        break;
    default:
    case HTTPSTATE_SEND_DATA_TRAILER:
        /* last packet test ? */
2391
        if (c->last_packet_sent || c->is_packetized)
Fabrice Bellard's avatar
Fabrice Bellard committed
2392
            return -1;
2393
        ctx = &c->fmt_ctx;
Fabrice Bellard's avatar
Fabrice Bellard committed
2394
        /* prepare header */
2395
        if (avio_open_dyn_buf(&ctx->pb) < 0) {
2396 2397 2398
            /* XXX: potential leak */
            return -1;
        }
2399
        c->fmt_ctx.pb->seekable = 0;
2400
        av_write_trailer(ctx);
2401
        len = avio_close_dyn_buf(ctx->pb, &c->pb_buffer);
2402 2403 2404
        c->buffer_ptr = c->pb_buffer;
        c->buffer_end = c->pb_buffer + len;

Fabrice Bellard's avatar
Fabrice Bellard committed
2405 2406 2407 2408 2409 2410 2411
        c->last_packet_sent = 1;
        break;
    }
    return 0;
}

/* should convert the format at the same time */
2412
/* send data starting at c->buffer_ptr to the output connection
2413 2414
 * (either UDP or TCP)
 */
2415
static int http_send_data(HTTPContext *c)
Fabrice Bellard's avatar
Fabrice Bellard committed
2416
{
2417
    int len, ret;
Fabrice Bellard's avatar
Fabrice Bellard committed
2418

2419 2420 2421 2422 2423
    for(;;) {
        if (c->buffer_ptr >= c->buffer_end) {
            ret = http_prepare_data(c);
            if (ret < 0)
                return -1;
2424
            else if (ret)
2425 2426
                /* state change requested */
                break;
2427
        } else {
2428 2429 2430 2431 2432 2433 2434
            if (c->is_packetized) {
                /* RTP data output */
                len = c->buffer_end - c->buffer_ptr;
                if (len < 4) {
                    /* fail safe - should never happen */
                fail1:
                    c->buffer_ptr = c->buffer_end;
2435 2436
                    return 0;
                }
2437 2438 2439 2440 2441 2442
                len = (c->buffer_ptr[0] << 24) |
                    (c->buffer_ptr[1] << 16) |
                    (c->buffer_ptr[2] << 8) |
                    (c->buffer_ptr[3]);
                if (len > (c->buffer_end - c->buffer_ptr))
                    goto fail1;
2443 2444 2445 2446 2447 2448 2449 2450 2451 2452
                if ((get_packet_send_clock(c) - get_server_clock(c)) > 0) {
                    /* nothing to send yet: we can wait */
                    return 0;
                }

                c->data_count += len;
                update_datarate(&c->datarate, c->data_count);
                if (c->stream)
                    c->stream->bytes_served += len;

2453
                if (c->rtp_protocol == RTSP_LOWER_TRANSPORT_TCP) {
2454
                    /* RTP packets are sent inside the RTSP TCP connection */
2455
                    AVIOContext *pb;
2456 2457 2458
                    int interleaved_index, size;
                    uint8_t header[4];
                    HTTPContext *rtsp_c;
2459

2460 2461 2462 2463 2464
                    rtsp_c = c->rtsp_c;
                    /* if no RTSP connection left, error */
                    if (!rtsp_c)
                        return -1;
                    /* if already sending something, then wait. */
2465
                    if (rtsp_c->state != RTSPSTATE_WAIT_REQUEST)
2466
                        break;
2467
                    if (avio_open_dyn_buf(&pb) < 0)
2468 2469 2470 2471 2472 2473 2474 2475 2476 2477
                        goto fail1;
                    interleaved_index = c->packet_stream_index * 2;
                    /* RTCP packets are sent at odd indexes */
                    if (c->buffer_ptr[1] == 200)
                        interleaved_index++;
                    /* write RTSP TCP header */
                    header[0] = '$';
                    header[1] = interleaved_index;
                    header[2] = len >> 8;
                    header[3] = len;
2478
                    avio_write(pb, header, 4);
2479 2480
                    /* write RTP packet data */
                    c->buffer_ptr += 4;
2481
                    avio_write(pb, c->buffer_ptr, len);
2482
                    size = avio_close_dyn_buf(pb, &c->packet_buffer);
2483 2484 2485
                    /* prepare asynchronous TCP sending */
                    rtsp_c->packet_buffer_ptr = c->packet_buffer;
                    rtsp_c->packet_buffer_end = c->packet_buffer + size;
2486
                    c->buffer_ptr += len;
2487

2488
                    /* send everything we can NOW */
2489
                    len = send(rtsp_c->fd, rtsp_c->packet_buffer_ptr,
2490
                               rtsp_c->packet_buffer_end - rtsp_c->packet_buffer_ptr, 0);
2491
                    if (len > 0)
2492 2493 2494
                        rtsp_c->packet_buffer_ptr += len;
                    if (rtsp_c->packet_buffer_ptr < rtsp_c->packet_buffer_end) {
                        /* if we could not send all the data, we will
2495 2496
                         * send it later, so a new state is needed to
                         * "lock" the RTSP TCP connection */
2497 2498
                        rtsp_c->state = RTSPSTATE_SEND_PACKET;
                        break;
2499
                    } else
2500 2501 2502 2503
                        /* all data has been sent */
                        av_freep(&c->packet_buffer);
                } else {
                    /* send RTP packet directly in UDP */
2504
                    c->buffer_ptr += 4;
2505 2506
                    ffurl_write(c->rtp_handles[c->packet_stream_index],
                                c->buffer_ptr, len);
2507
                    c->buffer_ptr += len;
2508 2509
                    /* here we continue as we can send several packets
                     * per 10 ms slot */
2510 2511 2512
                }
            } else {
                /* TCP data output */
2513 2514
                len = send(c->fd, c->buffer_ptr,
                           c->buffer_end - c->buffer_ptr, 0);
2515
                if (len < 0) {
2516 2517
                    if (ff_neterrno() != AVERROR(EAGAIN) &&
                        ff_neterrno() != AVERROR(EINTR))
2518 2519
                        /* error : close connection */
                        return -1;
2520
                    else
2521
                        return 0;
2522 2523
                }
                c->buffer_ptr += len;
2524

2525 2526 2527 2528 2529
                c->data_count += len;
                update_datarate(&c->datarate, c->data_count);
                if (c->stream)
                    c->stream->bytes_served += len;
                break;
2530
            }
Fabrice Bellard's avatar
Fabrice Bellard committed
2531
        }
2532
    } /* for(;;) */
Fabrice Bellard's avatar
Fabrice Bellard committed
2533 2534 2535 2536 2537 2538
    return 0;
}

static int http_start_receive_data(HTTPContext *c)
{
    int fd;
2539
    int ret;
Fabrice Bellard's avatar
Fabrice Bellard committed
2540

2541
    if (c->stream->feed_opened) {
2542 2543
        http_log("Stream feed '%s' was not opened\n",
                 c->stream->feed_filename);
2544 2545
        return AVERROR(EINVAL);
    }
Fabrice Bellard's avatar
Fabrice Bellard committed
2546

2547
    /* Don't permit writing to this one */
2548
    if (c->stream->readonly) {
2549 2550
        http_log("Cannot write to read-only file '%s'\n",
                 c->stream->feed_filename);
2551 2552
        return AVERROR(EINVAL);
    }
2553

Fabrice Bellard's avatar
Fabrice Bellard committed
2554 2555
    /* open feed */
    fd = open(c->stream->feed_filename, O_RDWR);
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2556
    if (fd < 0) {
2557
        ret = AVERROR(errno);
2558
        http_log("Could not open feed file '%s': %s\n",
2559 2560
                 c->stream->feed_filename, strerror(errno));
        return ret;
Baptiste Coudurier's avatar
Baptiste Coudurier committed
2561
    }
Fabrice Bellard's avatar
Fabrice Bellard committed
2562
    c->feed_fd = fd;
2563

2564 2565 2566 2567
    if (c->stream->truncate) {
        /* truncate feed file */
        ffm_write_write_index(c->feed_fd, FFM_PACKET_SIZE);
        http_log("Truncating feed file '%s'\n", c->stream->feed_filename);
2568
        if (ftruncate(c->feed_fd, FFM_PACKET_SIZE) < 0) {
2569 2570 2571 2572
            ret = AVERROR(errno);
            http_log("Error truncating feed file '%s': %s\n",
                     c->stream->feed_filename, strerror(errno));
            return ret;
2573
        }
2574
    } else {
2575 2576 2577 2578 2579
        ret = ffm_read_write_index(fd);
        if (ret < 0) {
            http_log("Error reading write index from feed file '%s': %s\n",
                     c->stream->feed_filename, strerror(errno));
            return ret;
2580
        }
2581
        c->stream->feed_write_index = ret;
2582 2583
    }

2584 2585
    c->stream->feed_write_index = FFMAX(ffm_read_write_index(fd),
                                        FFM_PACKET_SIZE);
Fabrice Bellard's avatar
Fabrice Bellard committed
2586 2587 2588 2589 2590 2591 2592
    c->stream->feed_size = lseek(fd, 0, SEEK_END);
    lseek(fd, 0, SEEK_SET);

    /* init buffer input */
    c->buffer_ptr = c->buffer;
    c->buffer_end = c->buffer + FFM_PACKET_SIZE;
    c->stream->feed_opened = 1;
2593
    c->chunked_encoding = !!av_stristr(c->buffer, "Transfer-Encoding: chunked");
Fabrice Bellard's avatar
Fabrice Bellard committed
2594 2595
    return 0;
}
2596

Fabrice Bellard's avatar
Fabrice Bellard committed
2597 2598 2599
static int http_receive_data(HTTPContext *c)
{
    HTTPContext *c1;
2600
    int len, loop_run = 0;
Fabrice Bellard's avatar
Fabrice Bellard committed
2601

2602 2603 2604 2605 2606 2607
    while (c->chunked_encoding && !c->chunk_size &&
           c->buffer_end > c->buffer_ptr) {
        /* read chunk header, if present */
        len = recv(c->fd, c->buffer_ptr, 1, 0);

        if (len < 0) {
2608 2609
            if (ff_neterrno() != AVERROR(EAGAIN) &&
                ff_neterrno() != AVERROR(EINTR))
2610 2611
                /* error : close connection */
                goto fail;
2612
            return 0;
2613 2614 2615 2616 2617 2618 2619 2620 2621 2622
        } else if (len == 0) {
            /* end of connection : close it */
            goto fail;
        } else if (c->buffer_ptr - c->buffer >= 2 &&
                   !memcmp(c->buffer_ptr - 1, "\r\n", 2)) {
            c->chunk_size = strtol(c->buffer, 0, 16);
            if (c->chunk_size == 0) // end of stream
                goto fail;
            c->buffer_ptr = c->buffer;
            break;
2623
        } else if (++loop_run > 10)
2624 2625
            /* no chunk header, abort */
            goto fail;
2626
        else
2627 2628
            c->buffer_ptr++;
    }
2629

2630 2631 2632
    if (c->buffer_end > c->buffer_ptr) {
        len = recv(c->fd, c->buffer_ptr,
                   FFMIN(c->chunk_size, c->buffer_end - c->buffer_ptr), 0);
2633
        if (len < 0) {
2634 2635
            if (ff_neterrno() != AVERROR(EAGAIN) &&
                ff_neterrno() != AVERROR(EINTR))
2636 2637
                /* error : close connection */
                goto fail;
2638
        } else if (len == 0)
2639 2640
            /* end of connection : close it */
            goto fail;
2641
        else {
2642
            c->chunk_size -= len;
2643 2644
            c->buffer_ptr += len;
            c->data_count += len;
2645
            update_datarate(&c->datarate, c->data_count);
2646 2647 2648
        }
    }

2649 2650 2651 2652 2653 2654 2655 2656
    if (c->buffer_ptr - c->buffer >= 2 && c->data_count > FFM_PACKET_SIZE) {
        if (c->buffer[0] != 'f' ||
            c->buffer[1] != 'm') {
            http_log("Feed stream has become desynchronized -- disconnecting\n");
            goto fail;
        }
    }

Fabrice Bellard's avatar
Fabrice Bellard committed
2657
    if (c->buffer_ptr >= c->buffer_end) {
2658
        FFServerStream *feed = c->stream;
Fabrice Bellard's avatar
Fabrice Bellard committed
2659
        /* a packet has been received : write it in the store, except
2660
         * if header */
Fabrice Bellard's avatar
Fabrice Bellard committed
2661
        if (c->data_count > FFM_PACKET_SIZE) {
2662 2663 2664 2665 2666
            /* XXX: use llseek or url_seek
             * XXX: Should probably fail? */
            if (lseek(c->feed_fd, feed->feed_write_index, SEEK_SET) == -1)
                http_log("Seek to %"PRId64" failed\n", feed->feed_write_index);

Baptiste Coudurier's avatar
Baptiste Coudurier committed
2667 2668 2669 2670
            if (write(c->feed_fd, c->buffer, FFM_PACKET_SIZE) < 0) {
                http_log("Error writing to feed file: %s\n", strerror(errno));
                goto fail;
            }
2671

Fabrice Bellard's avatar
Fabrice Bellard committed
2672 2673 2674 2675 2676 2677
            feed->feed_write_index += FFM_PACKET_SIZE;
            /* update file size */
            if (feed->feed_write_index > c->stream->feed_size)
                feed->feed_size = feed->feed_write_index;

            /* handle wrap around if max file size reached */
2678 2679
            if (c->stream->feed_max_size &&
                feed->feed_write_index >= c->stream->feed_max_size)
Fabrice Bellard's avatar
Fabrice Bellard committed
2680 2681 2682
                feed->feed_write_index = FFM_PACKET_SIZE;

            /* write index */
2683
            if (ffm_write_write_index(c->feed_fd, feed->feed_write_index) < 0) {
2684 2685
                http_log("Error writing index to feed file: %s\n",
                         strerror(errno));
2686 2687
                goto fail;
            }
Fabrice Bellard's avatar
Fabrice Bellard committed
2688 2689

            /* wake up any waiting connections */
2690
            for(c1 = first_http_ctx; c1; c1 = c1->next) {
2691
                if (c1->state == HTTPSTATE_WAIT_FEED &&
2692
                    c1->stream->feed == c->stream->feed)
Fabrice Bellard's avatar
Fabrice Bellard committed
2693 2694
                    c1->state = HTTPSTATE_SEND_DATA;
            }
2695 2696
        } else {
            /* We have a header in our hands that contains useful data */
2697
            AVFormatContext *s = avformat_alloc_context();
2698
            AVIOContext *pb;
2699
            AVInputFormat *fmt_in;
2700 2701
            int i;

2702 2703 2704
            if (!s)
                goto fail;

2705 2706 2707 2708 2709
            /* use feed output format name to find corresponding input format */
            fmt_in = av_find_input_format(feed->fmt->name);
            if (!fmt_in)
                goto fail;

2710 2711
            pb = avio_alloc_context(c->buffer, c->buffer_end - c->buffer,
                                    0, NULL, NULL, NULL, NULL);
2712 2713 2714
            if (!pb)
                goto fail;

2715
            pb->seekable = 0;
2716

2717 2718
            s->pb = pb;
            if (avformat_open_input(&s, c->stream->feed_filename, fmt_in, NULL) < 0) {
2719
                av_freep(&pb);
2720 2721
                goto fail;
            }
2722 2723

            /* Now we have the actual streams */
2724
            if (s->nb_streams != feed->nb_streams) {
2725
                avformat_close_input(&s);
2726
                av_freep(&pb);
2727 2728
                http_log("Feed '%s' stream number does not match registered feed\n",
                         c->stream->feed_filename);
2729 2730
                goto fail;
            }
2731

2732 2733 2734
            for (i = 0; i < s->nb_streams; i++) {
                AVStream *fst = feed->streams[i];
                AVStream *st = s->streams[i];
2735
                avcodec_copy_context(fst->codec, st->codec);
2736
            }
2737

2738
            avformat_close_input(&s);
2739
            av_freep(&pb);
Fabrice Bellard's avatar
Fabrice Bellard committed
2740 2741 2742 2743 2744 2745 2746 2747
        }
        c->buffer_ptr = c->buffer;
    }

    return 0;
 fail:
    c->stream->feed_opened = 0;
    close(c->feed_fd);
2748
    /* wake up any waiting connections to stop waiting for feed */
2749
    for(c1 = first_http_ctx; c1; c1 = c1->next) {
2750 2751 2752 2753
        if (c1->state == HTTPSTATE_WAIT_FEED &&
            c1->stream->feed == c->stream->feed)
            c1->state = HTTPSTATE_SEND_DATA_TRAILER;
    }
Fabrice Bellard's avatar
Fabrice Bellard committed
2754 2755 2756
    return -1;
}

2757 2758 2759 2760 2761 2762 2763
/********************************************************************/
/* RTSP handling */

static void rtsp_reply_header(HTTPContext *c, enum RTSPStatusCode error_number)
{
    const char *str;
    time_t ti;
2764
    struct tm *tm;
2765 2766
    char buf2[32];

2767 2768
    str = RTSP_STATUS_CODE2STRING(error_number);
    if (!str)
2769
        str = "Unknown Error";
2770

2771 2772
    avio_printf(c->pb, "RTSP/1.0 %d %s\r\n", error_number, str);
    avio_printf(c->pb, "CSeq: %d\r\n", c->seq);
2773 2774 2775

    /* output GMT time */
    ti = time(NULL);
2776 2777
    tm = gmtime(&ti);
    strftime(buf2, sizeof(buf2), "%a, %d %b %Y %H:%M:%S", tm);
2778
    avio_printf(c->pb, "Date: %s GMT\r\n", buf2);
2779 2780 2781 2782 2783
}

static void rtsp_reply_error(HTTPContext *c, enum RTSPStatusCode error_number)
{
    rtsp_reply_header(c, error_number);
2784
    avio_printf(c->pb, "\r\n");
2785 2786 2787 2788 2789 2790 2791 2792 2793 2794
}

static int rtsp_parse_request(HTTPContext *c)
{
    const char *p, *p1, *p2;
    char cmd[32];
    char url[1024];
    char protocol[32];
    char line[1024];
    int len;
2795
    RTSPMessageHeader header1 = { 0 }, *header = &header1;
2796

2797 2798
    c->buffer_ptr[0] = '\0';
    p = c->buffer;
2799

2800 2801 2802 2803
    get_word(cmd, sizeof(cmd), &p);
    get_word(url, sizeof(url), &p);
    get_word(protocol, sizeof(protocol), &p);

2804 2805 2806
    av_strlcpy(c->method, cmd, sizeof(c->method));
    av_strlcpy(c->url, url, sizeof(c->url));
    av_strlcpy(c->protocol, protocol, sizeof(c->protocol));
2807

2808
    if (avio_open_dyn_buf(&c->pb) < 0) {
2809 2810 2811 2812 2813 2814
        /* XXX: cannot do more */
        c->pb = NULL; /* safety */
        return -1;
    }

    /* check version name */
2815
    if (strcmp(protocol, "RTSP/1.0")) {
2816 2817 2818 2819 2820 2821 2822 2823 2824 2825 2826
        rtsp_reply_error(c, RTSP_STATUS_VERSION);
        goto the_end;
    }

    /* parse each header line */
    /* skip to next line */
    while (*p != '\n' && *p != '\0')
        p++;
    if (*p == '\n')
        p++;
    while (*p != '\0') {
2827
        p1 = memchr(p, '\n', (char *)c->buffer_ptr - p);
2828 2829 2830 2831 2832 2833 2834 2835 2836 2837 2838 2839 2840
        if (!p1)
            break;
        p2 = p1;
        if (p2 > p && p2[-1] == '\r')
            p2--;
        /* skip empty line */
        if (p2 == p)
            break;
        len = p2 - p;
        if (len > sizeof(line) - 1)
            len = sizeof(line) - 1;
        memcpy(line, p, len);
        line[len] = '\0';
2841
        ff_rtsp_parse_line(NULL, header, line, NULL, NULL);
2842 2843 2844 2845 2846 2847
        p = p1 + 1;
    }

    /* handle sequence number */
    c->seq = header->seq;

2848
    if (!strcmp(cmd, "DESCRIBE"))
2849
        rtsp_cmd_describe(c, url);
2850
    else if (!strcmp(cmd, "OPTIONS"))
2851
        rtsp_cmd_options(c, url);
2852
    else if (!strcmp(cmd, "SETUP"))
2853
        rtsp_cmd_setup(c, url, header);
2854
    else if (!strcmp(cmd, "PLAY"))
2855
        rtsp_cmd_play(c, url, header);
2856
    else if (!strcmp(cmd, "PAUSE"))
2857
        rtsp_cmd_interrupt(c, url, header, 1);
2858
    else if (!strcmp(cmd, "TEARDOWN"))
2859
        rtsp_cmd_interrupt(c, url, header, 0);
2860
    else
2861
        rtsp_reply_error(c, RTSP_STATUS_METHOD);
2862

2863
 the_end:
2864
    len = avio_close_dyn_buf(c->pb, &c->pb_buffer);
2865
    c->pb = NULL; /* safety */
2866
    if (len < 0)
2867 2868
        /* XXX: cannot do more */
        return -1;
2869

2870 2871 2872 2873 2874 2875
    c->buffer_ptr = c->pb_buffer;
    c->buffer_end = c->pb_buffer + len;
    c->state = RTSPSTATE_SEND_REPLY;
    return 0;
}

2876
static int prepare_sdp_description(FFServerStream *stream, uint8_t **pbuffer,
2877
                                   struct in_addr my_ip)
2878
{
2879
    AVFormatContext *avc;
2880
    AVStream *avs = NULL;
2881
    AVOutputFormat *rtp_format = av_guess_format("rtp", NULL, NULL);
2882
    AVDictionaryEntry *entry = av_dict_get(stream->metadata, "title", NULL, 0);
2883
    int i;
2884

2885 2886
    *pbuffer = NULL;

2887
    avc =  avformat_alloc_context();
2888
    if (!avc || !rtp_format)
2889
        return -1;
2890

2891
    avc->oformat = rtp_format;
2892
    av_dict_set(&avc->metadata, "title",
2893
                entry ? entry->value : "No Title", 0);
2894 2895 2896 2897 2898
    avc->nb_streams = stream->nb_streams;
    if (stream->is_multicast) {
        snprintf(avc->filename, 1024, "rtp://%s:%d?multicast=1?ttl=%d",
                 inet_ntoa(stream->multicast_ip),
                 stream->multicast_port, stream->multicast_ttl);
2899
    } else
2900
        snprintf(avc->filename, 1024, "rtp://0.0.0.0");
2901

2902 2903
    avc->streams = av_malloc_array(avc->nb_streams, sizeof(*avc->streams));
    if (!avc->streams)
2904
        goto sdp_done;
2905 2906 2907

    avs = av_malloc_array(avc->nb_streams, sizeof(*avs));
    if (!avs)
2908 2909
        goto sdp_done;

2910
    for(i = 0; i < stream->nb_streams; i++) {
2911 2912
        avc->streams[i] = &avs[i];
        avc->streams[i]->codec = stream->streams[i]->codec;
2913
    }
2914
    *pbuffer = av_mallocz(2048);
2915 2916
    if (!*pbuffer)
        goto sdp_done;
2917
    av_sdp_create(&avc, 1, *pbuffer, 2048);
2918 2919

 sdp_done:
2920
    av_freep(&avc->streams);
2921
    av_dict_free(&avc->metadata);
2922
    av_free(avc);
2923
    av_free(avs);
2924

2925
    return *pbuffer ? strlen(*pbuffer) : AVERROR(ENOMEM);
2926 2927
}

2928 2929
static void rtsp_cmd_options(HTTPContext *c, const char *url)
{
2930
    /* rtsp_reply_header(c, RTSP_STATUS_OK); */
2931 2932
    avio_printf(c->pb, "RTSP/1.0 %d %s\r\n", RTSP_STATUS_OK, "OK");
    avio_printf(c->pb, "CSeq: %d\r\n", c->seq);
2933 2934
    avio_printf(c->pb, "Public: %s\r\n",
                "OPTIONS, DESCRIBE, SETUP, TEARDOWN, PLAY, PAUSE");
2935
    avio_printf(c->pb, "\r\n");
2936 2937
}

2938 2939
static void rtsp_cmd_describe(HTTPContext *c, const char *url)
{
2940
    FFServerStream *stream;
2941 2942
    char path1[1024];
    const char *path;
2943
    uint8_t *content;
2944 2945
    int content_length;
    socklen_t len;
2946
    struct sockaddr_in my_addr;
2947

2948
    /* find which URL is asked */
2949
    av_url_split(NULL, 0, NULL, 0, NULL, 0, NULL, path1, sizeof(path1), url);
2950 2951 2952 2953
    path = path1;
    if (*path == '/')
        path++;

2954
    for(stream = config.first_stream; stream; stream = stream->next) {
2955 2956
        if (!stream->is_feed &&
            stream->fmt && !strcmp(stream->fmt->name, "rtp") &&
2957 2958 2959 2960 2961
            !strcmp(path, stream->filename)) {
            goto found;
        }
    }
    /* no stream found */
2962
    rtsp_reply_error(c, RTSP_STATUS_NOT_FOUND);
2963 2964 2965
    return;

 found:
2966
    /* prepare the media description in SDP format */
2967 2968 2969 2970

    /* get the host IP */
    len = sizeof(my_addr);
    getsockname(c->fd, (struct sockaddr *)&my_addr, &len);
2971 2972
    content_length = prepare_sdp_description(stream, &content,
                                             my_addr.sin_addr);
2973 2974 2975 2976 2977
    if (content_length < 0) {
        rtsp_reply_error(c, RTSP_STATUS_INTERNAL);
        return;
    }
    rtsp_reply_header(c, RTSP_STATUS_OK);
2978 2979 2980 2981
    avio_printf(c->pb, "Content-Base: %s/\r\n", url);
    avio_printf(c->pb, "Content-Type: application/sdp\r\n");
    avio_printf(c->pb, "Content-Length: %d\r\n", content_length);
    avio_printf(c->pb, "\r\n");
2982
    avio_write(c->pb, content, content_length);
2983
    av_free(content);
2984 2985 2986 2987 2988 2989 2990 2991 2992
}

static HTTPContext *find_rtp_session(const char *session_id)
{
    HTTPContext *c;

    if (session_id[0] == '\0')
        return NULL;

2993
    for(c = first_http_ctx; c; c = c->next) {
2994 2995 2996 2997 2998 2999
        if (!strcmp(c->session_id, session_id))
            return c;
    }
    return NULL;
}

3000
static RTSPTransportField *find_transport(RTSPMessageHeader *h, enum RTSPLowerTransport lower_transport)
3001 3002 3003 3004 3005 3006
{
    RTSPTransportField *th;
    int i;

    for(i=0;i<h->nb_transports;i++) {
        th = &h->transports[i];
3007
        if (th->lower_transport == lower_transport)
3008 3009 3010 3011 3012
            return th;
    }
    return NULL;
}

3013
static void rtsp_cmd_setup(HTTPContext *c, const char *url,
3014
                           RTSPMessageHeader *h)
3015
{
3016
    FFServerStream *stream;
3017
    int stream_index, rtp_port, rtcp_port;
3018 3019 3020 3021 3022 3023 3024
    char buf[1024];
    char path1[1024];
    const char *path;
    HTTPContext *rtp_c;
    RTSPTransportField *th;
    struct sockaddr_in dest_addr;
    RTSPActionServerSetup setup;
3025

3026
    /* find which URL is asked */
3027
    av_url_split(NULL, 0, NULL, 0, NULL, 0, NULL, path1, sizeof(path1), url);
3028 3029 3030 3031 3032
    path = path1;
    if (*path == '/')
        path++;

    /* now check each stream */
3033
    for(stream = config.first_stream; stream; stream = stream->next) {
3034 3035 3036 3037
        if (stream->is_feed || !stream->fmt ||
            strcmp(stream->fmt->name, "rtp")) {
            continue;
        }
3038 3039 3040 3041 3042
        /* accept aggregate filenames only if single stream */
        if (!strcmp(path, stream->filename)) {
            if (stream->nb_streams != 1) {
                rtsp_reply_error(c, RTSP_STATUS_AGGREGATE);
                return;
3043
            }
3044 3045 3046
            stream_index = 0;
            goto found;
        }
3047

3048 3049 3050 3051 3052 3053 3054
        for(stream_index = 0; stream_index < stream->nb_streams;
            stream_index++) {
            snprintf(buf, sizeof(buf), "%s/streamid=%d",
                     stream->filename, stream_index);
            if (!strcmp(path, buf))
                goto found;
        }
3055 3056 3057 3058 3059 3060 3061
    }
    /* no stream found */
    rtsp_reply_error(c, RTSP_STATUS_SERVICE); /* XXX: right error ? */
    return;
 found:

    /* generate session id if needed */
3062 3063 3064
    if (h->session_id[0] == '\0') {
        unsigned random0 = av_lfg_get(&random_state);
        unsigned random1 = av_lfg_get(&random_state);
3065
        snprintf(h->session_id, sizeof(h->session_id), "%08x%08x",
3066 3067
                 random0, random1);
    }
3068

3069
    /* find RTP session, and create it if none found */
3070 3071
    rtp_c = find_rtp_session(h->session_id);
    if (!rtp_c) {
3072
        /* always prefer UDP */
3073
        th = find_transport(h, RTSP_LOWER_TRANSPORT_UDP);
3074
        if (!th) {
3075
            th = find_transport(h, RTSP_LOWER_TRANSPORT_TCP);
3076 3077 3078 3079 3080 3081 3082
            if (!th) {
                rtsp_reply_error(c, RTSP_STATUS_TRANSPORT);
                return;
            }
        }

        rtp_c = rtp_new_connection(&c->from_addr, stream, h->session_id,
3083
                                   th->lower_transport);
3084 3085 3086 3087 3088 3089 3090 3091 3092 3093 3094
        if (!rtp_c) {
            rtsp_reply_error(c, RTSP_STATUS_BANDWIDTH);
            return;
        }

        /* open input stream */
        if (open_input_stream(rtp_c, "") < 0) {
            rtsp_reply_error(c, RTSP_STATUS_INTERNAL);
            return;
        }
    }
3095

3096
    /* test if stream is OK (test needed because several SETUP needs
3097
     * to be done for a given file) */
3098 3099 3100 3101
    if (rtp_c->stream != stream) {
        rtsp_reply_error(c, RTSP_STATUS_SERVICE);
        return;
    }
3102

3103 3104 3105 3106 3107 3108 3109 3110
    /* test if stream is already set up */
    if (rtp_c->rtp_ctx[stream_index]) {
        rtsp_reply_error(c, RTSP_STATUS_STATE);
        return;
    }

    /* check transport */
    th = find_transport(h, rtp_c->rtp_protocol);
3111
    if (!th || (th->lower_transport == RTSP_LOWER_TRANSPORT_UDP &&
3112 3113 3114 3115 3116 3117 3118 3119 3120
                th->client_port_min <= 0)) {
        rtsp_reply_error(c, RTSP_STATUS_TRANSPORT);
        return;
    }

    /* setup default options */
    setup.transport_option[0] = '\0';
    dest_addr = rtp_c->from_addr;
    dest_addr.sin_port = htons(th->client_port_min);
3121

3122
    /* setup stream */
3123
    if (rtp_new_av_stream(rtp_c, stream_index, &dest_addr, c) < 0) {
3124 3125 3126 3127 3128 3129 3130
        rtsp_reply_error(c, RTSP_STATUS_TRANSPORT);
        return;
    }

    /* now everything is OK, so we can send the connection parameters */
    rtsp_reply_header(c, RTSP_STATUS_OK);
    /* session ID */
3131
    avio_printf(c->pb, "Session: %s\r\n", rtp_c->session_id);
3132 3133

    switch(rtp_c->rtp_protocol) {
3134
    case RTSP_LOWER_TRANSPORT_UDP:
3135 3136
        rtp_port = ff_rtp_get_local_rtp_port(rtp_c->rtp_handles[stream_index]);
        rtcp_port = ff_rtp_get_local_rtcp_port(rtp_c->rtp_handles[stream_index]);
3137
        avio_printf(c->pb, "Transport: RTP/AVP/UDP;unicast;"
3138
                    "client_port=%d-%d;server_port=%d-%d",
3139 3140
                    th->client_port_min, th->client_port_max,
                    rtp_port, rtcp_port);
3141
        break;
3142
    case RTSP_LOWER_TRANSPORT_TCP:
3143
        avio_printf(c->pb, "Transport: RTP/AVP/TCP;interleaved=%d-%d",
3144 3145 3146 3147 3148
                    stream_index * 2, stream_index * 2 + 1);
        break;
    default:
        break;
    }
3149
    if (setup.transport_option[0] != '\0')
3150 3151
        avio_printf(c->pb, ";%s", setup.transport_option);
    avio_printf(c->pb, "\r\n");
3152

3153

3154
    avio_printf(c->pb, "\r\n");
3155 3156 3157
}


3158 3159 3160 3161
/**
 * find an RTP connection by using the session ID. Check consistency
 * with filename
 */
3162
static HTTPContext *find_rtp_session_with_url(const char *url,
3163 3164 3165 3166 3167
                                              const char *session_id)
{
    HTTPContext *rtp_c;
    char path1[1024];
    const char *path;
3168
    char buf[1024];
3169
    int s, len;
3170 3171 3172 3173 3174

    rtp_c = find_rtp_session(session_id);
    if (!rtp_c)
        return NULL;

3175
    /* find which URL is asked */
3176
    av_url_split(NULL, 0, NULL, 0, NULL, 0, NULL, path1, sizeof(path1), url);
3177 3178 3179
    path = path1;
    if (*path == '/')
        path++;
3180 3181 3182 3183
    if(!strcmp(path, rtp_c->stream->filename)) return rtp_c;
    for(s=0; s<rtp_c->stream->nb_streams; ++s) {
      snprintf(buf, sizeof(buf), "%s/streamid=%d",
        rtp_c->stream->filename, s);
3184 3185 3186
      if(!strncmp(path, buf, sizeof(buf)))
        /* XXX: Should we reply with RTSP_STATUS_ONLY_AGGREGATE
         * if nb_streams>1? */
3187 3188
        return rtp_c;
    }
3189 3190 3191 3192
    len = strlen(path);
    if (len > 0 && path[len - 1] == '/' &&
        !strncmp(path, rtp_c->stream->filename, len - 1))
        return rtp_c;
3193
    return NULL;
3194 3195
}

3196
static void rtsp_cmd_play(HTTPContext *c, const char *url, RTSPMessageHeader *h)
3197 3198 3199 3200 3201 3202 3203 3204
{
    HTTPContext *rtp_c;

    rtp_c = find_rtp_session_with_url(url, h->session_id);
    if (!rtp_c) {
        rtsp_reply_error(c, RTSP_STATUS_SESSION);
        return;
    }
3205

3206 3207 3208 3209 3210 3211 3212 3213
    if (rtp_c->state != HTTPSTATE_SEND_DATA &&
        rtp_c->state != HTTPSTATE_WAIT_FEED &&
        rtp_c->state != HTTPSTATE_READY) {
        rtsp_reply_error(c, RTSP_STATUS_STATE);
        return;
    }

    rtp_c->state = HTTPSTATE_SEND_DATA;
3214

3215 3216 3217
    /* now everything is OK, so we can send the connection parameters */
    rtsp_reply_header(c, RTSP_STATUS_OK);
    /* session ID */
3218 3219
    avio_printf(c->pb, "Session: %s\r\n", rtp_c->session_id);
    avio_printf(c->pb, "\r\n");
3220 3221
}

3222 3223
static void rtsp_cmd_interrupt(HTTPContext *c, const char *url,
                               RTSPMessageHeader *h, int pause_only)
3224 3225 3226 3227 3228 3229 3230 3231
{
    HTTPContext *rtp_c;

    rtp_c = find_rtp_session_with_url(url, h->session_id);
    if (!rtp_c) {
        rtsp_reply_error(c, RTSP_STATUS_SESSION);
        return;
    }
3232

3233 3234 3235 3236 3237 3238 3239 3240
    if (pause_only) {
        if (rtp_c->state != HTTPSTATE_SEND_DATA &&
            rtp_c->state != HTTPSTATE_WAIT_FEED) {
            rtsp_reply_error(c, RTSP_STATUS_STATE);
            return;
        }
        rtp_c->state = HTTPSTATE_READY;
        rtp_c->first_pts = AV_NOPTS_VALUE;
3241
    }
3242

3243 3244 3245
    /* now everything is OK, so we can send the connection parameters */
    rtsp_reply_header(c, RTSP_STATUS_OK);
    /* session ID */
3246
    avio_printf(c->pb, "Session: %s\r\n", rtp_c->session_id);
3247
    avio_printf(c->pb, "\r\n");
3248

3249 3250
    if (!pause_only)
        close_connection(rtp_c);
3251 3252 3253 3254 3255
}

/********************************************************************/
/* RTP handling */

3256
static HTTPContext *rtp_new_connection(struct sockaddr_in *from_addr,
3257 3258
                                       FFServerStream *stream,
                                       const char *session_id,
3259
                                       enum RTSPLowerTransport rtp_protocol)
3260 3261
{
    HTTPContext *c = NULL;
3262
    const char *proto_str;
3263

3264
    /* XXX: should output a warning page when coming
3265
     * close to the connection limit */
3266
    if (nb_connections >= config.nb_max_connections)
3267
        goto fail;
3268

3269 3270 3271 3272
    /* add a new connection */
    c = av_mallocz(sizeof(HTTPContext));
    if (!c)
        goto fail;
3273

3274 3275
    c->fd = -1;
    c->poll_entry = NULL;
3276
    c->from_addr = *from_addr;
3277 3278 3279 3280 3281 3282
    c->buffer_size = IOBUFFER_INIT_SIZE;
    c->buffer = av_malloc(c->buffer_size);
    if (!c->buffer)
        goto fail;
    nb_connections++;
    c->stream = stream;
3283
    av_strlcpy(c->session_id, session_id, sizeof(c->session_id));
3284 3285
    c->state = HTTPSTATE_READY;
    c->is_packetized = 1;
3286 3287
    c->rtp_protocol = rtp_protocol;

3288
    /* protocol is shown in statistics */
3289
    switch(c->rtp_protocol) {
3290
    case RTSP_LOWER_TRANSPORT_UDP_MULTICAST:
3291 3292
        proto_str = "MCAST";
        break;
3293
    case RTSP_LOWER_TRANSPORT_UDP:
3294 3295
        proto_str = "UDP";
        break;
3296
    case RTSP_LOWER_TRANSPORT_TCP:
3297 3298 3299 3300 3301 3302
        proto_str = "TCP";
        break;
    default:
        proto_str = "???";
        break;
    }
3303 3304
    av_strlcpy(c->protocol, "RTP/", sizeof(c->protocol));
    av_strlcat(c->protocol, proto_str, sizeof(c->protocol));
3305

3306 3307
    current_bandwidth += stream->bandwidth;

3308 3309 3310
    c->next = first_http_ctx;
    first_http_ctx = c;
    return c;
3311

3312 3313
 fail:
    if (c) {
3314
        av_freep(&c->buffer);
3315 3316 3317 3318 3319
        av_free(c);
    }
    return NULL;
}

3320 3321 3322 3323 3324
/**
 * add a new RTP stream in an RTP connection (used in RTSP SETUP
 * command). If RTP/TCP protocol is used, TCP connection 'rtsp_c' is
 * used.
 */
3325
static int rtp_new_av_stream(HTTPContext *c,
3326 3327
                             int stream_index, struct sockaddr_in *dest_addr,
                             HTTPContext *rtsp_c)
3328 3329 3330 3331
{
    AVFormatContext *ctx;
    AVStream *st;
    char *ipaddr;
3332
    URLContext *h = NULL;
3333
    uint8_t *dummy_buf;
3334
    int max_packet_size;
3335
    void *st_internal;
3336

3337
    /* now we can open the relevant output stream */
3338
    ctx = avformat_alloc_context();
3339 3340
    if (!ctx)
        return -1;
3341
    ctx->oformat = av_guess_format("rtp", NULL, NULL);
3342

3343
    st = avformat_new_stream(ctx, NULL);
3344 3345
    if (!st)
        goto fail;
3346 3347 3348 3349

    av_freep(&st->codec);
    av_freep(&st->info);
    st_internal = st->internal;
3350

3351
    if (!c->stream->feed ||
3352
        c->stream->feed == c->stream)
3353
        memcpy(st, c->stream->streams[stream_index], sizeof(AVStream));
3354
    else
3355
        memcpy(st,
3356 3357
               c->stream->feed->streams[c->stream->feed_streams[stream_index]],
               sizeof(AVStream));
3358
    st->priv_data = NULL;
3359
    st->internal = st_internal;
3360

3361 3362 3363 3364
    /* build destination RTP address */
    ipaddr = inet_ntoa(dest_addr->sin_addr);

    switch(c->rtp_protocol) {
3365 3366
    case RTSP_LOWER_TRANSPORT_UDP:
    case RTSP_LOWER_TRANSPORT_UDP_MULTICAST:
3367
        /* RTP/UDP case */
3368

3369 3370 3371 3372 3373 3374 3375
        /* XXX: also pass as parameter to function ? */
        if (c->stream->is_multicast) {
            int ttl;
            ttl = c->stream->multicast_ttl;
            if (!ttl)
                ttl = 16;
            snprintf(ctx->filename, sizeof(ctx->filename),
3376
                     "rtp://%s:%d?multicast=1&ttl=%d",
3377 3378 3379 3380 3381
                     ipaddr, ntohs(dest_addr->sin_port), ttl);
        } else {
            snprintf(ctx->filename, sizeof(ctx->filename),
                     "rtp://%s:%d", ipaddr, ntohs(dest_addr->sin_port));
        }
3382

3383
        if (ffurl_open(&h, ctx->filename, AVIO_FLAG_WRITE, NULL, NULL) < 0)
3384 3385
            goto fail;
        c->rtp_handles[stream_index] = h;
3386
        max_packet_size = h->max_packet_size;
3387
        break;
3388
    case RTSP_LOWER_TRANSPORT_TCP:
3389 3390 3391 3392 3393
        /* RTP/TCP case */
        c->rtsp_c = rtsp_c;
        max_packet_size = RTSP_TCP_MAX_PACKET_SIZE;
        break;
    default:
3394 3395 3396
        goto fail;
    }

3397
    http_log("%s:%d - - \"PLAY %s/streamid=%d %s\"\n",
3398
             ipaddr, ntohs(dest_addr->sin_port),
3399
             c->stream->filename, stream_index, c->protocol);
3400

3401 3402
    /* normally, no packets should be output here, but the packet size may
     * be checked */
3403
    if (ffio_open_dyn_packet_buf(&ctx->pb, max_packet_size) < 0)
3404 3405
        /* XXX: close stream */
        goto fail;
3406

3407
    if (avformat_write_header(ctx, NULL) < 0) {
3408 3409
    fail:
        if (h)
3410
            ffurl_close(h);
3411
        av_free(st);
3412 3413 3414
        av_free(ctx);
        return -1;
    }
3415
    avio_close_dyn_buf(ctx->pb, &dummy_buf);
3416
    ctx->pb = NULL;
3417
    av_free(dummy_buf);
3418

3419 3420 3421 3422 3423 3424 3425
    c->rtp_ctx[stream_index] = ctx;
    return 0;
}

/********************************************************************/
/* ffserver initialization */

3426 3427
static AVStream *add_av_stream1(FFServerStream *stream,
                                AVCodecContext *codec, int copy)
3428 3429 3430
{
    AVStream *fst;

3431 3432 3433
    if(stream->nb_streams >= FF_ARRAY_ELEMS(stream->streams))
        return NULL;

3434 3435 3436
    fst = av_mallocz(sizeof(AVStream));
    if (!fst)
        return NULL;
3437
    if (copy) {
3438
        fst->codec = avcodec_alloc_context3(codec->codec);
3439 3440 3441 3442
        if (!fst->codec) {
            av_free(fst);
            return NULL;
        }
3443
        avcodec_copy_context(fst->codec, codec);
3444
    } else
3445
        /* live streams must use the actual feed's codec since it may be
3446
         * updated later to carry extradata needed by them.
3447 3448
         */
        fst->codec = codec;
3449

3450
    fst->priv_data = av_mallocz(sizeof(FeedData));
3451
    fst->index = stream->nb_streams;
3452
    avpriv_set_pts_info(fst, 33, 1, 90000);
3453
    fst->sample_aspect_ratio = codec->sample_aspect_ratio;
3454 3455 3456 3457
    stream->streams[stream->nb_streams++] = fst;
    return fst;
}

Fabrice Bellard's avatar
Fabrice Bellard committed
3458
/* return the stream number in the feed */
3459
static int add_av_stream(FFServerStream *feed, AVStream *st)
Fabrice Bellard's avatar
Fabrice Bellard committed
3460 3461 3462 3463 3464
{
    AVStream *fst;
    AVCodecContext *av, *av1;
    int i;

3465
    av = st->codec;
Fabrice Bellard's avatar
Fabrice Bellard committed
3466
    for(i=0;i<feed->nb_streams;i++) {
3467
        av1 = feed->streams[i]->codec;
3468 3469
        if (av1->codec_id == av->codec_id &&
            av1->codec_type == av->codec_type &&
Fabrice Bellard's avatar
Fabrice Bellard committed
3470 3471 3472
            av1->bit_rate == av->bit_rate) {

            switch(av->codec_type) {
3473
            case AVMEDIA_TYPE_AUDIO:
Fabrice Bellard's avatar
Fabrice Bellard committed
3474 3475
                if (av1->channels == av->channels &&
                    av1->sample_rate == av->sample_rate)
3476
                    return i;
Fabrice Bellard's avatar
Fabrice Bellard committed
3477
                break;
3478
            case AVMEDIA_TYPE_VIDEO:
Fabrice Bellard's avatar
Fabrice Bellard committed
3479 3480
                if (av1->width == av->width &&
                    av1->height == av->height &&
3481 3482
                    av1->time_base.den == av->time_base.den &&
                    av1->time_base.num == av->time_base.num &&
Fabrice Bellard's avatar
Fabrice Bellard committed
3483
                    av1->gop_size == av->gop_size)
3484
                    return i;
Fabrice Bellard's avatar
Fabrice Bellard committed
3485
                break;
3486
            default:
3487
                abort();
Fabrice Bellard's avatar
Fabrice Bellard committed
3488 3489 3490
            }
        }
    }
3491

3492
    fst = add_av_stream1(feed, av, 0);
Fabrice Bellard's avatar
Fabrice Bellard committed
3493 3494
    if (!fst)
        return -1;
3495 3496 3497
    if (av_stream_get_recommended_encoder_configuration(st))
        av_stream_set_recommended_encoder_configuration(fst,
            av_strdup(av_stream_get_recommended_encoder_configuration(st)));
Fabrice Bellard's avatar
Fabrice Bellard committed
3498 3499 3500
    return feed->nb_streams - 1;
}

3501
static void remove_stream(FFServerStream *stream)
3502
{
3503 3504
    FFServerStream **ps;
    ps = &config.first_stream;
3505
    while (*ps) {
3506
        if (*ps == stream)
3507
            *ps = (*ps)->next;
3508
        else
3509 3510 3511 3512
            ps = &(*ps)->next;
    }
}

3513
/* specific MPEG4 handling : we extract the raw parameters */
3514
static void extract_mpeg4_header(AVFormatContext *infile)
3515 3516 3517 3518
{
    int mpeg4_count, i, size;
    AVPacket pkt;
    AVStream *st;
3519
    const uint8_t *p;
3520

3521 3522
    infile->flags |= AVFMT_FLAG_NOFILLIN | AVFMT_FLAG_NOPARSE;

3523 3524 3525
    mpeg4_count = 0;
    for(i=0;i<infile->nb_streams;i++) {
        st = infile->streams[i];
3526
        if (st->codec->codec_id == AV_CODEC_ID_MPEG4 &&
3527
            st->codec->extradata_size == 0) {
3528 3529 3530 3531 3532 3533
            mpeg4_count++;
        }
    }
    if (!mpeg4_count)
        return;

3534 3535
    printf("MPEG4 without extra data: trying to find header in %s\n",
           infile->filename);
3536
    while (mpeg4_count > 0) {
3537
        if (av_read_frame(infile, &pkt) < 0)
3538 3539
            break;
        st = infile->streams[pkt.stream_index];
3540
        if (st->codec->codec_id == AV_CODEC_ID_MPEG4 &&
3541 3542
            st->codec->extradata_size == 0) {
            av_freep(&st->codec->extradata);
3543 3544 3545 3546 3547
            /* fill extradata with the header */
            /* XXX: we make hard suppositions here ! */
            p = pkt.data;
            while (p < pkt.data + pkt.size - 4) {
                /* stop when vop header is found */
3548
                if (p[0] == 0x00 && p[1] == 0x00 &&
3549 3550
                    p[2] == 0x01 && p[3] == 0xb6) {
                    size = p - pkt.data;
3551
                    st->codec->extradata = av_mallocz(size + AV_INPUT_BUFFER_PADDING_SIZE);
3552 3553
                    st->codec->extradata_size = size;
                    memcpy(st->codec->extradata, pkt.data, size);
3554 3555 3556 3557 3558 3559
                    break;
                }
                p++;
            }
            mpeg4_count--;
        }
3560
        av_packet_unref(&pkt);
3561 3562 3563
    }
}

3564
/* compute the needed AVStream for each file */
3565
static void build_file_streams(void)
3566
{
3567
    FFServerStream *stream, *stream_next;
3568
    int i, ret;
3569 3570

    /* gather all streams */
3571
    for(stream = config.first_stream; stream; stream = stream_next) {
3572
        AVFormatContext *infile = NULL;
3573 3574 3575 3576 3577 3578
        stream_next = stream->next;
        if (stream->stream_type == STREAM_TYPE_LIVE &&
            !stream->feed) {
            /* the stream comes from a file */
            /* try to open the file */
            /* open stream */
3579
            if (stream->fmt && !strcmp(stream->fmt->name, "rtp")) {
3580
                /* specific case : if transport stream output to RTP,
3581
                 * we use a raw transport stream reader */
3582
                av_dict_set(&stream->in_opts, "mpeg2ts_compute_pcr", "1", 0);
3583
            }
3584

3585
            if (!stream->feed_filename[0]) {
3586 3587
                http_log("Unspecified feed file for stream '%s'\n",
                         stream->filename);
3588 3589 3590
                goto fail;
            }

3591 3592
            http_log("Opening feed file '%s' for stream '%s'\n",
                     stream->feed_filename, stream->filename);
3593 3594 3595
            ret = avformat_open_input(&infile, stream->feed_filename,
                                      stream->ifmt, &stream->in_opts);
            if (ret < 0) {
3596 3597
                http_log("Could not open '%s': %s\n", stream->feed_filename,
                         av_err2str(ret));
3598 3599 3600 3601 3602
                /* remove stream (no need to spend more time on it) */
            fail:
                remove_stream(stream);
            } else {
                /* find all the AVStreams inside and reference them in
3603
                 * 'stream' */
3604
                if (avformat_find_stream_info(infile, NULL) < 0) {
3605
                    http_log("Could not find codec parameters from '%s'\n",
3606
                             stream->feed_filename);
3607
                    avformat_close_input(&infile);
3608 3609
                    goto fail;
                }
3610 3611
                extract_mpeg4_header(infile);

3612
                for(i=0;i<infile->nb_streams;i++)
3613
                    add_av_stream1(stream, infile->streams[i]->codec, 1);
3614

3615
                avformat_close_input(&infile);
3616 3617 3618 3619 3620
            }
        }
    }
}

Fabrice Bellard's avatar
Fabrice Bellard committed
3621
/* compute the needed AVStream for each feed */
3622
static void build_feed_streams(void)
Fabrice Bellard's avatar
Fabrice Bellard committed
3623
{
3624
    FFServerStream *stream, *feed;
Fabrice Bellard's avatar
Fabrice Bellard committed
3625 3626
    int i;

3627
    /* gather all streams */
3628
    for(stream = config.first_stream; stream; stream = stream->next) {
3629
        feed = stream->feed;
3630 3631 3632 3633 3634 3635 3636 3637 3638 3639 3640
        if (!feed)
            continue;

        if (stream->is_feed) {
            for(i=0;i<stream->nb_streams;i++)
                stream->feed_streams[i] = i;
        } else {
            /* we handle a stream coming from a feed */
            for(i=0;i<stream->nb_streams;i++)
                stream->feed_streams[i] = add_av_stream(feed,
                                                        stream->streams[i]);
Fabrice Bellard's avatar
Fabrice Bellard committed
3641 3642 3643 3644
        }
    }

    /* create feed files if needed */
3645
    for(feed = config.first_feed; feed; feed = feed->next_feed) {
Fabrice Bellard's avatar
Fabrice Bellard committed
3646 3647
        int fd;

3648
        if (avio_check(feed->feed_filename, AVIO_FLAG_READ) > 0) {
3649
            /* See if it matches */
3650
            AVFormatContext *s = NULL;
3651 3652
            int matches = 0;

3653
            if (avformat_open_input(&s, feed->feed_filename, NULL, NULL) >= 0) {
3654
                /* set buffer size */
3655 3656 3657 3658 3659 3660
                int ret = ffio_set_buf_size(s->pb, FFM_PACKET_SIZE);
                if (ret < 0) {
                    http_log("Failed to set buffer size\n");
                    exit(1);
                }

3661 3662 3663 3664 3665 3666 3667 3668 3669 3670
                /* Now see if it matches */
                if (s->nb_streams == feed->nb_streams) {
                    matches = 1;
                    for(i=0;i<s->nb_streams;i++) {
                        AVStream *sf, *ss;
                        sf = feed->streams[i];
                        ss = s->streams[i];

                        if (sf->index != ss->index ||
                            sf->id != ss->id) {
3671
                            http_log("Index & Id do not match for stream %d (%s)\n",
3672
                                   i, feed->feed_filename);
3673 3674 3675 3676
                            matches = 0;
                        } else {
                            AVCodecContext *ccf, *ccs;

3677 3678
                            ccf = sf->codec;
                            ccs = ss->codec;
3679 3680
#define CHECK_CODEC(x)  (ccf->x != ccs->x)

3681
                            if (CHECK_CODEC(codec_id) || CHECK_CODEC(codec_type)) {
3682
                                http_log("Codecs do not match for stream %d\n", i);
3683 3684
                                matches = 0;
                            } else if (CHECK_CODEC(bit_rate) || CHECK_CODEC(flags)) {
3685
                                http_log("Codec bitrates do not match for stream %d\n", i);
3686
                                matches = 0;
3687
                            } else if (ccf->codec_type == AVMEDIA_TYPE_VIDEO) {
3688 3689
                                if (CHECK_CODEC(time_base.den) ||
                                    CHECK_CODEC(time_base.num) ||
3690 3691
                                    CHECK_CODEC(width) ||
                                    CHECK_CODEC(height)) {
3692
                                    http_log("Codec width, height and framerate do not match for stream %d\n", i);
3693 3694
                                    matches = 0;
                                }
3695
                            } else if (ccf->codec_type == AVMEDIA_TYPE_AUDIO) {
3696 3697 3698
                                if (CHECK_CODEC(sample_rate) ||
                                    CHECK_CODEC(channels) ||
                                    CHECK_CODEC(frame_size)) {
3699
                                    http_log("Codec sample_rate, channels, frame_size do not match for stream %d\n", i);
3700 3701 3702
                                    matches = 0;
                                }
                            } else {
3703
                                http_log("Unknown codec type\n");
3704 3705 3706
                                matches = 0;
                            }
                        }
3707
                        if (!matches)
3708 3709
                            break;
                    }
3710
                } else
3711
                    http_log("Deleting feed file '%s' as stream counts differ (%d != %d)\n",
3712 3713
                        feed->feed_filename, s->nb_streams, feed->nb_streams);

3714
                avformat_close_input(&s);
3715
            } else
3716
                http_log("Deleting feed file '%s' as it appears to be corrupt\n",
3717
                        feed->feed_filename);
3718

3719 3720
            if (!matches) {
                if (feed->readonly) {
3721
                    http_log("Unable to delete feed file '%s' as it is marked readonly\n",
3722 3723 3724
                        feed->feed_filename);
                    exit(1);
                }
3725
                unlink(feed->feed_filename);
3726
            }
3727
        }
3728
        if (avio_check(feed->feed_filename, AVIO_FLAG_WRITE) <= 0) {
3729
            AVFormatContext *s = avformat_alloc_context();
Fabrice Bellard's avatar
Fabrice Bellard committed
3730

3731 3732 3733 3734 3735
            if (!s) {
                http_log("Failed to allocate context\n");
                exit(1);
            }

3736
            if (feed->readonly) {
3737
                http_log("Unable to create feed file '%s' as it is marked readonly\n",
3738 3739 3740 3741
                    feed->feed_filename);
                exit(1);
            }

Fabrice Bellard's avatar
Fabrice Bellard committed
3742
            /* only write the header of the ffm file */
3743
            if (avio_open(&s->pb, feed->feed_filename, AVIO_FLAG_WRITE) < 0) {
3744 3745
                http_log("Could not open output feed file '%s'\n",
                         feed->feed_filename);
Fabrice Bellard's avatar
Fabrice Bellard committed
3746 3747
                exit(1);
            }
3748
            s->oformat = feed->fmt;
Fabrice Bellard's avatar
Fabrice Bellard committed
3749
            s->nb_streams = feed->nb_streams;
Mike William's avatar
Mike William committed
3750
            s->streams = feed->streams;
3751
            if (avformat_write_header(s, NULL) < 0) {
3752
                http_log("Container doesn't support the required parameters\n");
3753 3754
                exit(1);
            }
3755
            /* XXX: need better API */
3756
            av_freep(&s->priv_data);
3757
            avio_closep(&s->pb);
3758 3759 3760
            s->streams = NULL;
            s->nb_streams = 0;
            avformat_free_context(s);
Fabrice Bellard's avatar
Fabrice Bellard committed
3761 3762 3763 3764
        }
        /* get feed size and write index */
        fd = open(feed->feed_filename, O_RDONLY);
        if (fd < 0) {
3765
            http_log("Could not open output feed file '%s'\n",
Fabrice Bellard's avatar
Fabrice Bellard committed
3766 3767 3768 3769
                    feed->feed_filename);
            exit(1);
        }

3770
        feed->feed_write_index = FFMAX(ffm_read_write_index(fd), FFM_PACKET_SIZE);
Fabrice Bellard's avatar
Fabrice Bellard committed
3771 3772
        feed->feed_size = lseek(fd, 0, SEEK_END);
        /* ensure that we do not wrap before the end of file */
3773
        if (feed->feed_max_size && feed->feed_max_size < feed->feed_size)
Fabrice Bellard's avatar
Fabrice Bellard committed
3774 3775 3776 3777 3778 3779
            feed->feed_max_size = feed->feed_size;

        close(fd);
    }
}

3780 3781 3782
/* compute the bandwidth used by each stream */
static void compute_bandwidth(void)
{
3783 3784
    unsigned bandwidth;
    int i;
3785
    FFServerStream *stream;
3786

3787
    for(stream = config.first_stream; stream; stream = stream->next) {
3788 3789 3790
        bandwidth = 0;
        for(i=0;i<stream->nb_streams;i++) {
            AVStream *st = stream->streams[i];
3791
            switch(st->codec->codec_type) {
3792 3793
            case AVMEDIA_TYPE_AUDIO:
            case AVMEDIA_TYPE_VIDEO:
3794
                bandwidth += st->codec->bit_rate;
3795 3796 3797 3798 3799 3800 3801 3802 3803
                break;
            default:
                break;
            }
        }
        stream->bandwidth = (bandwidth + 999) / 1000;
    }
}

3804 3805 3806
static void handle_child_exit(int sig)
{
    pid_t pid;
3807
    int status, uptime;
3808 3809

    while ((pid = waitpid(-1, &status, WNOHANG)) > 0) {
3810
        FFServerStream *feed;
3811

3812
        for (feed = config.first_feed; feed; feed = feed->next) {
3813 3814
            if (feed->pid != pid)
                continue;
3815

3816 3817 3818
            uptime = time(0) - feed->pid_start;
            feed->pid = 0;
            fprintf(stderr,
3819 3820
                    "%s: Pid %"PRId64" exited with status %d after %d seconds\n",
                    feed->filename, (int64_t) pid, status, uptime);
3821

3822 3823 3824
            if (uptime < 30)
                /* Turn off any more restarts */
                ffserver_free_child_args(&feed->child_argv);
3825 3826 3827 3828 3829 3830
        }
    }

    need_to_start_children = 1;
}

3831
static void opt_debug(void)
3832
{
3833 3834
    config.debug = 1;
    snprintf(config.logfilename, sizeof(config.logfilename), "-");
3835 3836
}

3837
void show_help_default(const char *opt, const char *arg)
3838
{
3839
    printf("usage: ffserver [options]\n"
3840 3841
           "Hyper fast multi format Audio/Video streaming server\n");
    printf("\n");
3842
    show_help_options(options, "Main options:", 0, 0, 0);
3843 3844 3845
}

static const OptionDef options[] = {
3846
#include "cmdutils_common_opts.h"
3847 3848
    { "n", OPT_BOOL, {(void *)&no_launch }, "enable no-launch mode" },
    { "d", 0, {(void*)opt_debug}, "enable debug mode" },
3849
    { "f", HAS_ARG | OPT_STRING, {(void*)&config.filename }, "use configfile instead of /etc/ffserver.conf", "configfile" },
3850 3851 3852
    { NULL },
};

Fabrice Bellard's avatar
Fabrice Bellard committed
3853 3854
int main(int argc, char **argv)
{
3855
    struct sigaction sigact = { { 0 } };
3856
    int ret = 0;
Fabrice Bellard's avatar
Fabrice Bellard committed
3857

3858
    config.filename = av_strdup("/etc/ffserver.conf");
3859

3860
    parse_loglevel(argc, argv, options);
3861
    av_register_all();
3862
    avformat_network_init();
Fabrice Bellard's avatar
Fabrice Bellard committed
3863

3864
    show_banner(argc, argv, options);
3865

3866
    my_program_name = argv[0];
3867

3868
    parse_options(NULL, argc, argv, options, NULL);
Fabrice Bellard's avatar
Fabrice Bellard committed
3869

3870
    unsetenv("http_proxy");             /* Kill the http_proxy */
3871

3872
    av_lfg_init(&random_state, av_get_random_seed());
3873

3874 3875 3876 3877
    sigact.sa_handler = handle_child_exit;
    sigact.sa_flags = SA_NOCLDSTOP | SA_RESTART;
    sigaction(SIGCHLD, &sigact, 0);

3878
    if ((ret = ffserver_parse_ffconfig(config.filename, &config)) < 0) {
3879
        fprintf(stderr, "Error reading configuration file '%s': %s\n",
3880
                config.filename, av_err2str(ret));
3881
        av_freep(&config.filename);
Fabrice Bellard's avatar
Fabrice Bellard committed
3882 3883
        exit(1);
    }
3884
    av_freep(&config.filename);
Fabrice Bellard's avatar
Fabrice Bellard committed
3885

3886
    /* open log file if needed */
3887 3888
    if (config.logfilename[0] != '\0') {
        if (!strcmp(config.logfilename, "-"))
3889
            logfile = stdout;
3890
        else
3891
            logfile = fopen(config.logfilename, "a");
3892 3893 3894
        av_log_set_callback(http_av_log);
    }

3895 3896
    build_file_streams();

Fabrice Bellard's avatar
Fabrice Bellard committed
3897 3898
    build_feed_streams();

3899 3900
    compute_bandwidth();

Fabrice Bellard's avatar
Fabrice Bellard committed
3901 3902 3903
    /* signal init */
    signal(SIGPIPE, SIG_IGN);

3904
    if (http_server() < 0) {
3905
        http_log("Could not start server\n");
Fabrice Bellard's avatar
Fabrice Bellard committed
3906 3907 3908 3909 3910
        exit(1);
    }

    return 0;
}