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