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