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