ffserver: Remove use of AVStream as a intermediate to store parameters
[ffmpeg.git] / ffserver.c
1 /*
2  * Copyright (c) 2000, 2001, 2002 Fabrice Bellard
3  *
4  * This file is part of FFmpeg.
5  *
6  * FFmpeg is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * FFmpeg is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
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
19  */
20
21 /**
22  * @file
23  * multiple format streaming server based on the FFmpeg libraries
24  */
25
26 #include "config.h"
27 #if !HAVE_CLOSESOCKET
28 #define closesocket close
29 #endif
30 #include <string.h>
31 #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/rtpproto.h"
36 #include "libavformat/rtsp.h"
37 #include "libavformat/avio_internal.h"
38 #include "libavformat/internal.h"
39
40 #include "libavutil/avassert.h"
41 #include "libavutil/avstring.h"
42 #include "libavutil/lfg.h"
43 #include "libavutil/dict.h"
44 #include "libavutil/intreadwrite.h"
45 #include "libavutil/mathematics.h"
46 #include "libavutil/random_seed.h"
47 #include "libavutil/rational.h"
48 #include "libavutil/parseutils.h"
49 #include "libavutil/opt.h"
50 #include "libavutil/time.h"
51
52 #include <stdarg.h>
53 #if HAVE_UNISTD_H
54 #include <unistd.h>
55 #endif
56 #include <fcntl.h>
57 #include <sys/ioctl.h>
58 #if HAVE_POLL_H
59 #include <poll.h>
60 #endif
61 #include <errno.h>
62 #include <time.h>
63 #include <sys/wait.h>
64 #include <signal.h>
65
66 #include "cmdutils.h"
67 #include "ffserver_config.h"
68
69 #define PATH_LENGTH 1024
70
71 const char program_name[] = "ffserver";
72 const int program_birth_year = 2000;
73
74 static const OptionDef options[];
75
76 enum HTTPState {
77     HTTPSTATE_WAIT_REQUEST,
78     HTTPSTATE_SEND_HEADER,
79     HTTPSTATE_SEND_DATA_HEADER,
80     HTTPSTATE_SEND_DATA,          /* sending TCP or UDP data */
81     HTTPSTATE_SEND_DATA_TRAILER,
82     HTTPSTATE_RECEIVE_DATA,
83     HTTPSTATE_WAIT_FEED,          /* wait for data from the feed */
84     HTTPSTATE_READY,
85
86     RTSPSTATE_WAIT_REQUEST,
87     RTSPSTATE_SEND_REPLY,
88     RTSPSTATE_SEND_PACKET,
89 };
90
91 static const char * const http_state[] = {
92     "HTTP_WAIT_REQUEST",
93     "HTTP_SEND_HEADER",
94
95     "SEND_DATA_HEADER",
96     "SEND_DATA",
97     "SEND_DATA_TRAILER",
98     "RECEIVE_DATA",
99     "WAIT_FEED",
100     "READY",
101
102     "RTSP_WAIT_REQUEST",
103     "RTSP_SEND_REPLY",
104     "RTSP_SEND_PACKET",
105 };
106
107 #define IOBUFFER_INIT_SIZE 8192
108
109 /* timeouts are in ms */
110 #define HTTP_REQUEST_TIMEOUT (15 * 1000)
111 #define RTSP_REQUEST_TIMEOUT (3600 * 24 * 1000)
112
113 #define SYNC_TIMEOUT (10 * 1000)
114
115 typedef struct RTSPActionServerSetup {
116     uint32_t ipaddr;
117     char transport_option[512];
118 } RTSPActionServerSetup;
119
120 typedef struct {
121     int64_t count1, count2;
122     int64_t time1, time2;
123 } DataRateData;
124
125 /* context associated with one connection */
126 typedef struct HTTPContext {
127     enum HTTPState state;
128     int fd; /* socket file descriptor */
129     struct sockaddr_in from_addr; /* origin */
130     struct pollfd *poll_entry; /* used when polling */
131     int64_t timeout;
132     uint8_t *buffer_ptr, *buffer_end;
133     int http_error;
134     int post;
135     int chunked_encoding;
136     int chunk_size;               /* 0 if it needs to be read */
137     struct HTTPContext *next;
138     int got_key_frame; /* stream 0 => 1, stream 1 => 2, stream 2=> 4 */
139     int64_t data_count;
140     /* feed input */
141     int feed_fd;
142     /* input format handling */
143     AVFormatContext *fmt_in;
144     int64_t start_time;            /* In milliseconds - this wraps fairly often */
145     int64_t first_pts;            /* initial pts value */
146     int64_t cur_pts;             /* current pts value from the stream in us */
147     int64_t cur_frame_duration;  /* duration of the current frame in us */
148     int cur_frame_bytes;       /* output frame size, needed to compute
149                                   the time at which we send each
150                                   packet */
151     int pts_stream_index;        /* stream we choose as clock reference */
152     int64_t cur_clock;           /* current clock reference value in us */
153     /* output format handling */
154     struct FFServerStream *stream;
155     /* -1 is invalid stream */
156     int feed_streams[FFSERVER_MAX_STREAMS]; /* index of streams in the feed */
157     int switch_feed_streams[FFSERVER_MAX_STREAMS]; /* index of streams in the feed */
158     int switch_pending;
159     AVFormatContext *pfmt_ctx; /* instance of FFServerStream for one user */
160     int last_packet_sent; /* true if last data packet was sent */
161     int suppress_log;
162     DataRateData datarate;
163     int wmp_client_id;
164     char protocol[16];
165     char method[16];
166     char url[128];
167     int buffer_size;
168     uint8_t *buffer;
169     int is_packetized; /* if true, the stream is packetized */
170     int packet_stream_index; /* current stream for output in state machine */
171
172     /* RTSP state specific */
173     uint8_t *pb_buffer; /* XXX: use that in all the code */
174     AVIOContext *pb;
175     int seq; /* RTSP sequence number */
176
177     /* RTP state specific */
178     enum RTSPLowerTransport rtp_protocol;
179     char session_id[32]; /* session id */
180     AVFormatContext *rtp_ctx[FFSERVER_MAX_STREAMS];
181
182     /* RTP/UDP specific */
183     URLContext *rtp_handles[FFSERVER_MAX_STREAMS];
184
185     /* RTP/TCP specific */
186     struct HTTPContext *rtsp_c;
187     uint8_t *packet_buffer, *packet_buffer_ptr, *packet_buffer_end;
188 } HTTPContext;
189
190 static HTTPContext *first_http_ctx;
191
192 static FFServerConfig config = {
193     .nb_max_http_connections = 2000,
194     .nb_max_connections = 5,
195     .max_bandwidth = 1000,
196     .use_defaults = 1,
197 };
198
199 static void new_connection(int server_fd, int is_rtsp);
200 static void close_connection(HTTPContext *c);
201
202 /* HTTP handling */
203 static int handle_connection(HTTPContext *c);
204 static inline void print_stream_params(AVIOContext *pb, FFServerStream *stream);
205 static void compute_status(HTTPContext *c);
206 static int open_input_stream(HTTPContext *c, const char *info);
207 static int http_parse_request(HTTPContext *c);
208 static int http_send_data(HTTPContext *c);
209 static int http_start_receive_data(HTTPContext *c);
210 static int http_receive_data(HTTPContext *c);
211
212 /* RTSP handling */
213 static int rtsp_parse_request(HTTPContext *c);
214 static void rtsp_cmd_describe(HTTPContext *c, const char *url);
215 static void rtsp_cmd_options(HTTPContext *c, const char *url);
216 static void rtsp_cmd_setup(HTTPContext *c, const char *url,
217                            RTSPMessageHeader *h);
218 static void rtsp_cmd_play(HTTPContext *c, const char *url,
219                           RTSPMessageHeader *h);
220 static void rtsp_cmd_interrupt(HTTPContext *c, const char *url,
221                                RTSPMessageHeader *h, int pause_only);
222
223 /* SDP handling */
224 static int prepare_sdp_description(FFServerStream *stream, uint8_t **pbuffer,
225                                    struct in_addr my_ip);
226
227 /* RTP handling */
228 static HTTPContext *rtp_new_connection(struct sockaddr_in *from_addr,
229                                        FFServerStream *stream,
230                                        const char *session_id,
231                                        enum RTSPLowerTransport rtp_protocol);
232 static int rtp_new_av_stream(HTTPContext *c,
233                              int stream_index, struct sockaddr_in *dest_addr,
234                              HTTPContext *rtsp_c);
235 /* utils */
236 static size_t htmlencode (const char *src, char **dest);
237 static inline void cp_html_entity (char *buffer, const char *entity);
238 static inline int check_codec_match(LayeredAVStream *ccf, AVStream *ccs, int stream);
239
240 static const char *my_program_name;
241
242 static int no_launch;
243 static int need_to_start_children;
244
245 /* maximum number of simultaneous HTTP connections */
246 static unsigned int nb_connections;
247
248 static uint64_t current_bandwidth;
249
250 /* Making this global saves on passing it around everywhere */
251 static int64_t cur_time;
252
253 static AVLFG random_state;
254
255 static FILE *logfile = NULL;
256
257 static void unlayer_stream(AVStream *st, LayeredAVStream *lst)
258 {
259     avcodec_free_context(&st->codec);
260     avcodec_parameters_free(&st->codecpar);
261 #define COPY(a) st->a = lst->a;
262     COPY(index)
263     COPY(id)
264     COPY(codec)
265     COPY(codecpar)
266     COPY(time_base)
267     COPY(pts_wrap_bits)
268     COPY(sample_aspect_ratio)
269     COPY(recommended_encoder_configuration)
270 }
271
272 static inline void cp_html_entity (char *buffer, const char *entity) {
273     if (!buffer || !entity)
274         return;
275     while (*entity)
276         *buffer++ = *entity++;
277 }
278
279 /**
280  * Substitutes known conflicting chars on a text string with
281  * their corresponding HTML entities.
282  *
283  * Returns the number of bytes in the 'encoded' representation
284  * not including the terminating NUL.
285  */
286 static size_t htmlencode (const char *src, char **dest) {
287     const char *amp = "&amp;";
288     const char *lt  = "&lt;";
289     const char *gt  = "&gt;";
290     const char *start;
291     char *tmp;
292     size_t final_size = 0;
293
294     if (!src)
295         return 0;
296
297     start = src;
298
299     /* Compute needed dest size */
300     while (*src != '\0') {
301         switch(*src) {
302             case 38: /* & */
303                 final_size += 5;
304                 break;
305             case 60: /* < */
306             case 62: /* > */
307                 final_size += 4;
308                 break;
309             default:
310                 final_size++;
311         }
312         src++;
313     }
314
315     src = start;
316     *dest = av_mallocz(final_size + 1);
317     if (!*dest)
318         return 0;
319
320     /* Build dest */
321     tmp = *dest;
322     while (*src != '\0') {
323         switch(*src) {
324             case 38: /* & */
325                 cp_html_entity (tmp, amp);
326                 tmp += 5;
327                 break;
328             case 60: /* < */
329                 cp_html_entity (tmp, lt);
330                 tmp += 4;
331                 break;
332             case 62: /* > */
333                 cp_html_entity (tmp, gt);
334                 tmp += 4;
335                 break;
336             default:
337                 *tmp = *src;
338                 tmp += 1;
339         }
340         src++;
341     }
342     *tmp = '\0';
343
344     return final_size;
345 }
346
347 static int64_t ffm_read_write_index(int fd)
348 {
349     uint8_t buf[8];
350
351     if (lseek(fd, 8, SEEK_SET) < 0)
352         return AVERROR(EIO);
353     if (read(fd, buf, 8) != 8)
354         return AVERROR(EIO);
355     return AV_RB64(buf);
356 }
357
358 static int ffm_write_write_index(int fd, int64_t pos)
359 {
360     uint8_t buf[8];
361     int i;
362
363     for(i=0;i<8;i++)
364         buf[i] = (pos >> (56 - i * 8)) & 0xff;
365     if (lseek(fd, 8, SEEK_SET) < 0)
366         goto bail_eio;
367     if (write(fd, buf, 8) != 8)
368         goto bail_eio;
369
370     return 8;
371
372 bail_eio:
373     return AVERROR(EIO);
374 }
375
376 static void ffm_set_write_index(AVFormatContext *s, int64_t pos,
377                                 int64_t file_size)
378 {
379     av_opt_set_int(s, "server_attached", 1, AV_OPT_SEARCH_CHILDREN);
380     av_opt_set_int(s, "ffm_write_index", pos, AV_OPT_SEARCH_CHILDREN);
381     av_opt_set_int(s, "ffm_file_size", file_size, AV_OPT_SEARCH_CHILDREN);
382 }
383
384 static char *ctime1(char *buf2, size_t buf_size)
385 {
386     time_t ti;
387     char *p;
388
389     ti = time(NULL);
390     p = ctime(&ti);
391     if (!p || !*p) {
392         *buf2 = '\0';
393         return buf2;
394     }
395     av_strlcpy(buf2, p, buf_size);
396     p = buf2 + strlen(buf2) - 1;
397     if (*p == '\n')
398         *p = '\0';
399     return buf2;
400 }
401
402 static void http_vlog(const char *fmt, va_list vargs)
403 {
404     static int print_prefix = 1;
405     char buf[32];
406
407     if (!logfile)
408         return;
409
410     if (print_prefix) {
411         ctime1(buf, sizeof(buf));
412         fprintf(logfile, "%s ", buf);
413     }
414     print_prefix = strstr(fmt, "\n") != NULL;
415     vfprintf(logfile, fmt, vargs);
416     fflush(logfile);
417 }
418
419 #ifdef __GNUC__
420 __attribute__ ((format (printf, 1, 2)))
421 #endif
422 static void http_log(const char *fmt, ...)
423 {
424     va_list vargs;
425     va_start(vargs, fmt);
426     http_vlog(fmt, vargs);
427     va_end(vargs);
428 }
429
430 static void http_av_log(void *ptr, int level, const char *fmt, va_list vargs)
431 {
432     static int print_prefix = 1;
433     AVClass *avc = ptr ? *(AVClass**)ptr : NULL;
434     if (level > av_log_get_level())
435         return;
436     if (print_prefix && avc)
437         http_log("[%s @ %p]", avc->item_name(ptr), ptr);
438     print_prefix = strstr(fmt, "\n") != NULL;
439     http_vlog(fmt, vargs);
440 }
441
442 static void log_connection(HTTPContext *c)
443 {
444     if (c->suppress_log)
445         return;
446
447     http_log("%s - - [%s] \"%s %s\" %d %"PRId64"\n",
448              inet_ntoa(c->from_addr.sin_addr), c->method, c->url,
449              c->protocol, (c->http_error ? c->http_error : 200), c->data_count);
450 }
451
452 static void update_datarate(DataRateData *drd, int64_t count)
453 {
454     if (!drd->time1 && !drd->count1) {
455         drd->time1 = drd->time2 = cur_time;
456         drd->count1 = drd->count2 = count;
457     } else if (cur_time - drd->time2 > 5000) {
458         drd->time1 = drd->time2;
459         drd->count1 = drd->count2;
460         drd->time2 = cur_time;
461         drd->count2 = count;
462     }
463 }
464
465 /* In bytes per second */
466 static int compute_datarate(DataRateData *drd, int64_t count)
467 {
468     if (cur_time == drd->time1)
469         return 0;
470
471     return ((count - drd->count1) * 1000) / (cur_time - drd->time1);
472 }
473
474
475 static void start_children(FFServerStream *feed)
476 {
477     char *pathname;
478     char *slash;
479     int i;
480     size_t cmd_length;
481
482     if (no_launch)
483         return;
484
485     cmd_length = strlen(my_program_name);
486
487    /**
488     * FIXME: WIP Safeguard. Remove after clearing all harcoded
489     * '1024' path lengths
490     */
491     if (cmd_length > PATH_LENGTH - 1) {
492         http_log("Could not start children. Command line: '%s' exceeds "
493                     "path length limit (%d)\n", my_program_name, PATH_LENGTH);
494         return;
495     }
496
497     pathname = av_strdup (my_program_name);
498     if (!pathname) {
499         http_log("Could not allocate memory for children cmd line\n");
500         return;
501     }
502    /* replace "ffserver" with "ffmpeg" in the path of current
503     * program. Ignore user provided path */
504
505     slash = strrchr(pathname, '/');
506     if (!slash)
507         slash = pathname;
508     else
509         slash++;
510     strcpy(slash, "ffmpeg");
511
512     for (; feed; feed = feed->next) {
513
514         if (!feed->child_argv || feed->pid)
515             continue;
516
517         feed->pid_start = time(0);
518
519         feed->pid = fork();
520         if (feed->pid < 0) {
521             http_log("Unable to create children: %s\n", strerror(errno));
522             av_free (pathname);
523             exit(EXIT_FAILURE);
524         }
525
526         if (feed->pid)
527             continue;
528
529         /* In child */
530
531         http_log("Launch command line: ");
532         http_log("%s ", pathname);
533
534         for (i = 1; feed->child_argv[i] && feed->child_argv[i][0]; i++)
535             http_log("%s ", feed->child_argv[i]);
536         http_log("\n");
537
538         for (i = 3; i < 256; i++)
539             close(i);
540
541         if (!config.debug) {
542             if (!freopen("/dev/null", "r", stdin))
543                 http_log("failed to redirect STDIN to /dev/null\n;");
544             if (!freopen("/dev/null", "w", stdout))
545                 http_log("failed to redirect STDOUT to /dev/null\n;");
546             if (!freopen("/dev/null", "w", stderr))
547                 http_log("failed to redirect STDERR to /dev/null\n;");
548         }
549
550         signal(SIGPIPE, SIG_DFL);
551         execvp(pathname, feed->child_argv);
552         av_free (pathname);
553         _exit(1);
554     }
555     av_free (pathname);
556 }
557
558 /* open a listening socket */
559 static int socket_open_listen(struct sockaddr_in *my_addr)
560 {
561     int server_fd, tmp;
562
563     server_fd = socket(AF_INET,SOCK_STREAM,0);
564     if (server_fd < 0) {
565         perror ("socket");
566         return -1;
567     }
568
569     tmp = 1;
570     if (setsockopt(server_fd, SOL_SOCKET, SO_REUSEADDR, &tmp, sizeof(tmp)))
571         av_log(NULL, AV_LOG_WARNING, "setsockopt SO_REUSEADDR failed\n");
572
573     my_addr->sin_family = AF_INET;
574     if (bind (server_fd, (struct sockaddr *) my_addr, sizeof (*my_addr)) < 0) {
575         char bindmsg[32];
576         snprintf(bindmsg, sizeof(bindmsg), "bind(port %d)",
577                  ntohs(my_addr->sin_port));
578         perror (bindmsg);
579         goto fail;
580     }
581
582     if (listen (server_fd, 5) < 0) {
583         perror ("listen");
584         goto fail;
585     }
586
587     if (ff_socket_nonblock(server_fd, 1) < 0)
588         av_log(NULL, AV_LOG_WARNING, "ff_socket_nonblock failed\n");
589
590     return server_fd;
591
592 fail:
593     closesocket(server_fd);
594     return -1;
595 }
596
597 /* start all multicast streams */
598 static void start_multicast(void)
599 {
600     FFServerStream *stream;
601     char session_id[32];
602     HTTPContext *rtp_c;
603     struct sockaddr_in dest_addr = {0};
604     int default_port, stream_index;
605     unsigned int random0, random1;
606
607     default_port = 6000;
608     for(stream = config.first_stream; stream; stream = stream->next) {
609
610         if (!stream->is_multicast)
611             continue;
612
613         random0 = av_lfg_get(&random_state);
614         random1 = av_lfg_get(&random_state);
615
616         /* open the RTP connection */
617         snprintf(session_id, sizeof(session_id), "%08x%08x", random0, random1);
618
619         /* choose a port if none given */
620         if (stream->multicast_port == 0) {
621             stream->multicast_port = default_port;
622             default_port += 100;
623         }
624
625         dest_addr.sin_family = AF_INET;
626         dest_addr.sin_addr = stream->multicast_ip;
627         dest_addr.sin_port = htons(stream->multicast_port);
628
629         rtp_c = rtp_new_connection(&dest_addr, stream, session_id,
630                                    RTSP_LOWER_TRANSPORT_UDP_MULTICAST);
631         if (!rtp_c)
632             continue;
633
634         if (open_input_stream(rtp_c, "") < 0) {
635             http_log("Could not open input stream for stream '%s'\n",
636                      stream->filename);
637             continue;
638         }
639
640         /* open each RTP stream */
641         for(stream_index = 0; stream_index < stream->nb_streams;
642             stream_index++) {
643             dest_addr.sin_port = htons(stream->multicast_port +
644                                        2 * stream_index);
645             if (rtp_new_av_stream(rtp_c, stream_index, &dest_addr, NULL) >= 0)
646                 continue;
647
648             http_log("Could not open output stream '%s/streamid=%d'\n",
649                      stream->filename, stream_index);
650             exit(1);
651         }
652
653         rtp_c->state = HTTPSTATE_SEND_DATA;
654     }
655 }
656
657 /* main loop of the HTTP server */
658 static int http_server(void)
659 {
660     int server_fd = 0, rtsp_server_fd = 0;
661     int ret, delay;
662     struct pollfd *poll_table, *poll_entry;
663     HTTPContext *c, *c_next;
664
665     poll_table = av_mallocz_array(config.nb_max_http_connections + 2,
666                                   sizeof(*poll_table));
667     if(!poll_table) {
668         http_log("Impossible to allocate a poll table handling %d "
669                  "connections.\n", config.nb_max_http_connections);
670         return -1;
671     }
672
673     if (config.http_addr.sin_port) {
674         server_fd = socket_open_listen(&config.http_addr);
675         if (server_fd < 0)
676             goto quit;
677     }
678
679     if (config.rtsp_addr.sin_port) {
680         rtsp_server_fd = socket_open_listen(&config.rtsp_addr);
681         if (rtsp_server_fd < 0) {
682             closesocket(server_fd);
683             goto quit;
684         }
685     }
686
687     if (!rtsp_server_fd && !server_fd) {
688         http_log("HTTP and RTSP disabled.\n");
689         goto quit;
690     }
691
692     http_log("FFserver started.\n");
693
694     start_children(config.first_feed);
695
696     start_multicast();
697
698     for(;;) {
699         poll_entry = poll_table;
700         if (server_fd) {
701             poll_entry->fd = server_fd;
702             poll_entry->events = POLLIN;
703             poll_entry++;
704         }
705         if (rtsp_server_fd) {
706             poll_entry->fd = rtsp_server_fd;
707             poll_entry->events = POLLIN;
708             poll_entry++;
709         }
710
711         /* wait for events on each HTTP handle */
712         c = first_http_ctx;
713         delay = 1000;
714         while (c) {
715             int fd;
716             fd = c->fd;
717             switch(c->state) {
718             case HTTPSTATE_SEND_HEADER:
719             case RTSPSTATE_SEND_REPLY:
720             case RTSPSTATE_SEND_PACKET:
721                 c->poll_entry = poll_entry;
722                 poll_entry->fd = fd;
723                 poll_entry->events = POLLOUT;
724                 poll_entry++;
725                 break;
726             case HTTPSTATE_SEND_DATA_HEADER:
727             case HTTPSTATE_SEND_DATA:
728             case HTTPSTATE_SEND_DATA_TRAILER:
729                 if (!c->is_packetized) {
730                     /* for TCP, we output as much as we can
731                      * (may need to put a limit) */
732                     c->poll_entry = poll_entry;
733                     poll_entry->fd = fd;
734                     poll_entry->events = POLLOUT;
735                     poll_entry++;
736                 } else {
737                     /* when ffserver is doing the timing, we work by
738                      * looking at which packet needs to be sent every
739                      * 10 ms (one tick wait XXX: 10 ms assumed) */
740                     if (delay > 10)
741                         delay = 10;
742                 }
743                 break;
744             case HTTPSTATE_WAIT_REQUEST:
745             case HTTPSTATE_RECEIVE_DATA:
746             case HTTPSTATE_WAIT_FEED:
747             case RTSPSTATE_WAIT_REQUEST:
748                 /* need to catch errors */
749                 c->poll_entry = poll_entry;
750                 poll_entry->fd = fd;
751                 poll_entry->events = POLLIN;/* Maybe this will work */
752                 poll_entry++;
753                 break;
754             default:
755                 c->poll_entry = NULL;
756                 break;
757             }
758             c = c->next;
759         }
760
761         /* wait for an event on one connection. We poll at least every
762          * second to handle timeouts */
763         do {
764             ret = poll(poll_table, poll_entry - poll_table, delay);
765             if (ret < 0 && ff_neterrno() != AVERROR(EAGAIN) &&
766                 ff_neterrno() != AVERROR(EINTR)) {
767                 goto quit;
768             }
769         } while (ret < 0);
770
771         cur_time = av_gettime() / 1000;
772
773         if (need_to_start_children) {
774             need_to_start_children = 0;
775             start_children(config.first_feed);
776         }
777
778         /* now handle the events */
779         for(c = first_http_ctx; c; c = c_next) {
780             c_next = c->next;
781             if (handle_connection(c) < 0) {
782                 log_connection(c);
783                 /* close and free the connection */
784                 close_connection(c);
785             }
786         }
787
788         poll_entry = poll_table;
789         if (server_fd) {
790             /* new HTTP connection request ? */
791             if (poll_entry->revents & POLLIN)
792                 new_connection(server_fd, 0);
793             poll_entry++;
794         }
795         if (rtsp_server_fd) {
796             /* new RTSP connection request ? */
797             if (poll_entry->revents & POLLIN)
798                 new_connection(rtsp_server_fd, 1);
799         }
800     }
801
802 quit:
803     av_free(poll_table);
804     return -1;
805 }
806
807 /* start waiting for a new HTTP/RTSP request */
808 static void start_wait_request(HTTPContext *c, int is_rtsp)
809 {
810     c->buffer_ptr = c->buffer;
811     c->buffer_end = c->buffer + c->buffer_size - 1; /* leave room for '\0' */
812
813     c->state = is_rtsp ? RTSPSTATE_WAIT_REQUEST : HTTPSTATE_WAIT_REQUEST;
814     c->timeout = cur_time +
815                  (is_rtsp ? RTSP_REQUEST_TIMEOUT : HTTP_REQUEST_TIMEOUT);
816 }
817
818 static void http_send_too_busy_reply(int fd)
819 {
820     char buffer[400];
821     int len = snprintf(buffer, sizeof(buffer),
822                        "HTTP/1.0 503 Server too busy\r\n"
823                        "Content-type: text/html\r\n"
824                        "\r\n"
825                        "<!DOCTYPE html>\n"
826                        "<html><head><title>Too busy</title></head><body>\r\n"
827                        "<p>The server is too busy to serve your request at "
828                        "this time.</p>\r\n"
829                        "<p>The number of current connections is %u, and this "
830                        "exceeds the limit of %u.</p>\r\n"
831                        "</body></html>\r\n",
832                        nb_connections, config.nb_max_connections);
833     av_assert0(len < sizeof(buffer));
834     if (send(fd, buffer, len, 0) < len)
835         av_log(NULL, AV_LOG_WARNING,
836                "Could not send too-busy reply, send() failed\n");
837 }
838
839
840 static void new_connection(int server_fd, int is_rtsp)
841 {
842     struct sockaddr_in from_addr;
843     socklen_t len;
844     int fd;
845     HTTPContext *c = NULL;
846
847     len = sizeof(from_addr);
848     fd = accept(server_fd, (struct sockaddr *)&from_addr,
849                 &len);
850     if (fd < 0) {
851         http_log("error during accept %s\n", strerror(errno));
852         return;
853     }
854     if (ff_socket_nonblock(fd, 1) < 0)
855         av_log(NULL, AV_LOG_WARNING, "ff_socket_nonblock failed\n");
856
857     if (nb_connections >= config.nb_max_connections) {
858         http_send_too_busy_reply(fd);
859         goto fail;
860     }
861
862     /* add a new connection */
863     c = av_mallocz(sizeof(HTTPContext));
864     if (!c)
865         goto fail;
866
867     c->fd = fd;
868     c->poll_entry = NULL;
869     c->from_addr = from_addr;
870     c->buffer_size = IOBUFFER_INIT_SIZE;
871     c->buffer = av_malloc(c->buffer_size);
872     if (!c->buffer)
873         goto fail;
874
875     c->next = first_http_ctx;
876     first_http_ctx = c;
877     nb_connections++;
878
879     start_wait_request(c, is_rtsp);
880
881     return;
882
883  fail:
884     if (c) {
885         av_freep(&c->buffer);
886         av_free(c);
887     }
888     closesocket(fd);
889 }
890
891 static void close_connection(HTTPContext *c)
892 {
893     HTTPContext **cp, *c1;
894     int i, nb_streams;
895     AVFormatContext *ctx;
896     AVStream *st;
897
898     /* remove connection from list */
899     cp = &first_http_ctx;
900     while (*cp) {
901         c1 = *cp;
902         if (c1 == c)
903             *cp = c->next;
904         else
905             cp = &c1->next;
906     }
907
908     /* remove references, if any (XXX: do it faster) */
909     for(c1 = first_http_ctx; c1; c1 = c1->next) {
910         if (c1->rtsp_c == c)
911             c1->rtsp_c = NULL;
912     }
913
914     /* remove connection associated resources */
915     if (c->fd >= 0)
916         closesocket(c->fd);
917     if (c->fmt_in) {
918         /* close each frame parser */
919         for(i=0;i<c->fmt_in->nb_streams;i++) {
920             st = c->fmt_in->streams[i];
921             if (st->codec->codec)
922                 avcodec_close(st->codec);
923         }
924         avformat_close_input(&c->fmt_in);
925     }
926
927     /* free RTP output streams if any */
928     nb_streams = 0;
929     if (c->stream)
930         nb_streams = c->stream->nb_streams;
931
932     for(i=0;i<nb_streams;i++) {
933         ctx = c->rtp_ctx[i];
934         if (ctx) {
935             av_write_trailer(ctx);
936             av_dict_free(&ctx->metadata);
937             av_freep(&ctx->streams[0]);
938             av_freep(&ctx);
939         }
940         ffurl_close(c->rtp_handles[i]);
941     }
942
943     ctx = c->pfmt_ctx;
944
945     if (ctx) {
946         if (!c->last_packet_sent && c->state == HTTPSTATE_SEND_DATA_TRAILER) {
947             /* prepare header */
948             if (ctx->oformat && avio_open_dyn_buf(&ctx->pb) >= 0) {
949                 av_write_trailer(ctx);
950                 av_freep(&c->pb_buffer);
951                 avio_close_dyn_buf(ctx->pb, &c->pb_buffer);
952             }
953         }
954         for(i=0; i<ctx->nb_streams; i++)
955             av_freep(&ctx->streams[i]);
956         av_freep(&ctx->streams);
957         av_freep(&ctx->priv_data);
958         }
959
960     if (c->stream && !c->post && c->stream->stream_type == STREAM_TYPE_LIVE)
961         current_bandwidth -= c->stream->bandwidth;
962
963     /* signal that there is no feed if we are the feeder socket */
964     if (c->state == HTTPSTATE_RECEIVE_DATA && c->stream) {
965         c->stream->feed_opened = 0;
966         close(c->feed_fd);
967     }
968
969     av_freep(&c->pb_buffer);
970     av_freep(&c->packet_buffer);
971     av_freep(&c->buffer);
972     av_free(c);
973     nb_connections--;
974 }
975
976 static int handle_connection(HTTPContext *c)
977 {
978     int len, ret;
979     uint8_t *ptr;
980
981     switch(c->state) {
982     case HTTPSTATE_WAIT_REQUEST:
983     case RTSPSTATE_WAIT_REQUEST:
984         /* timeout ? */
985         if ((c->timeout - cur_time) < 0)
986             return -1;
987         if (c->poll_entry->revents & (POLLERR | POLLHUP))
988             return -1;
989
990         /* no need to read if no events */
991         if (!(c->poll_entry->revents & POLLIN))
992             return 0;
993         /* read the data */
994     read_loop:
995         if (!(len = recv(c->fd, c->buffer_ptr, 1, 0)))
996             return -1;
997
998         if (len < 0) {
999             if (ff_neterrno() != AVERROR(EAGAIN) &&
1000                 ff_neterrno() != AVERROR(EINTR))
1001                 return -1;
1002             break;
1003         }
1004         /* search for end of request. */
1005         c->buffer_ptr += len;
1006         ptr = c->buffer_ptr;
1007         if ((ptr >= c->buffer + 2 && !memcmp(ptr-2, "\n\n", 2)) ||
1008             (ptr >= c->buffer + 4 && !memcmp(ptr-4, "\r\n\r\n", 4))) {
1009             /* request found : parse it and reply */
1010             if (c->state == HTTPSTATE_WAIT_REQUEST)
1011                 ret = http_parse_request(c);
1012             else
1013                 ret = rtsp_parse_request(c);
1014
1015             if (ret < 0)
1016                 return -1;
1017         } else if (ptr >= c->buffer_end) {
1018             /* request too long: cannot do anything */
1019             return -1;
1020         } else goto read_loop;
1021
1022         break;
1023
1024     case HTTPSTATE_SEND_HEADER:
1025         if (c->poll_entry->revents & (POLLERR | POLLHUP))
1026             return -1;
1027
1028         /* no need to write if no events */
1029         if (!(c->poll_entry->revents & POLLOUT))
1030             return 0;
1031         len = send(c->fd, c->buffer_ptr, c->buffer_end - c->buffer_ptr, 0);
1032         if (len < 0) {
1033             if (ff_neterrno() != AVERROR(EAGAIN) &&
1034                 ff_neterrno() != AVERROR(EINTR)) {
1035                 goto close_connection;
1036             }
1037             break;
1038         }
1039         c->buffer_ptr += len;
1040         if (c->stream)
1041             c->stream->bytes_served += len;
1042         c->data_count += len;
1043         if (c->buffer_ptr >= c->buffer_end) {
1044             av_freep(&c->pb_buffer);
1045             /* if error, exit */
1046             if (c->http_error)
1047                 return -1;
1048             /* all the buffer was sent : synchronize to the incoming
1049              * stream */
1050             c->state = HTTPSTATE_SEND_DATA_HEADER;
1051             c->buffer_ptr = c->buffer_end = c->buffer;
1052         }
1053         break;
1054
1055     case HTTPSTATE_SEND_DATA:
1056     case HTTPSTATE_SEND_DATA_HEADER:
1057     case HTTPSTATE_SEND_DATA_TRAILER:
1058         /* for packetized output, we consider we can always write (the
1059          * input streams set the speed). It may be better to verify
1060          * that we do not rely too much on the kernel queues */
1061         if (!c->is_packetized) {
1062             if (c->poll_entry->revents & (POLLERR | POLLHUP))
1063                 return -1;
1064
1065             /* no need to read if no events */
1066             if (!(c->poll_entry->revents & POLLOUT))
1067                 return 0;
1068         }
1069         if (http_send_data(c) < 0)
1070             return -1;
1071         /* close connection if trailer sent */
1072         if (c->state == HTTPSTATE_SEND_DATA_TRAILER)
1073             return -1;
1074         /* Check if it is a single jpeg frame 123 */
1075         if (c->stream->single_frame && c->data_count > c->cur_frame_bytes && c->cur_frame_bytes > 0) {
1076             close_connection(c);
1077         }
1078         break;
1079     case HTTPSTATE_RECEIVE_DATA:
1080         /* no need to read if no events */
1081         if (c->poll_entry->revents & (POLLERR | POLLHUP))
1082             return -1;
1083         if (!(c->poll_entry->revents & POLLIN))
1084             return 0;
1085         if (http_receive_data(c) < 0)
1086             return -1;
1087         break;
1088     case HTTPSTATE_WAIT_FEED:
1089         /* no need to read if no events */
1090         if (c->poll_entry->revents & (POLLIN | POLLERR | POLLHUP))
1091             return -1;
1092
1093         /* nothing to do, we'll be waken up by incoming feed packets */
1094         break;
1095
1096     case RTSPSTATE_SEND_REPLY:
1097         if (c->poll_entry->revents & (POLLERR | POLLHUP))
1098             goto close_connection;
1099         /* no need to write if no events */
1100         if (!(c->poll_entry->revents & POLLOUT))
1101             return 0;
1102         len = send(c->fd, c->buffer_ptr, c->buffer_end - c->buffer_ptr, 0);
1103         if (len < 0) {
1104             if (ff_neterrno() != AVERROR(EAGAIN) &&
1105                 ff_neterrno() != AVERROR(EINTR)) {
1106                 goto close_connection;
1107             }
1108             break;
1109         }
1110         c->buffer_ptr += len;
1111         c->data_count += len;
1112         if (c->buffer_ptr >= c->buffer_end) {
1113             /* all the buffer was sent : wait for a new request */
1114             av_freep(&c->pb_buffer);
1115             start_wait_request(c, 1);
1116         }
1117         break;
1118     case RTSPSTATE_SEND_PACKET:
1119         if (c->poll_entry->revents & (POLLERR | POLLHUP)) {
1120             av_freep(&c->packet_buffer);
1121             return -1;
1122         }
1123         /* no need to write if no events */
1124         if (!(c->poll_entry->revents & POLLOUT))
1125             return 0;
1126         len = send(c->fd, c->packet_buffer_ptr,
1127                     c->packet_buffer_end - c->packet_buffer_ptr, 0);
1128         if (len < 0) {
1129             if (ff_neterrno() != AVERROR(EAGAIN) &&
1130                 ff_neterrno() != AVERROR(EINTR)) {
1131                 /* error : close connection */
1132                 av_freep(&c->packet_buffer);
1133                 return -1;
1134             }
1135             break;
1136         }
1137         c->packet_buffer_ptr += len;
1138         if (c->packet_buffer_ptr >= c->packet_buffer_end) {
1139             /* all the buffer was sent : wait for a new request */
1140             av_freep(&c->packet_buffer);
1141             c->state = RTSPSTATE_WAIT_REQUEST;
1142         }
1143         break;
1144     case HTTPSTATE_READY:
1145         /* nothing to do */
1146         break;
1147     default:
1148         return -1;
1149     }
1150     return 0;
1151
1152 close_connection:
1153     av_freep(&c->pb_buffer);
1154     return -1;
1155 }
1156
1157 static int extract_rates(char *rates, int ratelen, const char *request)
1158 {
1159     const char *p;
1160
1161     for (p = request; *p && *p != '\r' && *p != '\n'; ) {
1162         if (av_strncasecmp(p, "Pragma:", 7) == 0) {
1163             const char *q = p + 7;
1164
1165             while (*q && *q != '\n' && av_isspace(*q))
1166                 q++;
1167
1168             if (av_strncasecmp(q, "stream-switch-entry=", 20) == 0) {
1169                 int stream_no;
1170                 int rate_no;
1171
1172                 q += 20;
1173
1174                 memset(rates, 0xff, ratelen);
1175
1176                 while (1) {
1177                     while (*q && *q != '\n' && *q != ':')
1178                         q++;
1179
1180                     if (sscanf(q, ":%d:%d", &stream_no, &rate_no) != 2)
1181                         break;
1182
1183                     stream_no--;
1184                     if (stream_no < ratelen && stream_no >= 0)
1185                         rates[stream_no] = rate_no;
1186
1187                     while (*q && *q != '\n' && !av_isspace(*q))
1188                         q++;
1189                 }
1190
1191                 return 1;
1192             }
1193         }
1194         p = strchr(p, '\n');
1195         if (!p)
1196             break;
1197
1198         p++;
1199     }
1200
1201     return 0;
1202 }
1203
1204 static int find_stream_in_feed(FFServerStream *feed, AVCodecParameters *codec,
1205                                int bit_rate)
1206 {
1207     int i;
1208     int best_bitrate = 100000000;
1209     int best = -1;
1210
1211     for (i = 0; i < feed->nb_streams; i++) {
1212         AVCodecParameters *feed_codec = feed->streams[i]->codecpar;
1213
1214         if (feed_codec->codec_id != codec->codec_id ||
1215             feed_codec->sample_rate != codec->sample_rate ||
1216             feed_codec->width != codec->width ||
1217             feed_codec->height != codec->height)
1218             continue;
1219
1220         /* Potential stream */
1221
1222         /* We want the fastest stream less than bit_rate, or the slowest
1223          * faster than bit_rate
1224          */
1225
1226         if (feed_codec->bit_rate <= bit_rate) {
1227             if (best_bitrate > bit_rate ||
1228                 feed_codec->bit_rate > best_bitrate) {
1229                 best_bitrate = feed_codec->bit_rate;
1230                 best = i;
1231             }
1232             continue;
1233         }
1234         if (feed_codec->bit_rate < best_bitrate) {
1235             best_bitrate = feed_codec->bit_rate;
1236             best = i;
1237         }
1238     }
1239     return best;
1240 }
1241
1242 static int modify_current_stream(HTTPContext *c, char *rates)
1243 {
1244     int i;
1245     FFServerStream *req = c->stream;
1246     int action_required = 0;
1247
1248     /* Not much we can do for a feed */
1249     if (!req->feed)
1250         return 0;
1251
1252     for (i = 0; i < req->nb_streams; i++) {
1253         AVCodecParameters *codec = req->streams[i]->codecpar;
1254
1255         switch(rates[i]) {
1256             case 0:
1257                 c->switch_feed_streams[i] = req->feed_streams[i];
1258                 break;
1259             case 1:
1260                 c->switch_feed_streams[i] = find_stream_in_feed(req->feed, codec, codec->bit_rate / 2);
1261                 break;
1262             case 2:
1263                 /* Wants off or slow */
1264                 c->switch_feed_streams[i] = find_stream_in_feed(req->feed, codec, codec->bit_rate / 4);
1265 #ifdef WANTS_OFF
1266                 /* This doesn't work well when it turns off the only stream! */
1267                 c->switch_feed_streams[i] = -2;
1268                 c->feed_streams[i] = -2;
1269 #endif
1270                 break;
1271         }
1272
1273         if (c->switch_feed_streams[i] >= 0 &&
1274             c->switch_feed_streams[i] != c->feed_streams[i]) {
1275             action_required = 1;
1276         }
1277     }
1278
1279     return action_required;
1280 }
1281
1282 static void get_word(char *buf, int buf_size, const char **pp)
1283 {
1284     const char *p;
1285     char *q;
1286
1287 #define SPACE_CHARS " \t\r\n"
1288
1289     p = *pp;
1290     p += strspn(p, SPACE_CHARS);
1291     q = buf;
1292     while (!av_isspace(*p) && *p != '\0') {
1293         if ((q - buf) < buf_size - 1)
1294             *q++ = *p;
1295         p++;
1296     }
1297     if (buf_size > 0)
1298         *q = '\0';
1299     *pp = p;
1300 }
1301
1302 static FFServerIPAddressACL* parse_dynamic_acl(FFServerStream *stream,
1303                                                HTTPContext *c)
1304 {
1305     FILE* f;
1306     char line[1024];
1307     char  cmd[1024];
1308     FFServerIPAddressACL *acl = NULL;
1309     int line_num = 0;
1310     const char *p;
1311
1312     f = fopen(stream->dynamic_acl, "r");
1313     if (!f) {
1314         perror(stream->dynamic_acl);
1315         return NULL;
1316     }
1317
1318     acl = av_mallocz(sizeof(FFServerIPAddressACL));
1319     if (!acl) {
1320         fclose(f);
1321         return NULL;
1322     }
1323
1324     /* Build ACL */
1325     while (fgets(line, sizeof(line), f)) {
1326         line_num++;
1327         p = line;
1328         while (av_isspace(*p))
1329             p++;
1330         if (*p == '\0' || *p == '#')
1331             continue;
1332         ffserver_get_arg(cmd, sizeof(cmd), &p);
1333
1334         if (!av_strcasecmp(cmd, "ACL"))
1335             ffserver_parse_acl_row(NULL, NULL, acl, p, stream->dynamic_acl,
1336                                    line_num);
1337     }
1338     fclose(f);
1339     return acl;
1340 }
1341
1342
1343 static void free_acl_list(FFServerIPAddressACL *in_acl)
1344 {
1345     FFServerIPAddressACL *pacl, *pacl2;
1346
1347     pacl = in_acl;
1348     while(pacl) {
1349         pacl2 = pacl;
1350         pacl = pacl->next;
1351         av_freep(pacl2);
1352     }
1353 }
1354
1355 static int validate_acl_list(FFServerIPAddressACL *in_acl, HTTPContext *c)
1356 {
1357     enum FFServerIPAddressAction last_action = IP_DENY;
1358     FFServerIPAddressACL *acl;
1359     struct in_addr *src = &c->from_addr.sin_addr;
1360     unsigned long src_addr = src->s_addr;
1361
1362     for (acl = in_acl; acl; acl = acl->next) {
1363         if (src_addr >= acl->first.s_addr && src_addr <= acl->last.s_addr)
1364             return (acl->action == IP_ALLOW) ? 1 : 0;
1365         last_action = acl->action;
1366     }
1367
1368     /* Nothing matched, so return not the last action */
1369     return (last_action == IP_DENY) ? 1 : 0;
1370 }
1371
1372 static int validate_acl(FFServerStream *stream, HTTPContext *c)
1373 {
1374     int ret = 0;
1375     FFServerIPAddressACL *acl;
1376
1377     /* if stream->acl is null validate_acl_list will return 1 */
1378     ret = validate_acl_list(stream->acl, c);
1379
1380     if (stream->dynamic_acl[0]) {
1381         acl = parse_dynamic_acl(stream, c);
1382         ret = validate_acl_list(acl, c);
1383         free_acl_list(acl);
1384     }
1385
1386     return ret;
1387 }
1388
1389 /**
1390  * compute the real filename of a file by matching it without its
1391  * extensions to all the stream's filenames
1392  */
1393 static void compute_real_filename(char *filename, int max_size)
1394 {
1395     char file1[1024];
1396     char file2[1024];
1397     char *p;
1398     FFServerStream *stream;
1399
1400     av_strlcpy(file1, filename, sizeof(file1));
1401     p = strrchr(file1, '.');
1402     if (p)
1403         *p = '\0';
1404     for(stream = config.first_stream; stream; stream = stream->next) {
1405         av_strlcpy(file2, stream->filename, sizeof(file2));
1406         p = strrchr(file2, '.');
1407         if (p)
1408             *p = '\0';
1409         if (!strcmp(file1, file2)) {
1410             av_strlcpy(filename, stream->filename, max_size);
1411             break;
1412         }
1413     }
1414 }
1415
1416 enum RedirType {
1417     REDIR_NONE,
1418     REDIR_ASX,
1419     REDIR_RAM,
1420     REDIR_ASF,
1421     REDIR_RTSP,
1422     REDIR_SDP,
1423 };
1424
1425 /* parse HTTP request and prepare header */
1426 static int http_parse_request(HTTPContext *c)
1427 {
1428     const char *p;
1429     char *p1;
1430     enum RedirType redir_type;
1431     char cmd[32];
1432     char info[1024], filename[1024];
1433     char url[1024], *q;
1434     char protocol[32];
1435     char msg[1024];
1436     char *encoded_msg = NULL;
1437     const char *mime_type;
1438     FFServerStream *stream;
1439     int i;
1440     char ratebuf[32];
1441     const char *useragent = 0;
1442
1443     p = c->buffer;
1444     get_word(cmd, sizeof(cmd), &p);
1445     av_strlcpy(c->method, cmd, sizeof(c->method));
1446
1447     if (!strcmp(cmd, "GET"))
1448         c->post = 0;
1449     else if (!strcmp(cmd, "POST"))
1450         c->post = 1;
1451     else
1452         return -1;
1453
1454     get_word(url, sizeof(url), &p);
1455     av_strlcpy(c->url, url, sizeof(c->url));
1456
1457     get_word(protocol, sizeof(protocol), (const char **)&p);
1458     if (strcmp(protocol, "HTTP/1.0") && strcmp(protocol, "HTTP/1.1"))
1459         return -1;
1460
1461     av_strlcpy(c->protocol, protocol, sizeof(c->protocol));
1462
1463     if (config.debug)
1464         http_log("%s - - New connection: %s %s\n",
1465                  inet_ntoa(c->from_addr.sin_addr), cmd, url);
1466
1467     /* find the filename and the optional info string in the request */
1468     p1 = strchr(url, '?');
1469     if (p1) {
1470         av_strlcpy(info, p1, sizeof(info));
1471         *p1 = '\0';
1472     } else
1473         info[0] = '\0';
1474
1475     av_strlcpy(filename, url + ((*url == '/') ? 1 : 0), sizeof(filename)-1);
1476
1477     for (p = c->buffer; *p && *p != '\r' && *p != '\n'; ) {
1478         if (av_strncasecmp(p, "User-Agent:", 11) == 0) {
1479             useragent = p + 11;
1480             if (*useragent && *useragent != '\n' && av_isspace(*useragent))
1481                 useragent++;
1482             break;
1483         }
1484         p = strchr(p, '\n');
1485         if (!p)
1486             break;
1487
1488         p++;
1489     }
1490
1491     redir_type = REDIR_NONE;
1492     if (av_match_ext(filename, "asx")) {
1493         redir_type = REDIR_ASX;
1494         filename[strlen(filename)-1] = 'f';
1495     } else if (av_match_ext(filename, "asf") &&
1496         (!useragent || av_strncasecmp(useragent, "NSPlayer", 8))) {
1497         /* if this isn't WMP or lookalike, return the redirector file */
1498         redir_type = REDIR_ASF;
1499     } else if (av_match_ext(filename, "rpm,ram")) {
1500         redir_type = REDIR_RAM;
1501         strcpy(filename + strlen(filename)-2, "m");
1502     } else if (av_match_ext(filename, "rtsp")) {
1503         redir_type = REDIR_RTSP;
1504         compute_real_filename(filename, sizeof(filename) - 1);
1505     } else if (av_match_ext(filename, "sdp")) {
1506         redir_type = REDIR_SDP;
1507         compute_real_filename(filename, sizeof(filename) - 1);
1508     }
1509
1510     /* "redirect" request to index.html */
1511     if (!strlen(filename))
1512         av_strlcpy(filename, "index.html", sizeof(filename) - 1);
1513
1514     stream = config.first_stream;
1515     while (stream) {
1516         if (!strcmp(stream->filename, filename) && validate_acl(stream, c))
1517             break;
1518         stream = stream->next;
1519     }
1520     if (!stream) {
1521         snprintf(msg, sizeof(msg), "File '%s' not found", url);
1522         http_log("File '%s' not found\n", url);
1523         goto send_error;
1524     }
1525
1526     c->stream = stream;
1527     memcpy(c->feed_streams, stream->feed_streams, sizeof(c->feed_streams));
1528     memset(c->switch_feed_streams, -1, sizeof(c->switch_feed_streams));
1529
1530     if (stream->stream_type == STREAM_TYPE_REDIRECT) {
1531         c->http_error = 301;
1532         q = c->buffer;
1533         snprintf(q, c->buffer_size,
1534                       "HTTP/1.0 301 Moved\r\n"
1535                       "Location: %s\r\n"
1536                       "Content-type: text/html\r\n"
1537                       "\r\n"
1538                       "<!DOCTYPE html>\n"
1539                       "<html><head><title>Moved</title></head><body>\r\n"
1540                       "You should be <a href=\"%s\">redirected</a>.\r\n"
1541                       "</body></html>\r\n",
1542                  stream->feed_filename, stream->feed_filename);
1543         q += strlen(q);
1544         /* prepare output buffer */
1545         c->buffer_ptr = c->buffer;
1546         c->buffer_end = q;
1547         c->state = HTTPSTATE_SEND_HEADER;
1548         return 0;
1549     }
1550
1551     /* If this is WMP, get the rate information */
1552     if (extract_rates(ratebuf, sizeof(ratebuf), c->buffer)) {
1553         if (modify_current_stream(c, ratebuf)) {
1554             for (i = 0; i < FF_ARRAY_ELEMS(c->feed_streams); i++) {
1555                 if (c->switch_feed_streams[i] >= 0)
1556                     c->switch_feed_streams[i] = -1;
1557             }
1558         }
1559     }
1560
1561     if (c->post == 0 && stream->stream_type == STREAM_TYPE_LIVE)
1562         current_bandwidth += stream->bandwidth;
1563
1564     /* If already streaming this feed, do not let another feeder start */
1565     if (stream->feed_opened) {
1566         snprintf(msg, sizeof(msg), "This feed is already being received.");
1567         http_log("Feed '%s' already being received\n", stream->feed_filename);
1568         goto send_error;
1569     }
1570
1571     if (c->post == 0 && config.max_bandwidth < current_bandwidth) {
1572         c->http_error = 503;
1573         q = c->buffer;
1574         snprintf(q, c->buffer_size,
1575                       "HTTP/1.0 503 Server too busy\r\n"
1576                       "Content-type: text/html\r\n"
1577                       "\r\n"
1578                       "<!DOCTYPE html>\n"
1579                       "<html><head><title>Too busy</title></head><body>\r\n"
1580                       "<p>The server is too busy to serve your request at "
1581                       "this time.</p>\r\n"
1582                       "<p>The bandwidth being served (including your stream) "
1583                       "is %"PRIu64"kbit/s, and this exceeds the limit of "
1584                       "%"PRIu64"kbit/s.</p>\r\n"
1585                       "</body></html>\r\n",
1586                  current_bandwidth, config.max_bandwidth);
1587         q += strlen(q);
1588         /* prepare output buffer */
1589         c->buffer_ptr = c->buffer;
1590         c->buffer_end = q;
1591         c->state = HTTPSTATE_SEND_HEADER;
1592         return 0;
1593     }
1594
1595     if (redir_type != REDIR_NONE) {
1596         const char *hostinfo = 0;
1597
1598         for (p = c->buffer; *p && *p != '\r' && *p != '\n'; ) {
1599             if (av_strncasecmp(p, "Host:", 5) == 0) {
1600                 hostinfo = p + 5;
1601                 break;
1602             }
1603             p = strchr(p, '\n');
1604             if (!p)
1605                 break;
1606
1607             p++;
1608         }
1609
1610         if (hostinfo) {
1611             char *eoh;
1612             char hostbuf[260];
1613
1614             while (av_isspace(*hostinfo))
1615                 hostinfo++;
1616
1617             eoh = strchr(hostinfo, '\n');
1618             if (eoh) {
1619                 if (eoh[-1] == '\r')
1620                     eoh--;
1621
1622                 if (eoh - hostinfo < sizeof(hostbuf) - 1) {
1623                     memcpy(hostbuf, hostinfo, eoh - hostinfo);
1624                     hostbuf[eoh - hostinfo] = 0;
1625
1626                     c->http_error = 200;
1627                     q = c->buffer;
1628                     switch(redir_type) {
1629                     case REDIR_ASX:
1630                         snprintf(q, c->buffer_size,
1631                                       "HTTP/1.0 200 ASX Follows\r\n"
1632                                       "Content-type: video/x-ms-asf\r\n"
1633                                       "\r\n"
1634                                       "<ASX Version=\"3\">\r\n"
1635                                       //"<!-- Autogenerated by ffserver -->\r\n"
1636                                       "<ENTRY><REF HREF=\"http://%s/%s%s\"/></ENTRY>\r\n"
1637                                       "</ASX>\r\n", hostbuf, filename, info);
1638                         q += strlen(q);
1639                         break;
1640                     case REDIR_RAM:
1641                         snprintf(q, c->buffer_size,
1642                                       "HTTP/1.0 200 RAM Follows\r\n"
1643                                       "Content-type: audio/x-pn-realaudio\r\n"
1644                                       "\r\n"
1645                                       "# Autogenerated by ffserver\r\n"
1646                                       "http://%s/%s%s\r\n", hostbuf, filename, info);
1647                         q += strlen(q);
1648                         break;
1649                     case REDIR_ASF:
1650                         snprintf(q, c->buffer_size,
1651                                       "HTTP/1.0 200 ASF Redirect follows\r\n"
1652                                       "Content-type: video/x-ms-asf\r\n"
1653                                       "\r\n"
1654                                       "[Reference]\r\n"
1655                                       "Ref1=http://%s/%s%s\r\n", hostbuf, filename, info);
1656                         q += strlen(q);
1657                         break;
1658                     case REDIR_RTSP:
1659                         {
1660                             char hostname[256], *p;
1661                             /* extract only hostname */
1662                             av_strlcpy(hostname, hostbuf, sizeof(hostname));
1663                             p = strrchr(hostname, ':');
1664                             if (p)
1665                                 *p = '\0';
1666                             snprintf(q, c->buffer_size,
1667                                           "HTTP/1.0 200 RTSP Redirect follows\r\n"
1668                                           /* XXX: incorrect MIME type ? */
1669                                           "Content-type: application/x-rtsp\r\n"
1670                                           "\r\n"
1671                                           "rtsp://%s:%d/%s\r\n", hostname, ntohs(config.rtsp_addr.sin_port), filename);
1672                             q += strlen(q);
1673                         }
1674                         break;
1675                     case REDIR_SDP:
1676                         {
1677                             uint8_t *sdp_data;
1678                             int sdp_data_size;
1679                             socklen_t len;
1680                             struct sockaddr_in my_addr;
1681
1682                             snprintf(q, c->buffer_size,
1683                                           "HTTP/1.0 200 OK\r\n"
1684                                           "Content-type: application/sdp\r\n"
1685                                           "\r\n");
1686                             q += strlen(q);
1687
1688                             len = sizeof(my_addr);
1689
1690                             /* XXX: Should probably fail? */
1691                             if (getsockname(c->fd, (struct sockaddr *)&my_addr, &len))
1692                                 http_log("getsockname() failed\n");
1693
1694                             /* XXX: should use a dynamic buffer */
1695                             sdp_data_size = prepare_sdp_description(stream,
1696                                                                     &sdp_data,
1697                                                                     my_addr.sin_addr);
1698                             if (sdp_data_size > 0) {
1699                                 memcpy(q, sdp_data, sdp_data_size);
1700                                 q += sdp_data_size;
1701                                 *q = '\0';
1702                                 av_freep(&sdp_data);
1703                             }
1704                         }
1705                         break;
1706                     default:
1707                         abort();
1708                         break;
1709                     }
1710
1711                     /* prepare output buffer */
1712                     c->buffer_ptr = c->buffer;
1713                     c->buffer_end = q;
1714                     c->state = HTTPSTATE_SEND_HEADER;
1715                     return 0;
1716                 }
1717             }
1718         }
1719
1720         snprintf(msg, sizeof(msg), "ASX/RAM file not handled");
1721         goto send_error;
1722     }
1723
1724     stream->conns_served++;
1725
1726     /* XXX: add there authenticate and IP match */
1727
1728     if (c->post) {
1729         /* if post, it means a feed is being sent */
1730         if (!stream->is_feed) {
1731             /* However it might be a status report from WMP! Let us log the
1732              * data as it might come handy one day. */
1733             const char *logline = 0;
1734             int client_id = 0;
1735
1736             for (p = c->buffer; *p && *p != '\r' && *p != '\n'; ) {
1737                 if (av_strncasecmp(p, "Pragma: log-line=", 17) == 0) {
1738                     logline = p;
1739                     break;
1740                 }
1741                 if (av_strncasecmp(p, "Pragma: client-id=", 18) == 0)
1742                     client_id = strtol(p + 18, 0, 10);
1743                 p = strchr(p, '\n');
1744                 if (!p)
1745                     break;
1746
1747                 p++;
1748             }
1749
1750             if (logline) {
1751                 char *eol = strchr(logline, '\n');
1752
1753                 logline += 17;
1754
1755                 if (eol) {
1756                     if (eol[-1] == '\r')
1757                         eol--;
1758                     http_log("%.*s\n", (int) (eol - logline), logline);
1759                     c->suppress_log = 1;
1760                 }
1761             }
1762
1763 #ifdef DEBUG
1764             http_log("\nGot request:\n%s\n", c->buffer);
1765 #endif
1766
1767             if (client_id && extract_rates(ratebuf, sizeof(ratebuf), c->buffer)) {
1768                 HTTPContext *wmpc;
1769
1770                 /* Now we have to find the client_id */
1771                 for (wmpc = first_http_ctx; wmpc; wmpc = wmpc->next) {
1772                     if (wmpc->wmp_client_id == client_id)
1773                         break;
1774                 }
1775
1776                 if (wmpc && modify_current_stream(wmpc, ratebuf))
1777                     wmpc->switch_pending = 1;
1778             }
1779
1780             snprintf(msg, sizeof(msg), "POST command not handled");
1781             c->stream = 0;
1782             goto send_error;
1783         }
1784         if (http_start_receive_data(c) < 0) {
1785             snprintf(msg, sizeof(msg), "could not open feed");
1786             goto send_error;
1787         }
1788         c->http_error = 0;
1789         c->state = HTTPSTATE_RECEIVE_DATA;
1790         return 0;
1791     }
1792
1793 #ifdef DEBUG
1794     if (strcmp(stream->filename + strlen(stream->filename) - 4, ".asf") == 0)
1795         http_log("\nGot request:\n%s\n", c->buffer);
1796 #endif
1797
1798     if (c->stream->stream_type == STREAM_TYPE_STATUS)
1799         goto send_status;
1800
1801     /* open input stream */
1802     if (open_input_stream(c, info) < 0) {
1803         snprintf(msg, sizeof(msg), "Input stream corresponding to '%s' not found", url);
1804         goto send_error;
1805     }
1806
1807     /* prepare HTTP header */
1808     c->buffer[0] = 0;
1809     av_strlcatf(c->buffer, c->buffer_size, "HTTP/1.0 200 OK\r\n");
1810     mime_type = c->stream->fmt->mime_type;
1811     if (!mime_type)
1812         mime_type = "application/x-octet-stream";
1813     av_strlcatf(c->buffer, c->buffer_size, "Pragma: no-cache\r\n");
1814
1815     /* for asf, we need extra headers */
1816     if (!strcmp(c->stream->fmt->name,"asf_stream")) {
1817         /* Need to allocate a client id */
1818
1819         c->wmp_client_id = av_lfg_get(&random_state);
1820
1821         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);
1822     }
1823     av_strlcatf(c->buffer, c->buffer_size, "Content-Type: %s\r\n", mime_type);
1824     av_strlcatf(c->buffer, c->buffer_size, "\r\n");
1825     q = c->buffer + strlen(c->buffer);
1826
1827     /* prepare output buffer */
1828     c->http_error = 0;
1829     c->buffer_ptr = c->buffer;
1830     c->buffer_end = q;
1831     c->state = HTTPSTATE_SEND_HEADER;
1832     return 0;
1833  send_error:
1834     c->http_error = 404;
1835     q = c->buffer;
1836     if (!htmlencode(msg, &encoded_msg)) {
1837         http_log("Could not encode filename '%s' as HTML\n", msg);
1838     }
1839     snprintf(q, c->buffer_size,
1840                   "HTTP/1.0 404 Not Found\r\n"
1841                   "Content-type: text/html\r\n"
1842                   "\r\n"
1843                   "<!DOCTYPE html>\n"
1844                   "<html>\n"
1845                   "<head>\n"
1846                   "<meta charset=\"UTF-8\">\n"
1847                   "<title>404 Not Found</title>\n"
1848                   "</head>\n"
1849                   "<body>%s</body>\n"
1850                   "</html>\n", encoded_msg? encoded_msg : "File not found");
1851     q += strlen(q);
1852     /* prepare output buffer */
1853     c->buffer_ptr = c->buffer;
1854     c->buffer_end = q;
1855     c->state = HTTPSTATE_SEND_HEADER;
1856     av_freep(&encoded_msg);
1857     return 0;
1858  send_status:
1859     compute_status(c);
1860     /* horrible: we use this value to avoid
1861      * going to the send data state */
1862     c->http_error = 200;
1863     c->state = HTTPSTATE_SEND_HEADER;
1864     return 0;
1865 }
1866
1867 static void fmt_bytecount(AVIOContext *pb, int64_t count)
1868 {
1869     static const char suffix[] = " kMGTP";
1870     const char *s;
1871
1872     for (s = suffix; count >= 100000 && s[1]; count /= 1000, s++);
1873
1874     avio_printf(pb, "%"PRId64"%c", count, *s);
1875 }
1876
1877 static inline void print_stream_params(AVIOContext *pb, FFServerStream *stream)
1878 {
1879     int i, stream_no;
1880     const char *type = "unknown";
1881     char parameters[64];
1882     LayeredAVStream *st;
1883     AVCodec *codec;
1884
1885     stream_no = stream->nb_streams;
1886
1887     avio_printf(pb, "<table cellspacing=0 cellpadding=4><tr><th>Stream<th>"
1888                     "type<th>kbit/s<th align=left>codec<th align=left>"
1889                     "Parameters\n");
1890
1891     for (i = 0; i < stream_no; i++) {
1892         st = stream->streams[i];
1893         codec = avcodec_find_encoder(st->codecpar->codec_id);
1894
1895         parameters[0] = 0;
1896
1897         switch(st->codecpar->codec_type) {
1898         case AVMEDIA_TYPE_AUDIO:
1899             type = "audio";
1900             snprintf(parameters, sizeof(parameters), "%d channel(s), %d Hz",
1901                      st->codecpar->channels, st->codecpar->sample_rate);
1902             break;
1903         case AVMEDIA_TYPE_VIDEO:
1904             type = "video";
1905             snprintf(parameters, sizeof(parameters),
1906                      "%dx%d, q=%d-%d, fps=%d", st->codecpar->width,
1907                      st->codecpar->height, st->codec->qmin, st->codec->qmax,
1908                      st->time_base.den / st->time_base.num);
1909             break;
1910         default:
1911             abort();
1912         }
1913
1914         avio_printf(pb, "<tr><td align=right>%d<td>%s<td align=right>%"PRId64
1915                         "<td>%s<td>%s\n",
1916                     i, type, (int64_t)st->codecpar->bit_rate/1000,
1917                     codec ? codec->name : "", parameters);
1918      }
1919
1920      avio_printf(pb, "</table>\n");
1921 }
1922
1923 static void compute_status(HTTPContext *c)
1924 {
1925     HTTPContext *c1;
1926     FFServerStream *stream;
1927     char *p;
1928     time_t ti;
1929     int i, len;
1930     AVIOContext *pb;
1931
1932     if (avio_open_dyn_buf(&pb) < 0) {
1933         /* XXX: return an error ? */
1934         c->buffer_ptr = c->buffer;
1935         c->buffer_end = c->buffer;
1936         return;
1937     }
1938
1939     avio_printf(pb, "HTTP/1.0 200 OK\r\n");
1940     avio_printf(pb, "Content-type: text/html\r\n");
1941     avio_printf(pb, "Pragma: no-cache\r\n");
1942     avio_printf(pb, "\r\n");
1943
1944     avio_printf(pb, "<!DOCTYPE html>\n");
1945     avio_printf(pb, "<html><head><title>%s Status</title>\n", program_name);
1946     if (c->stream->feed_filename[0])
1947         avio_printf(pb, "<link rel=\"shortcut icon\" href=\"%s\">\n",
1948                     c->stream->feed_filename);
1949     avio_printf(pb, "</head>\n<body>");
1950     avio_printf(pb, "<h1>%s Status</h1>\n", program_name);
1951     /* format status */
1952     avio_printf(pb, "<h2>Available Streams</h2>\n");
1953     avio_printf(pb, "<table cellspacing=0 cellpadding=4>\n");
1954     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");
1955     stream = config.first_stream;
1956     while (stream) {
1957         char sfilename[1024];
1958         char *eosf;
1959
1960         if (stream->feed == stream) {
1961             stream = stream->next;
1962             continue;
1963         }
1964
1965         av_strlcpy(sfilename, stream->filename, sizeof(sfilename) - 10);
1966         eosf = sfilename + strlen(sfilename);
1967         if (eosf - sfilename >= 4) {
1968             if (strcmp(eosf - 4, ".asf") == 0)
1969                 strcpy(eosf - 4, ".asx");
1970             else if (strcmp(eosf - 3, ".rm") == 0)
1971                 strcpy(eosf - 3, ".ram");
1972             else if (stream->fmt && !strcmp(stream->fmt->name, "rtp")) {
1973                 /* generate a sample RTSP director if
1974                  * unicast. Generate an SDP redirector if
1975                  * multicast */
1976                 eosf = strrchr(sfilename, '.');
1977                 if (!eosf)
1978                     eosf = sfilename + strlen(sfilename);
1979                 if (stream->is_multicast)
1980                     strcpy(eosf, ".sdp");
1981                 else
1982                     strcpy(eosf, ".rtsp");
1983             }
1984         }
1985
1986         avio_printf(pb, "<tr><td><a href=\"/%s\">%s</a> ",
1987                     sfilename, stream->filename);
1988         avio_printf(pb, "<td align=right> %d <td align=right> ",
1989                     stream->conns_served);
1990         fmt_bytecount(pb, stream->bytes_served);
1991
1992         switch(stream->stream_type) {
1993         case STREAM_TYPE_LIVE: {
1994             int audio_bit_rate = 0;
1995             int video_bit_rate = 0;
1996             const char *audio_codec_name = "";
1997             const char *video_codec_name = "";
1998             const char *audio_codec_name_extra = "";
1999             const char *video_codec_name_extra = "";
2000
2001             for(i=0;i<stream->nb_streams;i++) {
2002                 LayeredAVStream *st = stream->streams[i];
2003                 AVCodec *codec = avcodec_find_encoder(st->codecpar->codec_id);
2004
2005                 switch(st->codecpar->codec_type) {
2006                 case AVMEDIA_TYPE_AUDIO:
2007                     audio_bit_rate += st->codecpar->bit_rate;
2008                     if (codec) {
2009                         if (*audio_codec_name)
2010                             audio_codec_name_extra = "...";
2011                         audio_codec_name = codec->name;
2012                     }
2013                     break;
2014                 case AVMEDIA_TYPE_VIDEO:
2015                     video_bit_rate += st->codecpar->bit_rate;
2016                     if (codec) {
2017                         if (*video_codec_name)
2018                             video_codec_name_extra = "...";
2019                         video_codec_name = codec->name;
2020                     }
2021                     break;
2022                 case AVMEDIA_TYPE_DATA:
2023                     video_bit_rate += st->codecpar->bit_rate;
2024                     break;
2025                 default:
2026                     abort();
2027                 }
2028             }
2029
2030             avio_printf(pb, "<td align=center> %s <td align=right> %d "
2031                             "<td align=right> %d <td> %s %s <td align=right> "
2032                             "%d <td> %s %s",
2033                         stream->fmt->name, stream->bandwidth,
2034                         video_bit_rate / 1000, video_codec_name,
2035                         video_codec_name_extra, audio_bit_rate / 1000,
2036                         audio_codec_name, audio_codec_name_extra);
2037
2038             if (stream->feed)
2039                 avio_printf(pb, "<td>%s", stream->feed->filename);
2040             else
2041                 avio_printf(pb, "<td>%s", stream->feed_filename);
2042             avio_printf(pb, "\n");
2043         }
2044             break;
2045         default:
2046             avio_printf(pb, "<td align=center> - <td align=right> - "
2047                             "<td align=right> - <td><td align=right> - <td>\n");
2048             break;
2049         }
2050         stream = stream->next;
2051     }
2052     avio_printf(pb, "</table>\n");
2053
2054     stream = config.first_stream;
2055     while (stream) {
2056
2057         if (stream->feed != stream) {
2058             stream = stream->next;
2059             continue;
2060         }
2061
2062         avio_printf(pb, "<h2>Feed %s</h2>", stream->filename);
2063         if (stream->pid) {
2064             avio_printf(pb, "Running as pid %"PRId64".\n", (int64_t) stream->pid);
2065
2066 #if defined(linux)
2067             {
2068                 FILE *pid_stat;
2069                 char ps_cmd[64];
2070
2071                 /* This is somewhat linux specific I guess */
2072                 snprintf(ps_cmd, sizeof(ps_cmd),
2073                          "ps -o \"%%cpu,cputime\" --no-headers %"PRId64"",
2074                          (int64_t) stream->pid);
2075
2076                  pid_stat = popen(ps_cmd, "r");
2077                  if (pid_stat) {
2078                      char cpuperc[10];
2079                      char cpuused[64];
2080
2081                      if (fscanf(pid_stat, "%9s %63s", cpuperc, cpuused) == 2) {
2082                          avio_printf(pb, "Currently using %s%% of the cpu. "
2083                                          "Total time used %s.\n",
2084                                      cpuperc, cpuused);
2085                      }
2086                      fclose(pid_stat);
2087                  }
2088             }
2089 #endif
2090
2091             avio_printf(pb, "<p>");
2092         }
2093
2094         print_stream_params(pb, stream);
2095         stream = stream->next;
2096     }
2097
2098     /* connection status */
2099     avio_printf(pb, "<h2>Connection Status</h2>\n");
2100
2101     avio_printf(pb, "Number of connections: %d / %d<br>\n",
2102                 nb_connections, config.nb_max_connections);
2103
2104     avio_printf(pb, "Bandwidth in use: %"PRIu64"k / %"PRIu64"k<br>\n",
2105                 current_bandwidth, config.max_bandwidth);
2106
2107     avio_printf(pb, "<table>\n");
2108     avio_printf(pb, "<tr><th>#<th>File<th>IP<th>Proto<th>State<th>Target "
2109                     "bit/s<th>Actual bit/s<th>Bytes transferred\n");
2110     c1 = first_http_ctx;
2111     i = 0;
2112     while (c1) {
2113         int bitrate;
2114         int j;
2115
2116         bitrate = 0;
2117         if (c1->stream) {
2118             for (j = 0; j < c1->stream->nb_streams; j++) {
2119                 if (!c1->stream->feed)
2120                     bitrate += c1->stream->streams[j]->codecpar->bit_rate;
2121                 else if (c1->feed_streams[j] >= 0)
2122                     bitrate += c1->stream->feed->streams[c1->feed_streams[j]]->codecpar->bit_rate;
2123             }
2124         }
2125
2126         i++;
2127         p = inet_ntoa(c1->from_addr.sin_addr);
2128         avio_printf(pb, "<tr><td><b>%d</b><td>%s%s<td>%s<td>%s<td>%s"
2129                         "<td align=right>",
2130                     i, c1->stream ? c1->stream->filename : "",
2131                     c1->state == HTTPSTATE_RECEIVE_DATA ? "(input)" : "", p,
2132                     c1->protocol, http_state[c1->state]);
2133         fmt_bytecount(pb, bitrate);
2134         avio_printf(pb, "<td align=right>");
2135         fmt_bytecount(pb, compute_datarate(&c1->datarate, c1->data_count) * 8);
2136         avio_printf(pb, "<td align=right>");
2137         fmt_bytecount(pb, c1->data_count);
2138         avio_printf(pb, "\n");
2139         c1 = c1->next;
2140     }
2141     avio_printf(pb, "</table>\n");
2142
2143     /* date */
2144     ti = time(NULL);
2145     p = ctime(&ti);
2146     avio_printf(pb, "<hr size=1 noshade>Generated at %s", p);
2147     avio_printf(pb, "</body>\n</html>\n");
2148
2149     len = avio_close_dyn_buf(pb, &c->pb_buffer);
2150     c->buffer_ptr = c->pb_buffer;
2151     c->buffer_end = c->pb_buffer + len;
2152 }
2153
2154 static int open_input_stream(HTTPContext *c, const char *info)
2155 {
2156     char buf[128];
2157     char input_filename[1024];
2158     AVFormatContext *s = NULL;
2159     int buf_size, i, ret;
2160     int64_t stream_pos;
2161
2162     /* find file name */
2163     if (c->stream->feed) {
2164         strcpy(input_filename, c->stream->feed->feed_filename);
2165         buf_size = FFM_PACKET_SIZE;
2166         /* compute position (absolute time) */
2167         if (av_find_info_tag(buf, sizeof(buf), "date", info)) {
2168             if ((ret = av_parse_time(&stream_pos, buf, 0)) < 0) {
2169                 http_log("Invalid date specification '%s' for stream\n", buf);
2170                 return ret;
2171             }
2172         } else if (av_find_info_tag(buf, sizeof(buf), "buffer", info)) {
2173             int prebuffer = strtol(buf, 0, 10);
2174             stream_pos = av_gettime() - prebuffer * (int64_t)1000000;
2175         } else
2176             stream_pos = av_gettime() - c->stream->prebuffer * (int64_t)1000;
2177     } else {
2178         strcpy(input_filename, c->stream->feed_filename);
2179         buf_size = 0;
2180         /* compute position (relative time) */
2181         if (av_find_info_tag(buf, sizeof(buf), "date", info)) {
2182             if ((ret = av_parse_time(&stream_pos, buf, 1)) < 0) {
2183                 http_log("Invalid date specification '%s' for stream\n", buf);
2184                 return ret;
2185             }
2186         } else
2187             stream_pos = 0;
2188     }
2189     if (!input_filename[0]) {
2190         http_log("No filename was specified for stream\n");
2191         return AVERROR(EINVAL);
2192     }
2193
2194     /* open stream */
2195     ret = avformat_open_input(&s, input_filename, c->stream->ifmt,
2196                               &c->stream->in_opts);
2197     if (ret < 0) {
2198         http_log("Could not open input '%s': %s\n",
2199                  input_filename, av_err2str(ret));
2200         return ret;
2201     }
2202
2203     /* set buffer size */
2204     if (buf_size > 0) {
2205         ret = ffio_set_buf_size(s->pb, buf_size);
2206         if (ret < 0) {
2207             http_log("Failed to set buffer size\n");
2208             return ret;
2209         }
2210     }
2211
2212     s->flags |= AVFMT_FLAG_GENPTS;
2213     c->fmt_in = s;
2214     if (strcmp(s->iformat->name, "ffm") &&
2215         (ret = avformat_find_stream_info(c->fmt_in, NULL)) < 0) {
2216         http_log("Could not find stream info for input '%s'\n", input_filename);
2217         avformat_close_input(&s);
2218         return ret;
2219     }
2220
2221     /* choose stream as clock source (we favor the video stream if
2222      * present) for packet sending */
2223     c->pts_stream_index = 0;
2224     for(i=0;i<c->stream->nb_streams;i++) {
2225         if (c->pts_stream_index == 0 &&
2226             c->stream->streams[i]->codec->codec_type == AVMEDIA_TYPE_VIDEO) {
2227             c->pts_stream_index = i;
2228         }
2229     }
2230
2231     if (c->fmt_in->iformat->read_seek)
2232         av_seek_frame(c->fmt_in, -1, stream_pos, 0);
2233     /* set the start time (needed for maxtime and RTP packet timing) */
2234     c->start_time = cur_time;
2235     c->first_pts = AV_NOPTS_VALUE;
2236     return 0;
2237 }
2238
2239 /* return the server clock (in us) */
2240 static int64_t get_server_clock(HTTPContext *c)
2241 {
2242     /* compute current pts value from system time */
2243     return (cur_time - c->start_time) * 1000;
2244 }
2245
2246 /* return the estimated time (in us) at which the current packet must be sent */
2247 static int64_t get_packet_send_clock(HTTPContext *c)
2248 {
2249     int bytes_left, bytes_sent, frame_bytes;
2250
2251     frame_bytes = c->cur_frame_bytes;
2252     if (frame_bytes <= 0)
2253         return c->cur_pts;
2254
2255     bytes_left = c->buffer_end - c->buffer_ptr;
2256     bytes_sent = frame_bytes - bytes_left;
2257     return c->cur_pts + (c->cur_frame_duration * bytes_sent) / frame_bytes;
2258 }
2259
2260
2261 static int http_prepare_data(HTTPContext *c)
2262 {
2263     int i, len, ret;
2264     AVFormatContext *ctx;
2265
2266     av_freep(&c->pb_buffer);
2267     switch(c->state) {
2268     case HTTPSTATE_SEND_DATA_HEADER:
2269         ctx = avformat_alloc_context();
2270         if (!ctx)
2271             return AVERROR(ENOMEM);
2272         c->pfmt_ctx = ctx;
2273         av_dict_copy(&(c->pfmt_ctx->metadata), c->stream->metadata, 0);
2274
2275         for(i=0;i<c->stream->nb_streams;i++) {
2276             LayeredAVStream *src;
2277             AVStream *st = avformat_new_stream(c->pfmt_ctx, NULL);
2278             if (!st)
2279                 return AVERROR(ENOMEM);
2280
2281             /* if file or feed, then just take streams from FFServerStream
2282              * struct */
2283             if (!c->stream->feed ||
2284                 c->stream->feed == c->stream)
2285                 src = c->stream->streams[i];
2286             else
2287                 src = c->stream->feed->streams[c->stream->feed_streams[i]];
2288
2289             unlayer_stream(c->pfmt_ctx->streams[i], src); //TODO we no longer copy st->internal, does this matter?
2290             av_assert0(!c->pfmt_ctx->streams[i]->priv_data);
2291             /* XXX: should be done in AVStream, not in codec */
2292             c->pfmt_ctx->streams[i]->codec->frame_number = 0;
2293         }
2294         /* set output format parameters */
2295         c->pfmt_ctx->oformat = c->stream->fmt;
2296         av_assert0(c->pfmt_ctx->nb_streams == c->stream->nb_streams);
2297
2298         c->got_key_frame = 0;
2299
2300         /* prepare header and save header data in a stream */
2301         if (avio_open_dyn_buf(&c->pfmt_ctx->pb) < 0) {
2302             /* XXX: potential leak */
2303             return -1;
2304         }
2305         c->pfmt_ctx->pb->seekable = 0;
2306
2307         /*
2308          * HACK to avoid MPEG-PS muxer to spit many underflow errors
2309          * Default value from FFmpeg
2310          * Try to set it using configuration option
2311          */
2312         c->pfmt_ctx->max_delay = (int)(0.7*AV_TIME_BASE);
2313
2314         if ((ret = avformat_write_header(c->pfmt_ctx, NULL)) < 0) {
2315             http_log("Error writing output header for stream '%s': %s\n",
2316                      c->stream->filename, av_err2str(ret));
2317             return ret;
2318         }
2319         av_dict_free(&c->pfmt_ctx->metadata);
2320
2321         len = avio_close_dyn_buf(c->pfmt_ctx->pb, &c->pb_buffer);
2322         c->buffer_ptr = c->pb_buffer;
2323         c->buffer_end = c->pb_buffer + len;
2324
2325         c->state = HTTPSTATE_SEND_DATA;
2326         c->last_packet_sent = 0;
2327         break;
2328     case HTTPSTATE_SEND_DATA:
2329         /* find a new packet */
2330         /* read a packet from the input stream */
2331         if (c->stream->feed)
2332             ffm_set_write_index(c->fmt_in,
2333                                 c->stream->feed->feed_write_index,
2334                                 c->stream->feed->feed_size);
2335
2336         if (c->stream->max_time &&
2337             c->stream->max_time + c->start_time - cur_time < 0)
2338             /* We have timed out */
2339             c->state = HTTPSTATE_SEND_DATA_TRAILER;
2340         else {
2341             AVPacket pkt;
2342         redo:
2343             ret = av_read_frame(c->fmt_in, &pkt);
2344             if (ret < 0) {
2345                 if (c->stream->feed) {
2346                     /* if coming from feed, it means we reached the end of the
2347                      * ffm file, so must wait for more data */
2348                     c->state = HTTPSTATE_WAIT_FEED;
2349                     return 1; /* state changed */
2350                 }
2351                 if (ret == AVERROR(EAGAIN)) {
2352                     /* input not ready, come back later */
2353                     return 0;
2354                 }
2355                 if (c->stream->loop) {
2356                     avformat_close_input(&c->fmt_in);
2357                     if (open_input_stream(c, "") < 0)
2358                         goto no_loop;
2359                     goto redo;
2360                 } else {
2361                     no_loop:
2362                         /* must send trailer now because EOF or error */
2363                         c->state = HTTPSTATE_SEND_DATA_TRAILER;
2364                 }
2365             } else {
2366                 int source_index = pkt.stream_index;
2367                 /* update first pts if needed */
2368                 if (c->first_pts == AV_NOPTS_VALUE && pkt.dts != AV_NOPTS_VALUE) {
2369                     c->first_pts = av_rescale_q(pkt.dts, c->fmt_in->streams[pkt.stream_index]->time_base, AV_TIME_BASE_Q);
2370                     c->start_time = cur_time;
2371                 }
2372                 /* send it to the appropriate stream */
2373                 if (c->stream->feed) {
2374                     /* if coming from a feed, select the right stream */
2375                     if (c->switch_pending) {
2376                         c->switch_pending = 0;
2377                         for(i=0;i<c->stream->nb_streams;i++) {
2378                             if (c->switch_feed_streams[i] == pkt.stream_index)
2379                                 if (pkt.flags & AV_PKT_FLAG_KEY)
2380                                     c->switch_feed_streams[i] = -1;
2381                             if (c->switch_feed_streams[i] >= 0)
2382                                 c->switch_pending = 1;
2383                         }
2384                     }
2385                     for(i=0;i<c->stream->nb_streams;i++) {
2386                         if (c->stream->feed_streams[i] == pkt.stream_index) {
2387                             AVStream *st = c->fmt_in->streams[source_index];
2388                             pkt.stream_index = i;
2389                             if (pkt.flags & AV_PKT_FLAG_KEY &&
2390                                 (st->codec->codec_type == AVMEDIA_TYPE_VIDEO ||
2391                                  c->stream->nb_streams == 1))
2392                                 c->got_key_frame = 1;
2393                             if (!c->stream->send_on_key || c->got_key_frame)
2394                                 goto send_it;
2395                         }
2396                     }
2397                 } else {
2398                     AVCodecContext *codec;
2399                     AVStream *ist, *ost;
2400                 send_it:
2401                     ist = c->fmt_in->streams[source_index];
2402                     /* specific handling for RTP: we use several
2403                      * output streams (one for each RTP connection).
2404                      * XXX: need more abstract handling */
2405                     if (c->is_packetized) {
2406                         /* compute send time and duration */
2407                         if (pkt.dts != AV_NOPTS_VALUE) {
2408                             c->cur_pts = av_rescale_q(pkt.dts, ist->time_base, AV_TIME_BASE_Q);
2409                             c->cur_pts -= c->first_pts;
2410                         }
2411                         c->cur_frame_duration = av_rescale_q(pkt.duration, ist->time_base, AV_TIME_BASE_Q);
2412                         /* find RTP context */
2413                         c->packet_stream_index = pkt.stream_index;
2414                         ctx = c->rtp_ctx[c->packet_stream_index];
2415                         if(!ctx) {
2416                             av_packet_unref(&pkt);
2417                             break;
2418                         }
2419                         codec = ctx->streams[0]->codec;
2420                         /* only one stream per RTP connection */
2421                         pkt.stream_index = 0;
2422                     } else {
2423                         ctx = c->pfmt_ctx;
2424                         /* Fudge here */
2425                         codec = ctx->streams[pkt.stream_index]->codec;
2426                     }
2427
2428                     if (c->is_packetized) {
2429                         int max_packet_size;
2430                         if (c->rtp_protocol == RTSP_LOWER_TRANSPORT_TCP)
2431                             max_packet_size = RTSP_TCP_MAX_PACKET_SIZE;
2432                         else
2433                             max_packet_size = c->rtp_handles[c->packet_stream_index]->max_packet_size;
2434                         ret = ffio_open_dyn_packet_buf(&ctx->pb,
2435                                                        max_packet_size);
2436                     } else
2437                         ret = avio_open_dyn_buf(&ctx->pb);
2438
2439                     if (ret < 0) {
2440                         /* XXX: potential leak */
2441                         return -1;
2442                     }
2443                     ost = ctx->streams[pkt.stream_index];
2444
2445                     ctx->pb->seekable = 0;
2446                     if (pkt.dts != AV_NOPTS_VALUE)
2447                         pkt.dts = av_rescale_q(pkt.dts, ist->time_base,
2448                                                ost->time_base);
2449                     if (pkt.pts != AV_NOPTS_VALUE)
2450                         pkt.pts = av_rescale_q(pkt.pts, ist->time_base,
2451                                                ost->time_base);
2452                     pkt.duration = av_rescale_q(pkt.duration, ist->time_base,
2453                                                 ost->time_base);
2454                     if ((ret = av_write_frame(ctx, &pkt)) < 0) {
2455                         http_log("Error writing frame to output for stream '%s': %s\n",
2456                                  c->stream->filename, av_err2str(ret));
2457                         c->state = HTTPSTATE_SEND_DATA_TRAILER;
2458                     }
2459
2460                     av_freep(&c->pb_buffer);
2461                     len = avio_close_dyn_buf(ctx->pb, &c->pb_buffer);
2462                     ctx->pb = NULL;
2463                     c->cur_frame_bytes = len;
2464                     c->buffer_ptr = c->pb_buffer;
2465                     c->buffer_end = c->pb_buffer + len;
2466
2467                     codec->frame_number++;
2468                     if (len == 0) {
2469                         av_packet_unref(&pkt);
2470                         goto redo;
2471                     }
2472                 }
2473                 av_packet_unref(&pkt);
2474             }
2475         }
2476         break;
2477     default:
2478     case HTTPSTATE_SEND_DATA_TRAILER:
2479         /* last packet test ? */
2480         if (c->last_packet_sent || c->is_packetized)
2481             return -1;
2482         ctx = c->pfmt_ctx;
2483         /* prepare header */
2484         if (avio_open_dyn_buf(&ctx->pb) < 0) {
2485             /* XXX: potential leak */
2486             return -1;
2487         }
2488         c->pfmt_ctx->pb->seekable = 0;
2489         av_write_trailer(ctx);
2490         len = avio_close_dyn_buf(ctx->pb, &c->pb_buffer);
2491         c->buffer_ptr = c->pb_buffer;
2492         c->buffer_end = c->pb_buffer + len;
2493
2494         c->last_packet_sent = 1;
2495         break;
2496     }
2497     return 0;
2498 }
2499
2500 /* should convert the format at the same time */
2501 /* send data starting at c->buffer_ptr to the output connection
2502  * (either UDP or TCP)
2503  */
2504 static int http_send_data(HTTPContext *c)
2505 {
2506     int len, ret;
2507
2508     for(;;) {
2509         if (c->buffer_ptr >= c->buffer_end) {
2510             ret = http_prepare_data(c);
2511             if (ret < 0)
2512                 return -1;
2513             else if (ret)
2514                 /* state change requested */
2515                 break;
2516         } else {
2517             if (c->is_packetized) {
2518                 /* RTP data output */
2519                 len = c->buffer_end - c->buffer_ptr;
2520                 if (len < 4) {
2521                     /* fail safe - should never happen */
2522                 fail1:
2523                     c->buffer_ptr = c->buffer_end;
2524                     return 0;
2525                 }
2526                 len = (c->buffer_ptr[0] << 24) |
2527                     (c->buffer_ptr[1] << 16) |
2528                     (c->buffer_ptr[2] << 8) |
2529                     (c->buffer_ptr[3]);
2530                 if (len > (c->buffer_end - c->buffer_ptr))
2531                     goto fail1;
2532                 if ((get_packet_send_clock(c) - get_server_clock(c)) > 0) {
2533                     /* nothing to send yet: we can wait */
2534                     return 0;
2535                 }
2536
2537                 c->data_count += len;
2538                 update_datarate(&c->datarate, c->data_count);
2539                 if (c->stream)
2540                     c->stream->bytes_served += len;
2541
2542                 if (c->rtp_protocol == RTSP_LOWER_TRANSPORT_TCP) {
2543                     /* RTP packets are sent inside the RTSP TCP connection */
2544                     AVIOContext *pb;
2545                     int interleaved_index, size;
2546                     uint8_t header[4];
2547                     HTTPContext *rtsp_c;
2548
2549                     rtsp_c = c->rtsp_c;
2550                     /* if no RTSP connection left, error */
2551                     if (!rtsp_c)
2552                         return -1;
2553                     /* if already sending something, then wait. */
2554                     if (rtsp_c->state != RTSPSTATE_WAIT_REQUEST)
2555                         break;
2556                     if (avio_open_dyn_buf(&pb) < 0)
2557                         goto fail1;
2558                     interleaved_index = c->packet_stream_index * 2;
2559                     /* RTCP packets are sent at odd indexes */
2560                     if (c->buffer_ptr[1] == 200)
2561                         interleaved_index++;
2562                     /* write RTSP TCP header */
2563                     header[0] = '$';
2564                     header[1] = interleaved_index;
2565                     header[2] = len >> 8;
2566                     header[3] = len;
2567                     avio_write(pb, header, 4);
2568                     /* write RTP packet data */
2569                     c->buffer_ptr += 4;
2570                     avio_write(pb, c->buffer_ptr, len);
2571                     size = avio_close_dyn_buf(pb, &c->packet_buffer);
2572                     /* prepare asynchronous TCP sending */
2573                     rtsp_c->packet_buffer_ptr = c->packet_buffer;
2574                     rtsp_c->packet_buffer_end = c->packet_buffer + size;
2575                     c->buffer_ptr += len;
2576
2577                     /* send everything we can NOW */
2578                     len = send(rtsp_c->fd, rtsp_c->packet_buffer_ptr,
2579                                rtsp_c->packet_buffer_end - rtsp_c->packet_buffer_ptr, 0);
2580                     if (len > 0)
2581                         rtsp_c->packet_buffer_ptr += len;
2582                     if (rtsp_c->packet_buffer_ptr < rtsp_c->packet_buffer_end) {
2583                         /* if we could not send all the data, we will
2584                          * send it later, so a new state is needed to
2585                          * "lock" the RTSP TCP connection */
2586                         rtsp_c->state = RTSPSTATE_SEND_PACKET;
2587                         break;
2588                     } else
2589                         /* all data has been sent */
2590                         av_freep(&c->packet_buffer);
2591                 } else {
2592                     /* send RTP packet directly in UDP */
2593                     c->buffer_ptr += 4;
2594                     ffurl_write(c->rtp_handles[c->packet_stream_index],
2595                                 c->buffer_ptr, len);
2596                     c->buffer_ptr += len;
2597                     /* here we continue as we can send several packets
2598                      * per 10 ms slot */
2599                 }
2600             } else {
2601                 /* TCP data output */
2602                 len = send(c->fd, c->buffer_ptr,
2603                            c->buffer_end - c->buffer_ptr, 0);
2604                 if (len < 0) {
2605                     if (ff_neterrno() != AVERROR(EAGAIN) &&
2606                         ff_neterrno() != AVERROR(EINTR))
2607                         /* error : close connection */
2608                         return -1;
2609                     else
2610                         return 0;
2611                 }
2612                 c->buffer_ptr += len;
2613
2614                 c->data_count += len;
2615                 update_datarate(&c->datarate, c->data_count);
2616                 if (c->stream)
2617                     c->stream->bytes_served += len;
2618                 break;
2619             }
2620         }
2621     } /* for(;;) */
2622     return 0;
2623 }
2624
2625 static int http_start_receive_data(HTTPContext *c)
2626 {
2627     int fd;
2628     int ret;
2629     int64_t ret64;
2630
2631     if (c->stream->feed_opened) {
2632         http_log("Stream feed '%s' was not opened\n",
2633                  c->stream->feed_filename);
2634         return AVERROR(EINVAL);
2635     }
2636
2637     /* Don't permit writing to this one */
2638     if (c->stream->readonly) {
2639         http_log("Cannot write to read-only file '%s'\n",
2640                  c->stream->feed_filename);
2641         return AVERROR(EINVAL);
2642     }
2643
2644     /* open feed */
2645     fd = open(c->stream->feed_filename, O_RDWR);
2646     if (fd < 0) {
2647         ret = AVERROR(errno);
2648         http_log("Could not open feed file '%s': %s\n",
2649                  c->stream->feed_filename, strerror(errno));
2650         return ret;
2651     }
2652     c->feed_fd = fd;
2653
2654     if (c->stream->truncate) {
2655         /* truncate feed file */
2656         ffm_write_write_index(c->feed_fd, FFM_PACKET_SIZE);
2657         http_log("Truncating feed file '%s'\n", c->stream->feed_filename);
2658         if (ftruncate(c->feed_fd, FFM_PACKET_SIZE) < 0) {
2659             ret = AVERROR(errno);
2660             http_log("Error truncating feed file '%s': %s\n",
2661                      c->stream->feed_filename, strerror(errno));
2662             return ret;
2663         }
2664     } else {
2665         ret64 = ffm_read_write_index(fd);
2666         if (ret64 < 0) {
2667             http_log("Error reading write index from feed file '%s': %s\n",
2668                      c->stream->feed_filename, strerror(errno));
2669             return ret64;
2670         }
2671         c->stream->feed_write_index = ret64;
2672     }
2673
2674     c->stream->feed_write_index = FFMAX(ffm_read_write_index(fd),
2675                                         FFM_PACKET_SIZE);
2676     c->stream->feed_size = lseek(fd, 0, SEEK_END);
2677     lseek(fd, 0, SEEK_SET);
2678
2679     /* init buffer input */
2680     c->buffer_ptr = c->buffer;
2681     c->buffer_end = c->buffer + FFM_PACKET_SIZE;
2682     c->stream->feed_opened = 1;
2683     c->chunked_encoding = !!av_stristr(c->buffer, "Transfer-Encoding: chunked");
2684     return 0;
2685 }
2686
2687 static int http_receive_data(HTTPContext *c)
2688 {
2689     HTTPContext *c1;
2690     int len, loop_run = 0;
2691
2692     while (c->chunked_encoding && !c->chunk_size &&
2693            c->buffer_end > c->buffer_ptr) {
2694         /* read chunk header, if present */
2695         len = recv(c->fd, c->buffer_ptr, 1, 0);
2696
2697         if (len < 0) {
2698             if (ff_neterrno() != AVERROR(EAGAIN) &&
2699                 ff_neterrno() != AVERROR(EINTR))
2700                 /* error : close connection */
2701                 goto fail;
2702             return 0;
2703         } else if (len == 0) {
2704             /* end of connection : close it */
2705             goto fail;
2706         } else if (c->buffer_ptr - c->buffer >= 2 &&
2707                    !memcmp(c->buffer_ptr - 1, "\r\n", 2)) {
2708             c->chunk_size = strtol(c->buffer, 0, 16);
2709             if (c->chunk_size == 0) // end of stream
2710                 goto fail;
2711             c->buffer_ptr = c->buffer;
2712             break;
2713         } else if (++loop_run > 10)
2714             /* no chunk header, abort */
2715             goto fail;
2716         else
2717             c->buffer_ptr++;
2718     }
2719
2720     if (c->buffer_end > c->buffer_ptr) {
2721         len = recv(c->fd, c->buffer_ptr,
2722                    FFMIN(c->chunk_size, c->buffer_end - c->buffer_ptr), 0);
2723         if (len < 0) {
2724             if (ff_neterrno() != AVERROR(EAGAIN) &&
2725                 ff_neterrno() != AVERROR(EINTR))
2726                 /* error : close connection */
2727                 goto fail;
2728         } else if (len == 0)
2729             /* end of connection : close it */
2730             goto fail;
2731         else {
2732             c->chunk_size -= len;
2733             c->buffer_ptr += len;
2734             c->data_count += len;
2735             update_datarate(&c->datarate, c->data_count);
2736         }
2737     }
2738
2739     if (c->buffer_ptr - c->buffer >= 2 && c->data_count > FFM_PACKET_SIZE) {
2740         if (c->buffer[0] != 'f' ||
2741             c->buffer[1] != 'm') {
2742             http_log("Feed stream has become desynchronized -- disconnecting\n");
2743             goto fail;
2744         }
2745     }
2746
2747     if (c->buffer_ptr >= c->buffer_end) {
2748         FFServerStream *feed = c->stream;
2749         /* a packet has been received : write it in the store, except
2750          * if header */
2751         if (c->data_count > FFM_PACKET_SIZE) {
2752             /* XXX: use llseek or url_seek
2753              * XXX: Should probably fail? */
2754             if (lseek(c->feed_fd, feed->feed_write_index, SEEK_SET) == -1)
2755                 http_log("Seek to %"PRId64" failed\n", feed->feed_write_index);
2756
2757             if (write(c->feed_fd, c->buffer, FFM_PACKET_SIZE) < 0) {
2758                 http_log("Error writing to feed file: %s\n", strerror(errno));
2759                 goto fail;
2760             }
2761
2762             feed->feed_write_index += FFM_PACKET_SIZE;
2763             /* update file size */
2764             if (feed->feed_write_index > c->stream->feed_size)
2765                 feed->feed_size = feed->feed_write_index;
2766
2767             /* handle wrap around if max file size reached */
2768             if (c->stream->feed_max_size &&
2769                 feed->feed_write_index >= c->stream->feed_max_size)
2770                 feed->feed_write_index = FFM_PACKET_SIZE;
2771
2772             /* write index */
2773             if (ffm_write_write_index(c->feed_fd, feed->feed_write_index) < 0) {
2774                 http_log("Error writing index to feed file: %s\n",
2775                          strerror(errno));
2776                 goto fail;
2777             }
2778
2779             /* wake up any waiting connections */
2780             for(c1 = first_http_ctx; c1; c1 = c1->next) {
2781                 if (c1->state == HTTPSTATE_WAIT_FEED &&
2782                     c1->stream->feed == c->stream->feed)
2783                     c1->state = HTTPSTATE_SEND_DATA;
2784             }
2785         } else {
2786             /* We have a header in our hands that contains useful data */
2787             AVFormatContext *s = avformat_alloc_context();
2788             AVIOContext *pb;
2789             AVInputFormat *fmt_in;
2790             int i;
2791
2792             if (!s)
2793                 goto fail;
2794
2795             /* use feed output format name to find corresponding input format */
2796             fmt_in = av_find_input_format(feed->fmt->name);
2797             if (!fmt_in)
2798                 goto fail;
2799
2800             pb = avio_alloc_context(c->buffer, c->buffer_end - c->buffer,
2801                                     0, NULL, NULL, NULL, NULL);
2802             if (!pb)
2803                 goto fail;
2804
2805             pb->seekable = 0;
2806
2807             s->pb = pb;
2808             if (avformat_open_input(&s, c->stream->feed_filename, fmt_in, NULL) < 0) {
2809                 av_freep(&pb);
2810                 goto fail;
2811             }
2812
2813             /* Now we have the actual streams */
2814             if (s->nb_streams != feed->nb_streams) {
2815                 avformat_close_input(&s);
2816                 av_freep(&pb);
2817                 http_log("Feed '%s' stream number does not match registered feed\n",
2818                          c->stream->feed_filename);
2819                 goto fail;
2820             }
2821
2822             for (i = 0; i < s->nb_streams; i++) {
2823                 LayeredAVStream *fst = feed->streams[i];
2824                 AVStream *st = s->streams[i];
2825                 avcodec_copy_context(fst->codec, st->codec);
2826             }
2827
2828             avformat_close_input(&s);
2829             av_freep(&pb);
2830         }
2831         c->buffer_ptr = c->buffer;
2832     }
2833
2834     return 0;
2835  fail:
2836     c->stream->feed_opened = 0;
2837     close(c->feed_fd);
2838     /* wake up any waiting connections to stop waiting for feed */
2839     for(c1 = first_http_ctx; c1; c1 = c1->next) {
2840         if (c1->state == HTTPSTATE_WAIT_FEED &&
2841             c1->stream->feed == c->stream->feed)
2842             c1->state = HTTPSTATE_SEND_DATA_TRAILER;
2843     }
2844     return -1;
2845 }
2846
2847 /********************************************************************/
2848 /* RTSP handling */
2849
2850 static void rtsp_reply_header(HTTPContext *c, enum RTSPStatusCode error_number)
2851 {
2852     const char *str;
2853     time_t ti;
2854     struct tm *tm;
2855     char buf2[32];
2856
2857     str = RTSP_STATUS_CODE2STRING(error_number);
2858     if (!str)
2859         str = "Unknown Error";
2860
2861     avio_printf(c->pb, "RTSP/1.0 %d %s\r\n", error_number, str);
2862     avio_printf(c->pb, "CSeq: %d\r\n", c->seq);
2863
2864     /* output GMT time */
2865     ti = time(NULL);
2866     tm = gmtime(&ti);
2867     strftime(buf2, sizeof(buf2), "%a, %d %b %Y %H:%M:%S", tm);
2868     avio_printf(c->pb, "Date: %s GMT\r\n", buf2);
2869 }
2870
2871 static void rtsp_reply_error(HTTPContext *c, enum RTSPStatusCode error_number)
2872 {
2873     rtsp_reply_header(c, error_number);
2874     avio_printf(c->pb, "\r\n");
2875 }
2876
2877 static int rtsp_parse_request(HTTPContext *c)
2878 {
2879     const char *p, *p1, *p2;
2880     char cmd[32];
2881     char url[1024];
2882     char protocol[32];
2883     char line[1024];
2884     int len;
2885     RTSPMessageHeader header1 = { 0 }, *header = &header1;
2886
2887     c->buffer_ptr[0] = '\0';
2888     p = c->buffer;
2889
2890     get_word(cmd, sizeof(cmd), &p);
2891     get_word(url, sizeof(url), &p);
2892     get_word(protocol, sizeof(protocol), &p);
2893
2894     av_strlcpy(c->method, cmd, sizeof(c->method));
2895     av_strlcpy(c->url, url, sizeof(c->url));
2896     av_strlcpy(c->protocol, protocol, sizeof(c->protocol));
2897
2898     if (avio_open_dyn_buf(&c->pb) < 0) {
2899         /* XXX: cannot do more */
2900         c->pb = NULL; /* safety */
2901         return -1;
2902     }
2903
2904     /* check version name */
2905     if (strcmp(protocol, "RTSP/1.0")) {
2906         rtsp_reply_error(c, RTSP_STATUS_VERSION);
2907         goto the_end;
2908     }
2909
2910     /* parse each header line */
2911     /* skip to next line */
2912     while (*p != '\n' && *p != '\0')
2913         p++;
2914     if (*p == '\n')
2915         p++;
2916     while (*p != '\0') {
2917         p1 = memchr(p, '\n', (char *)c->buffer_ptr - p);
2918         if (!p1)
2919             break;
2920         p2 = p1;
2921         if (p2 > p && p2[-1] == '\r')
2922             p2--;
2923         /* skip empty line */
2924         if (p2 == p)
2925             break;
2926         len = p2 - p;
2927         if (len > sizeof(line) - 1)
2928             len = sizeof(line) - 1;
2929         memcpy(line, p, len);
2930         line[len] = '\0';
2931         ff_rtsp_parse_line(NULL, header, line, NULL, NULL);
2932         p = p1 + 1;
2933     }
2934
2935     /* handle sequence number */
2936     c->seq = header->seq;
2937
2938     if (!strcmp(cmd, "DESCRIBE"))
2939         rtsp_cmd_describe(c, url);
2940     else if (!strcmp(cmd, "OPTIONS"))
2941         rtsp_cmd_options(c, url);
2942     else if (!strcmp(cmd, "SETUP"))
2943         rtsp_cmd_setup(c, url, header);
2944     else if (!strcmp(cmd, "PLAY"))
2945         rtsp_cmd_play(c, url, header);
2946     else if (!strcmp(cmd, "PAUSE"))
2947         rtsp_cmd_interrupt(c, url, header, 1);
2948     else if (!strcmp(cmd, "TEARDOWN"))
2949         rtsp_cmd_interrupt(c, url, header, 0);
2950     else
2951         rtsp_reply_error(c, RTSP_STATUS_METHOD);
2952
2953  the_end:
2954     len = avio_close_dyn_buf(c->pb, &c->pb_buffer);
2955     c->pb = NULL; /* safety */
2956     if (len < 0)
2957         /* XXX: cannot do more */
2958         return -1;
2959
2960     c->buffer_ptr = c->pb_buffer;
2961     c->buffer_end = c->pb_buffer + len;
2962     c->state = RTSPSTATE_SEND_REPLY;
2963     return 0;
2964 }
2965
2966 static int prepare_sdp_description(FFServerStream *stream, uint8_t **pbuffer,
2967                                    struct in_addr my_ip)
2968 {
2969     AVFormatContext *avc;
2970     AVStream *avs = NULL;
2971     AVOutputFormat *rtp_format = av_guess_format("rtp", NULL, NULL);
2972     AVDictionaryEntry *entry = av_dict_get(stream->metadata, "title", NULL, 0);
2973     int i;
2974
2975     *pbuffer = NULL;
2976
2977     avc =  avformat_alloc_context();
2978     if (!avc || !rtp_format)
2979         return -1;
2980
2981     avc->oformat = rtp_format;
2982     av_dict_set(&avc->metadata, "title",
2983                 entry ? entry->value : "No Title", 0);
2984     avc->nb_streams = stream->nb_streams;
2985     if (stream->is_multicast) {
2986         snprintf(avc->filename, 1024, "rtp://%s:%d?multicast=1?ttl=%d",
2987                  inet_ntoa(stream->multicast_ip),
2988                  stream->multicast_port, stream->multicast_ttl);
2989     } else
2990         snprintf(avc->filename, 1024, "rtp://0.0.0.0");
2991
2992     avc->streams = av_malloc_array(avc->nb_streams, sizeof(*avc->streams));
2993     if (!avc->streams)
2994         goto sdp_done;
2995
2996     avs = av_malloc_array(avc->nb_streams, sizeof(*avs));
2997     if (!avs)
2998         goto sdp_done;
2999
3000     for(i = 0; i < stream->nb_streams; i++) {
3001         avc->streams[i] = &avs[i];
3002         avc->streams[i]->codec = stream->streams[i]->codec;
3003         avcodec_parameters_from_context(stream->streams[i]->codecpar, stream->streams[i]->codec);
3004         avc->streams[i]->codecpar = stream->streams[i]->codecpar;
3005     }
3006 #define PBUFFER_SIZE 2048
3007     *pbuffer = av_mallocz(PBUFFER_SIZE);
3008     if (!*pbuffer)
3009         goto sdp_done;
3010     av_sdp_create(&avc, 1, *pbuffer, PBUFFER_SIZE);
3011
3012  sdp_done:
3013     av_freep(&avc->streams);
3014     av_dict_free(&avc->metadata);
3015     av_free(avc);
3016     av_free(avs);
3017
3018     return *pbuffer ? strlen(*pbuffer) : AVERROR(ENOMEM);
3019 }
3020
3021 static void rtsp_cmd_options(HTTPContext *c, const char *url)
3022 {
3023     /* rtsp_reply_header(c, RTSP_STATUS_OK); */
3024     avio_printf(c->pb, "RTSP/1.0 %d %s\r\n", RTSP_STATUS_OK, "OK");
3025     avio_printf(c->pb, "CSeq: %d\r\n", c->seq);
3026     avio_printf(c->pb, "Public: %s\r\n",
3027                 "OPTIONS, DESCRIBE, SETUP, TEARDOWN, PLAY, PAUSE");
3028     avio_printf(c->pb, "\r\n");
3029 }
3030
3031 static void rtsp_cmd_describe(HTTPContext *c, const char *url)
3032 {
3033     FFServerStream *stream;
3034     char path1[1024];
3035     const char *path;
3036     uint8_t *content;
3037     int content_length;
3038     socklen_t len;
3039     struct sockaddr_in my_addr;
3040
3041     /* find which URL is asked */
3042     av_url_split(NULL, 0, NULL, 0, NULL, 0, NULL, path1, sizeof(path1), url);
3043     path = path1;
3044     if (*path == '/')
3045         path++;
3046
3047     for(stream = config.first_stream; stream; stream = stream->next) {
3048         if (!stream->is_feed &&
3049             stream->fmt && !strcmp(stream->fmt->name, "rtp") &&
3050             !strcmp(path, stream->filename)) {
3051             goto found;
3052         }
3053     }
3054     /* no stream found */
3055     rtsp_reply_error(c, RTSP_STATUS_NOT_FOUND);
3056     return;
3057
3058  found:
3059     /* prepare the media description in SDP format */
3060
3061     /* get the host IP */
3062     len = sizeof(my_addr);
3063     getsockname(c->fd, (struct sockaddr *)&my_addr, &len);
3064     content_length = prepare_sdp_description(stream, &content,
3065                                              my_addr.sin_addr);
3066     if (content_length < 0) {
3067         rtsp_reply_error(c, RTSP_STATUS_INTERNAL);
3068         return;
3069     }
3070     rtsp_reply_header(c, RTSP_STATUS_OK);
3071     avio_printf(c->pb, "Content-Base: %s/\r\n", url);
3072     avio_printf(c->pb, "Content-Type: application/sdp\r\n");
3073     avio_printf(c->pb, "Content-Length: %d\r\n", content_length);
3074     avio_printf(c->pb, "\r\n");
3075     avio_write(c->pb, content, content_length);
3076     av_free(content);
3077 }
3078
3079 static HTTPContext *find_rtp_session(const char *session_id)
3080 {
3081     HTTPContext *c;
3082
3083     if (session_id[0] == '\0')
3084         return NULL;
3085
3086     for(c = first_http_ctx; c; c = c->next) {
3087         if (!strcmp(c->session_id, session_id))
3088             return c;
3089     }
3090     return NULL;
3091 }
3092
3093 static RTSPTransportField *find_transport(RTSPMessageHeader *h, enum RTSPLowerTransport lower_transport)
3094 {
3095     RTSPTransportField *th;
3096     int i;
3097
3098     for(i=0;i<h->nb_transports;i++) {
3099         th = &h->transports[i];
3100         if (th->lower_transport == lower_transport)
3101             return th;
3102     }
3103     return NULL;
3104 }
3105
3106 static void rtsp_cmd_setup(HTTPContext *c, const char *url,
3107                            RTSPMessageHeader *h)
3108 {
3109     FFServerStream *stream;
3110     int stream_index, rtp_port, rtcp_port;
3111     char buf[1024];
3112     char path1[1024];
3113     const char *path;
3114     HTTPContext *rtp_c;
3115     RTSPTransportField *th;
3116     struct sockaddr_in dest_addr;
3117     RTSPActionServerSetup setup;
3118
3119     /* find which URL is asked */
3120     av_url_split(NULL, 0, NULL, 0, NULL, 0, NULL, path1, sizeof(path1), url);
3121     path = path1;
3122     if (*path == '/')
3123         path++;
3124
3125     /* now check each stream */
3126     for(stream = config.first_stream; stream; stream = stream->next) {
3127         if (stream->is_feed || !stream->fmt ||
3128             strcmp(stream->fmt->name, "rtp")) {
3129             continue;
3130         }
3131         /* accept aggregate filenames only if single stream */
3132         if (!strcmp(path, stream->filename)) {
3133             if (stream->nb_streams != 1) {
3134                 rtsp_reply_error(c, RTSP_STATUS_AGGREGATE);
3135                 return;
3136             }
3137             stream_index = 0;
3138             goto found;
3139         }
3140
3141         for(stream_index = 0; stream_index < stream->nb_streams;
3142             stream_index++) {
3143             snprintf(buf, sizeof(buf), "%s/streamid=%d",
3144                      stream->filename, stream_index);
3145             if (!strcmp(path, buf))
3146                 goto found;
3147         }
3148     }
3149     /* no stream found */
3150     rtsp_reply_error(c, RTSP_STATUS_SERVICE); /* XXX: right error ? */
3151     return;
3152  found:
3153
3154     /* generate session id if needed */
3155     if (h->session_id[0] == '\0') {
3156         unsigned random0 = av_lfg_get(&random_state);
3157         unsigned random1 = av_lfg_get(&random_state);
3158         snprintf(h->session_id, sizeof(h->session_id), "%08x%08x",
3159                  random0, random1);
3160     }
3161
3162     /* find RTP session, and create it if none found */
3163     rtp_c = find_rtp_session(h->session_id);
3164     if (!rtp_c) {
3165         /* always prefer UDP */
3166         th = find_transport(h, RTSP_LOWER_TRANSPORT_UDP);
3167         if (!th) {
3168             th = find_transport(h, RTSP_LOWER_TRANSPORT_TCP);
3169             if (!th) {
3170                 rtsp_reply_error(c, RTSP_STATUS_TRANSPORT);
3171                 return;
3172             }
3173         }
3174
3175         rtp_c = rtp_new_connection(&c->from_addr, stream, h->session_id,
3176                                    th->lower_transport);
3177         if (!rtp_c) {
3178             rtsp_reply_error(c, RTSP_STATUS_BANDWIDTH);
3179             return;
3180         }
3181
3182         /* open input stream */
3183         if (open_input_stream(rtp_c, "") < 0) {
3184             rtsp_reply_error(c, RTSP_STATUS_INTERNAL);
3185             return;
3186         }
3187     }
3188
3189     /* test if stream is OK (test needed because several SETUP needs
3190      * to be done for a given file) */
3191     if (rtp_c->stream != stream) {
3192         rtsp_reply_error(c, RTSP_STATUS_SERVICE);
3193         return;
3194     }
3195
3196     /* test if stream is already set up */
3197     if (rtp_c->rtp_ctx[stream_index]) {
3198         rtsp_reply_error(c, RTSP_STATUS_STATE);
3199         return;
3200     }
3201
3202     /* check transport */
3203     th = find_transport(h, rtp_c->rtp_protocol);
3204     if (!th || (th->lower_transport == RTSP_LOWER_TRANSPORT_UDP &&
3205                 th->client_port_min <= 0)) {
3206         rtsp_reply_error(c, RTSP_STATUS_TRANSPORT);
3207         return;
3208     }
3209
3210     /* setup default options */
3211     setup.transport_option[0] = '\0';
3212     dest_addr = rtp_c->from_addr;
3213     dest_addr.sin_port = htons(th->client_port_min);
3214
3215     /* setup stream */
3216     if (rtp_new_av_stream(rtp_c, stream_index, &dest_addr, c) < 0) {
3217         rtsp_reply_error(c, RTSP_STATUS_TRANSPORT);
3218         return;
3219     }
3220
3221     /* now everything is OK, so we can send the connection parameters */
3222     rtsp_reply_header(c, RTSP_STATUS_OK);
3223     /* session ID */
3224     avio_printf(c->pb, "Session: %s\r\n", rtp_c->session_id);
3225
3226     switch(rtp_c->rtp_protocol) {
3227     case RTSP_LOWER_TRANSPORT_UDP:
3228         rtp_port = ff_rtp_get_local_rtp_port(rtp_c->rtp_handles[stream_index]);
3229         rtcp_port = ff_rtp_get_local_rtcp_port(rtp_c->rtp_handles[stream_index]);
3230         avio_printf(c->pb, "Transport: RTP/AVP/UDP;unicast;"
3231                     "client_port=%d-%d;server_port=%d-%d",
3232                     th->client_port_min, th->client_port_max,
3233                     rtp_port, rtcp_port);
3234         break;
3235     case RTSP_LOWER_TRANSPORT_TCP:
3236         avio_printf(c->pb, "Transport: RTP/AVP/TCP;interleaved=%d-%d",
3237                     stream_index * 2, stream_index * 2 + 1);
3238         break;
3239     default:
3240         break;
3241     }
3242     if (setup.transport_option[0] != '\0')
3243         avio_printf(c->pb, ";%s", setup.transport_option);
3244     avio_printf(c->pb, "\r\n");
3245
3246
3247     avio_printf(c->pb, "\r\n");
3248 }
3249
3250
3251 /**
3252  * find an RTP connection by using the session ID. Check consistency
3253  * with filename
3254  */
3255 static HTTPContext *find_rtp_session_with_url(const char *url,
3256                                               const char *session_id)
3257 {
3258     HTTPContext *rtp_c;
3259     char path1[1024];
3260     const char *path;
3261     char buf[1024];
3262     int s, len;
3263
3264     rtp_c = find_rtp_session(session_id);
3265     if (!rtp_c)
3266         return NULL;
3267
3268     /* find which URL is asked */
3269     av_url_split(NULL, 0, NULL, 0, NULL, 0, NULL, path1, sizeof(path1), url);
3270     path = path1;
3271     if (*path == '/')
3272         path++;
3273     if(!strcmp(path, rtp_c->stream->filename)) return rtp_c;
3274     for(s=0; s<rtp_c->stream->nb_streams; ++s) {
3275       snprintf(buf, sizeof(buf), "%s/streamid=%d",
3276         rtp_c->stream->filename, s);
3277       if(!strncmp(path, buf, sizeof(buf)))
3278         /* XXX: Should we reply with RTSP_STATUS_ONLY_AGGREGATE
3279          * if nb_streams>1? */
3280         return rtp_c;
3281     }
3282     len = strlen(path);
3283     if (len > 0 && path[len - 1] == '/' &&
3284         !strncmp(path, rtp_c->stream->filename, len - 1))
3285         return rtp_c;
3286     return NULL;
3287 }
3288
3289 static void rtsp_cmd_play(HTTPContext *c, const char *url, RTSPMessageHeader *h)
3290 {
3291     HTTPContext *rtp_c;
3292
3293     rtp_c = find_rtp_session_with_url(url, h->session_id);
3294     if (!rtp_c) {
3295         rtsp_reply_error(c, RTSP_STATUS_SESSION);
3296         return;
3297     }
3298
3299     if (rtp_c->state != HTTPSTATE_SEND_DATA &&
3300         rtp_c->state != HTTPSTATE_WAIT_FEED &&
3301         rtp_c->state != HTTPSTATE_READY) {
3302         rtsp_reply_error(c, RTSP_STATUS_STATE);
3303         return;
3304     }
3305
3306     rtp_c->state = HTTPSTATE_SEND_DATA;
3307
3308     /* now everything is OK, so we can send the connection parameters */
3309     rtsp_reply_header(c, RTSP_STATUS_OK);
3310     /* session ID */
3311     avio_printf(c->pb, "Session: %s\r\n", rtp_c->session_id);
3312     avio_printf(c->pb, "\r\n");
3313 }
3314
3315 static void rtsp_cmd_interrupt(HTTPContext *c, const char *url,
3316                                RTSPMessageHeader *h, int pause_only)
3317 {
3318     HTTPContext *rtp_c;
3319
3320     rtp_c = find_rtp_session_with_url(url, h->session_id);
3321     if (!rtp_c) {
3322         rtsp_reply_error(c, RTSP_STATUS_SESSION);
3323         return;
3324     }
3325
3326     if (pause_only) {
3327         if (rtp_c->state != HTTPSTATE_SEND_DATA &&
3328             rtp_c->state != HTTPSTATE_WAIT_FEED) {
3329             rtsp_reply_error(c, RTSP_STATUS_STATE);
3330             return;
3331         }
3332         rtp_c->state = HTTPSTATE_READY;
3333         rtp_c->first_pts = AV_NOPTS_VALUE;
3334     }
3335
3336     /* now everything is OK, so we can send the connection parameters */
3337     rtsp_reply_header(c, RTSP_STATUS_OK);
3338     /* session ID */
3339     avio_printf(c->pb, "Session: %s\r\n", rtp_c->session_id);
3340     avio_printf(c->pb, "\r\n");
3341
3342     if (!pause_only)
3343         close_connection(rtp_c);
3344 }
3345
3346 /********************************************************************/
3347 /* RTP handling */
3348
3349 static HTTPContext *rtp_new_connection(struct sockaddr_in *from_addr,
3350                                        FFServerStream *stream,
3351                                        const char *session_id,
3352                                        enum RTSPLowerTransport rtp_protocol)
3353 {
3354     HTTPContext *c = NULL;
3355     const char *proto_str;
3356
3357     /* XXX: should output a warning page when coming
3358      * close to the connection limit */
3359     if (nb_connections >= config.nb_max_connections)
3360         goto fail;
3361
3362     /* add a new connection */
3363     c = av_mallocz(sizeof(HTTPContext));
3364     if (!c)
3365         goto fail;
3366
3367     c->fd = -1;
3368     c->poll_entry = NULL;
3369     c->from_addr = *from_addr;
3370     c->buffer_size = IOBUFFER_INIT_SIZE;
3371     c->buffer = av_malloc(c->buffer_size);
3372     if (!c->buffer)
3373         goto fail;
3374     nb_connections++;
3375     c->stream = stream;
3376     av_strlcpy(c->session_id, session_id, sizeof(c->session_id));
3377     c->state = HTTPSTATE_READY;
3378     c->is_packetized = 1;
3379     c->rtp_protocol = rtp_protocol;
3380
3381     /* protocol is shown in statistics */
3382     switch(c->rtp_protocol) {
3383     case RTSP_LOWER_TRANSPORT_UDP_MULTICAST:
3384         proto_str = "MCAST";
3385         break;
3386     case RTSP_LOWER_TRANSPORT_UDP:
3387         proto_str = "UDP";
3388         break;
3389     case RTSP_LOWER_TRANSPORT_TCP:
3390         proto_str = "TCP";
3391         break;
3392     default:
3393         proto_str = "???";
3394         break;
3395     }
3396     av_strlcpy(c->protocol, "RTP/", sizeof(c->protocol));
3397     av_strlcat(c->protocol, proto_str, sizeof(c->protocol));
3398
3399     current_bandwidth += stream->bandwidth;
3400
3401     c->next = first_http_ctx;
3402     first_http_ctx = c;
3403     return c;
3404
3405  fail:
3406     if (c) {
3407         av_freep(&c->buffer);
3408         av_free(c);
3409     }
3410     return NULL;
3411 }
3412
3413 /**
3414  * add a new RTP stream in an RTP connection (used in RTSP SETUP
3415  * command). If RTP/TCP protocol is used, TCP connection 'rtsp_c' is
3416  * used.
3417  */
3418 static int rtp_new_av_stream(HTTPContext *c,
3419                              int stream_index, struct sockaddr_in *dest_addr,
3420                              HTTPContext *rtsp_c)
3421 {
3422     AVFormatContext *ctx;
3423     AVStream *st;
3424     char *ipaddr;
3425     URLContext *h = NULL;
3426     uint8_t *dummy_buf;
3427     int max_packet_size;
3428     void *st_internal;
3429
3430     /* now we can open the relevant output stream */
3431     ctx = avformat_alloc_context();
3432     if (!ctx)
3433         return -1;
3434     ctx->oformat = av_guess_format("rtp", NULL, NULL);
3435
3436     st = avformat_new_stream(ctx, NULL);
3437     if (!st)
3438         goto fail;
3439
3440     st_internal = st->internal;
3441
3442     if (!c->stream->feed ||
3443         c->stream->feed == c->stream)
3444         unlayer_stream(st, c->stream->streams[stream_index]);
3445     else
3446         unlayer_stream(st,
3447                c->stream->feed->streams[c->stream->feed_streams[stream_index]]);
3448     av_assert0(st->priv_data == NULL);
3449     av_assert0(st->internal == st_internal);
3450
3451     /* build destination RTP address */
3452     ipaddr = inet_ntoa(dest_addr->sin_addr);
3453
3454     switch(c->rtp_protocol) {
3455     case RTSP_LOWER_TRANSPORT_UDP:
3456     case RTSP_LOWER_TRANSPORT_UDP_MULTICAST:
3457         /* RTP/UDP case */
3458
3459         /* XXX: also pass as parameter to function ? */
3460         if (c->stream->is_multicast) {
3461             int ttl;
3462             ttl = c->stream->multicast_ttl;
3463             if (!ttl)
3464                 ttl = 16;
3465             snprintf(ctx->filename, sizeof(ctx->filename),
3466                      "rtp://%s:%d?multicast=1&ttl=%d",
3467                      ipaddr, ntohs(dest_addr->sin_port), ttl);
3468         } else {
3469             snprintf(ctx->filename, sizeof(ctx->filename),
3470                      "rtp://%s:%d", ipaddr, ntohs(dest_addr->sin_port));
3471         }
3472
3473         if (ffurl_open(&h, ctx->filename, AVIO_FLAG_WRITE, NULL, NULL) < 0)
3474             goto fail;
3475         c->rtp_handles[stream_index] = h;
3476         max_packet_size = h->max_packet_size;
3477         break;
3478     case RTSP_LOWER_TRANSPORT_TCP:
3479         /* RTP/TCP case */
3480         c->rtsp_c = rtsp_c;
3481         max_packet_size = RTSP_TCP_MAX_PACKET_SIZE;
3482         break;
3483     default:
3484         goto fail;
3485     }
3486
3487     http_log("%s:%d - - \"PLAY %s/streamid=%d %s\"\n",
3488              ipaddr, ntohs(dest_addr->sin_port),
3489              c->stream->filename, stream_index, c->protocol);
3490
3491     /* normally, no packets should be output here, but the packet size may
3492      * be checked */
3493     if (ffio_open_dyn_packet_buf(&ctx->pb, max_packet_size) < 0)
3494         /* XXX: close stream */
3495         goto fail;
3496
3497     if (avformat_write_header(ctx, NULL) < 0) {
3498     fail:
3499         if (h)
3500             ffurl_close(h);
3501         av_free(st);
3502         av_free(ctx);
3503         return -1;
3504     }
3505     avio_close_dyn_buf(ctx->pb, &dummy_buf);
3506     ctx->pb = NULL;
3507     av_free(dummy_buf);
3508
3509     c->rtp_ctx[stream_index] = ctx;
3510     return 0;
3511 }
3512
3513 /********************************************************************/
3514 /* ffserver initialization */
3515
3516 /* FIXME: This code should use avformat_new_stream() */
3517 static LayeredAVStream *add_av_stream1(FFServerStream *stream,
3518                                 AVCodecContext *codec, int copy)
3519 {
3520     LayeredAVStream *fst;
3521
3522     if(stream->nb_streams >= FF_ARRAY_ELEMS(stream->streams))
3523         return NULL;
3524
3525     fst = av_mallocz(sizeof(*fst));
3526     if (!fst)
3527         return NULL;
3528     if (copy) {
3529         fst->codec = avcodec_alloc_context3(codec->codec);
3530         if (!fst->codec) {
3531             av_free(fst);
3532             return NULL;
3533         }
3534         avcodec_copy_context(fst->codec, codec);
3535     } else
3536         /* live streams must use the actual feed's codec since it may be
3537          * updated later to carry extradata needed by them.
3538          */
3539         fst->codec = codec;
3540
3541     //NOTE we previously allocated internal & internal->avctx, these seemed uneeded though
3542     fst->codecpar = avcodec_parameters_alloc();
3543     fst->index = stream->nb_streams;
3544     fst->time_base = (AVRational) {1, 90000};
3545     fst->pts_wrap_bits = 33;
3546     fst->sample_aspect_ratio = codec->sample_aspect_ratio;
3547     stream->streams[stream->nb_streams++] = fst;
3548     return fst;
3549 }
3550
3551 /* return the stream number in the feed */
3552 static int add_av_stream(FFServerStream *feed, LayeredAVStream *st)
3553 {
3554     LayeredAVStream *fst;
3555     AVCodecContext *av, *av1;
3556     int i;
3557
3558     av = st->codec;
3559     for(i=0;i<feed->nb_streams;i++) {
3560         av1 = feed->streams[i]->codec;
3561         if (av1->codec_id == av->codec_id &&
3562             av1->codec_type == av->codec_type &&
3563             av1->bit_rate == av->bit_rate) {
3564
3565             switch(av->codec_type) {
3566             case AVMEDIA_TYPE_AUDIO:
3567                 if (av1->channels == av->channels &&
3568                     av1->sample_rate == av->sample_rate)
3569                     return i;
3570                 break;
3571             case AVMEDIA_TYPE_VIDEO:
3572                 if (av1->width == av->width &&
3573                     av1->height == av->height &&
3574                     av1->time_base.den == av->time_base.den &&
3575                     av1->time_base.num == av->time_base.num &&
3576                     av1->gop_size == av->gop_size)
3577                     return i;
3578                 break;
3579             default:
3580                 abort();
3581             }
3582         }
3583     }
3584
3585     fst = add_av_stream1(feed, av, 0);
3586     if (!fst)
3587         return -1;
3588     if (st->recommended_encoder_configuration)
3589         fst->recommended_encoder_configuration =
3590             av_strdup(st->recommended_encoder_configuration);
3591     return feed->nb_streams - 1;
3592 }
3593
3594 static void remove_stream(FFServerStream *stream)
3595 {
3596     FFServerStream **ps;
3597     ps = &config.first_stream;
3598     while (*ps) {
3599         if (*ps == stream)
3600             *ps = (*ps)->next;
3601         else
3602             ps = &(*ps)->next;
3603     }
3604 }
3605
3606 /* compute the needed AVStream for each file */
3607 static void build_file_streams(void)
3608 {
3609     FFServerStream *stream;
3610     AVFormatContext *infile;
3611     int i, ret;
3612
3613     /* gather all streams */
3614     for(stream = config.first_stream; stream; stream = stream->next) {
3615         infile = NULL;
3616
3617         if (stream->stream_type != STREAM_TYPE_LIVE || stream->feed)
3618             continue;
3619
3620         /* the stream comes from a file */
3621         /* try to open the file */
3622         /* open stream */
3623
3624
3625         /* specific case: if transport stream output to RTP,
3626          * we use a raw transport stream reader */
3627         if (stream->fmt && !strcmp(stream->fmt->name, "rtp"))
3628             av_dict_set(&stream->in_opts, "mpeg2ts_compute_pcr", "1", 0);
3629
3630         if (!stream->feed_filename[0]) {
3631             http_log("Unspecified feed file for stream '%s'\n",
3632                      stream->filename);
3633             goto fail;
3634         }
3635
3636         http_log("Opening feed file '%s' for stream '%s'\n",
3637                  stream->feed_filename, stream->filename);
3638
3639         ret = avformat_open_input(&infile, stream->feed_filename,
3640                                   stream->ifmt, &stream->in_opts);
3641         if (ret < 0) {
3642             http_log("Could not open '%s': %s\n", stream->feed_filename,
3643                      av_err2str(ret));
3644             /* remove stream (no need to spend more time on it) */
3645         fail:
3646             remove_stream(stream);
3647         } else {
3648             /* find all the AVStreams inside and reference them in
3649              * 'stream' */
3650             if (avformat_find_stream_info(infile, NULL) < 0) {
3651                 http_log("Could not find codec parameters from '%s'\n",
3652                          stream->feed_filename);
3653                 avformat_close_input(&infile);
3654                 goto fail;
3655             }
3656
3657             for(i=0;i<infile->nb_streams;i++)
3658                 add_av_stream1(stream, infile->streams[i]->codec, 1);
3659
3660             avformat_close_input(&infile);
3661         }
3662     }
3663 }
3664
3665 static inline
3666 int check_codec_match(LayeredAVStream *ccf, AVStream *ccs, int stream)
3667 {
3668     int matches = 1;
3669
3670 /* FIXME: Missed check on AVCodecContext.flags */
3671 #define CHECK_CODEC(x)  (ccf->codecpar->x != ccs->codecpar->x)
3672     if (CHECK_CODEC(codec_id) || CHECK_CODEC(codec_type)) {
3673         http_log("Codecs do not match for stream %d\n", stream);
3674         matches = 0;
3675     } else if (CHECK_CODEC(bit_rate)) {
3676         http_log("Codec bitrates do not match for stream %d\n", stream);
3677         matches = 0;
3678     } else if (ccf->codecpar->codec_type == AVMEDIA_TYPE_VIDEO) {
3679         if (av_cmp_q(ccf->time_base, ccs->time_base) ||
3680             CHECK_CODEC(width) || CHECK_CODEC(height)) {
3681             http_log("Codec width, height or framerate do not match for stream %d\n", stream);
3682             matches = 0;
3683         }
3684     } else if (ccf->codecpar->codec_type == AVMEDIA_TYPE_AUDIO) {
3685         if (CHECK_CODEC(sample_rate) ||
3686             CHECK_CODEC(channels) ||
3687             CHECK_CODEC(frame_size)) {
3688             http_log("Codec sample_rate, channels, frame_size do not match for stream %d\n", stream);
3689             matches = 0;
3690         }
3691     } else {
3692         http_log("Unknown codec type for stream %d\n", stream);
3693         matches = 0;
3694     }
3695
3696     return matches;
3697 }
3698
3699 /* compute the needed AVStream for each feed */
3700 static int build_feed_streams(void)
3701 {
3702     FFServerStream *stream, *feed;
3703     int i, fd;
3704
3705     /* gather all streams */
3706     for(stream = config.first_stream; stream; stream = stream->next) {
3707         feed = stream->feed;
3708         if (!feed)
3709             continue;
3710
3711         if (stream->is_feed) {
3712             for(i=0;i<stream->nb_streams;i++)
3713                 stream->feed_streams[i] = i;
3714             continue;
3715         }
3716         /* we handle a stream coming from a feed */
3717         for(i=0;i<stream->nb_streams;i++)
3718             stream->feed_streams[i] = add_av_stream(feed, stream->streams[i]);
3719     }
3720
3721     /* create feed files if needed */
3722     for(feed = config.first_feed; feed; feed = feed->next_feed) {
3723
3724         if (avio_check(feed->feed_filename, AVIO_FLAG_READ) > 0) {
3725             AVFormatContext *s = NULL;
3726             int matches = 0;
3727
3728             /* See if it matches */
3729
3730             if (avformat_open_input(&s, feed->feed_filename, NULL, NULL) < 0) {
3731                 http_log("Deleting feed file '%s' as it appears "
3732                             "to be corrupt\n",
3733                          feed->feed_filename);
3734                 goto drop;
3735             }
3736
3737             /* set buffer size */
3738             if (ffio_set_buf_size(s->pb, FFM_PACKET_SIZE) < 0) {
3739                 http_log("Failed to set buffer size\n");
3740                 avformat_close_input(&s);
3741                 goto bail;
3742             }
3743
3744             /* Now see if it matches */
3745             if (s->nb_streams != feed->nb_streams) {
3746                 http_log("Deleting feed file '%s' as stream counts "
3747                             "differ (%d != %d)\n",
3748                          feed->feed_filename, s->nb_streams, feed->nb_streams);
3749                 goto drop;
3750             }
3751
3752             matches = 1;
3753             for(i=0;i<s->nb_streams;i++) {
3754                 AVStream *ss;
3755                 LayeredAVStream *sf;
3756
3757                 sf = feed->streams[i];
3758                 ss = s->streams[i];
3759
3760                 if (sf->index != ss->index || sf->id != ss->id) {
3761                     http_log("Index & Id do not match for stream %d (%s)\n",
3762                              i, feed->feed_filename);
3763                     matches = 0;
3764                     break;
3765                 }
3766
3767                 matches = check_codec_match (sf, ss, i);
3768                 if (!matches)
3769                     break;
3770             }
3771
3772 drop:
3773             if (s)
3774                 avformat_close_input(&s);
3775
3776             if (!matches) {
3777                 if (feed->readonly) {
3778                     http_log("Unable to delete read-only feed file '%s'\n",
3779                              feed->feed_filename);
3780                     goto bail;
3781                 }
3782                 unlink(feed->feed_filename);
3783             }
3784         }
3785
3786         if (avio_check(feed->feed_filename, AVIO_FLAG_WRITE) <= 0) {
3787             AVFormatContext *s = avformat_alloc_context();
3788
3789             if (!s) {
3790                 http_log("Failed to allocate context\n");
3791                 goto bail;
3792             }
3793
3794             if (feed->readonly) {
3795                 http_log("Unable to create feed file '%s' as it is "
3796                             "marked readonly\n",
3797                          feed->feed_filename);
3798                 avformat_free_context(s);
3799                 goto bail;
3800             }
3801
3802             /* only write the header of the ffm file */
3803             if (avio_open(&s->pb, feed->feed_filename, AVIO_FLAG_WRITE) < 0) {
3804                 http_log("Could not open output feed file '%s'\n",
3805                          feed->feed_filename);
3806                 avformat_free_context(s);
3807                 goto bail;
3808             }
3809             s->oformat = feed->fmt;
3810             for (i = 0; i<feed->nb_streams; i++) {
3811                 AVStream *st = avformat_new_stream(s, NULL); // FIXME free this
3812                 if (!st) {
3813                     http_log("Failed to allocate stream\n");
3814                     goto bail;
3815                 }
3816                 unlayer_stream(st, feed->streams[i]);
3817             }
3818             if (avformat_write_header(s, NULL) < 0) {
3819                 http_log("Container doesn't support the required parameters\n");
3820                 avio_closep(&s->pb);
3821                 s->streams = NULL;
3822                 s->nb_streams = 0;
3823                 avformat_free_context(s);
3824                 goto bail;
3825             }
3826             /* XXX: need better API */
3827             av_freep(&s->priv_data);
3828             avio_closep(&s->pb);
3829             s->streams = NULL;
3830             s->nb_streams = 0;
3831             avformat_free_context(s);
3832         }
3833
3834         /* get feed size and write index */
3835         fd = open(feed->feed_filename, O_RDONLY);
3836         if (fd < 0) {
3837             http_log("Could not open output feed file '%s'\n",
3838                     feed->feed_filename);
3839             goto bail;
3840         }
3841
3842         feed->feed_write_index = FFMAX(ffm_read_write_index(fd),
3843                                        FFM_PACKET_SIZE);
3844         feed->feed_size = lseek(fd, 0, SEEK_END);
3845         /* ensure that we do not wrap before the end of file */
3846         if (feed->feed_max_size && feed->feed_max_size < feed->feed_size)
3847             feed->feed_max_size = feed->feed_size;
3848
3849         close(fd);
3850     }
3851     return 0;
3852
3853 bail:
3854     return -1;
3855 }
3856
3857 /* compute the bandwidth used by each stream */
3858 static void compute_bandwidth(void)
3859 {
3860     unsigned bandwidth;
3861     int i;
3862     FFServerStream *stream;
3863
3864     for(stream = config.first_stream; stream; stream = stream->next) {
3865         bandwidth = 0;
3866         for(i=0;i<stream->nb_streams;i++) {
3867             LayeredAVStream *st = stream->streams[i];
3868             switch(st->codec->codec_type) {
3869             case AVMEDIA_TYPE_AUDIO:
3870             case AVMEDIA_TYPE_VIDEO:
3871                 bandwidth += st->codec->bit_rate;
3872                 break;
3873             default:
3874                 break;
3875             }
3876         }
3877         stream->bandwidth = (bandwidth + 999) / 1000;
3878     }
3879 }
3880
3881 static void handle_child_exit(int sig)
3882 {
3883     pid_t pid;
3884     int status;
3885     time_t uptime;
3886
3887     while ((pid = waitpid(-1, &status, WNOHANG)) > 0) {
3888         FFServerStream *feed;
3889
3890         for (feed = config.first_feed; feed; feed = feed->next) {
3891             if (feed->pid != pid)
3892                 continue;
3893
3894             uptime = time(0) - feed->pid_start;
3895             feed->pid = 0;
3896             fprintf(stderr,
3897                     "%s: Pid %"PRId64" exited with status %d after %"PRId64" "
3898                         "seconds\n",
3899                     feed->filename, (int64_t) pid, status, (int64_t)uptime);
3900
3901             if (uptime < 30)
3902                 /* Turn off any more restarts */
3903                 ffserver_free_child_args(&feed->child_argv);
3904         }
3905     }
3906
3907     need_to_start_children = 1;
3908 }
3909
3910 static void opt_debug(void)
3911 {
3912     config.debug = 1;
3913     snprintf(config.logfilename, sizeof(config.logfilename), "-");
3914 }
3915
3916 void show_help_default(const char *opt, const char *arg)
3917 {
3918     printf("usage: ffserver [options]\n"
3919            "Hyper fast multi format Audio/Video streaming server\n");
3920     printf("\n");
3921     show_help_options(options, "Main options:", 0, 0, 0);
3922 }
3923
3924 static const OptionDef options[] = {
3925 #include "cmdutils_common_opts.h"
3926     { "n", OPT_BOOL, {(void *)&no_launch }, "enable no-launch mode" },
3927     { "d", 0, {(void*)opt_debug}, "enable debug mode" },
3928     { "f", HAS_ARG | OPT_STRING, {(void*)&config.filename }, "use configfile instead of /etc/ffserver.conf", "configfile" },
3929     { NULL },
3930 };
3931
3932 int main(int argc, char **argv)
3933 {
3934     struct sigaction sigact = { { 0 } };
3935     int cfg_parsed;
3936     int ret = EXIT_FAILURE;
3937
3938     init_dynload();
3939
3940     config.filename = av_strdup("/etc/ffserver.conf");
3941
3942     parse_loglevel(argc, argv, options);
3943     av_register_all();
3944     avformat_network_init();
3945
3946     show_banner(argc, argv, options);
3947
3948     my_program_name = argv[0];
3949
3950     parse_options(NULL, argc, argv, options, NULL);
3951
3952     unsetenv("http_proxy");             /* Kill the http_proxy */
3953
3954     av_lfg_init(&random_state, av_get_random_seed());
3955
3956     sigact.sa_handler = handle_child_exit;
3957     sigact.sa_flags = SA_NOCLDSTOP | SA_RESTART;
3958     sigaction(SIGCHLD, &sigact, 0);
3959
3960     if ((cfg_parsed = ffserver_parse_ffconfig(config.filename, &config)) < 0) {
3961         fprintf(stderr, "Error reading configuration file '%s': %s\n",
3962                 config.filename, av_err2str(cfg_parsed));
3963         goto bail;
3964     }
3965
3966     /* open log file if needed */
3967     if (config.logfilename[0] != '\0') {
3968         if (!strcmp(config.logfilename, "-"))
3969             logfile = stdout;
3970         else
3971             logfile = fopen(config.logfilename, "a");
3972         av_log_set_callback(http_av_log);
3973     }
3974
3975     build_file_streams();
3976
3977     if (build_feed_streams() < 0) {
3978         http_log("Could not setup feed streams\n");
3979         goto bail;
3980     }
3981
3982     compute_bandwidth();
3983
3984     /* signal init */
3985     signal(SIGPIPE, SIG_IGN);
3986
3987     if (http_server() < 0) {
3988         http_log("Could not start server\n");
3989         goto bail;
3990     }
3991
3992     ret=EXIT_SUCCESS;
3993
3994 bail:
3995     av_freep (&config.filename);
3996     avformat_network_deinit();
3997     return ret;
3998 }