PeerStreamer

/*

 * RTSP/SDP client

 * Copyright (c) 2002 Fabrice Bellard

 *

 * This file is part of Libav.

 *

 * Libav is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2.1 of the License, or (at your option) any later version.

 *

 * Libav is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with Libav; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

 */

#include "libavutil/base64.h"

#include "libavutil/avstring.h"

#include "libavutil/intreadwrite.h"

#include "libavutil/parseutils.h"

#include "libavutil/random_seed.h"

#include "avformat.h"

#include "avio_internal.h"

#include <sys/time.h>

#if HAVE_POLL_H

#include <poll.h>

#endif

#include <strings.h>

#include "internal.h"

#include "network.h"

#include "os_support.h"

#include "http.h"

#include "rtsp.h"

#include "rtpdec.h"

#include "rdt.h"

#include "rtpdec_formats.h"

#include "rtpenc_chain.h"

#include "url.h"

//#define DEBUG

//#define DEBUG_RTP_TCP

/* Timeout values for socket poll, in ms,

 * and read_packet(), in seconds  */

#define POLL_TIMEOUT_MS 100

#define READ_PACKET_TIMEOUT_S 10

#define MAX_TIMEOUTS READ_PACKET_TIMEOUT_S * 1000 / POLL_TIMEOUT_MS

#define SDP_MAX_SIZE 16384

#define RECVBUF_SIZE 10 * RTP_MAX_PACKET_LENGTH

static void get_word_until_chars(char *buf, int buf_size,

                                 const char *sep, const char **pp)

{

    const char *p;

    char *q;

    p = *pp;

    p += strspn(p, SPACE_CHARS);

    q = buf;

    while (!strchr(sep, *p) && *p != '\0') {

        if ((q - buf) < buf_size - 1)

            *q++ = *p;

        p++;

    }

    if (buf_size > 0)

        *q = '\0';

    *pp = p;

}

static void get_word_sep(char *buf, int buf_size, const char *sep,

                         const char **pp)

{

    if (**pp == '/') (*pp)++;

    get_word_until_chars(buf, buf_size, sep, pp);

}

static void get_word(char *buf, int buf_size, const char **pp)

{

    get_word_until_chars(buf, buf_size, SPACE_CHARS, pp);

}

/** Parse a string p in the form of Range:npt=xx-xx, and determine the start

 *  and end time.

 *  Used for seeking in the rtp stream.

 */

static void rtsp_parse_range_npt(const char *p, int64_t *start, int64_t *end)

{

    char buf[256];

    p += strspn(p, SPACE_CHARS);

    if (!av_stristart(p, "npt=", &p))

        return;

    *start = AV_NOPTS_VALUE;

    *end = AV_NOPTS_VALUE;

    get_word_sep(buf, sizeof(buf), "-", &p);

    av_parse_time(start, buf, 1);

    if (*p == '-') {

        p++;

        get_word_sep(buf, sizeof(buf), "-", &p);

        av_parse_time(end, buf, 1);

    }

//    av_log(NULL, AV_LOG_DEBUG, "Range Start: %lld\n", *start);

//    av_log(NULL, AV_LOG_DEBUG, "Range End: %lld\n", *end);

}

static int get_sockaddr(const char *buf, struct sockaddr_storage *sock)

{

    struct addrinfo hints, *ai = NULL;

    memset(&hints, 0, sizeof(hints));

    hints.ai_flags = AI_NUMERICHOST;

    if (getaddrinfo(buf, NULL, &hints, &ai))

        return -1;

    memcpy(sock, ai->ai_addr, FFMIN(sizeof(*sock), ai->ai_addrlen));

    freeaddrinfo(ai);

    return 0;

}

#if CONFIG_RTPDEC

static void init_rtp_handler(RTPDynamicProtocolHandler *handler,

                             RTSPStream *rtsp_st, AVCodecContext *codec)

{

    if (!handler)

        return;

    codec->codec_id          = handler->codec_id;

    rtsp_st->dynamic_handler = handler;

    if (handler->open)

        rtsp_st->dynamic_protocol_context = handler->open();

}

/* parse the rtpmap description: <codec_name>/<clock_rate>[/<other params>] */

static int sdp_parse_rtpmap(AVFormatContext *s,

                            AVStream *st, RTSPStream *rtsp_st,

                            int payload_type, const char *p)

{

    AVCodecContext *codec = st->codec;

    char buf[256];

    int i;

    AVCodec *c;

    const char *c_name;

    /* Loop into AVRtpDynamicPayloadTypes[] and AVRtpPayloadTypes[] and

     * see if we can handle this kind of payload.

     * The space should normally not be there but some Real streams or

     * particular servers ("RealServer Version 6.1.3.970", see issue 1658)

     * have a trailing space. */

    get_word_sep(buf, sizeof(buf), "/ ", &p);

    if (payload_type >= RTP_PT_PRIVATE) {

        RTPDynamicProtocolHandler *handler =

            ff_rtp_handler_find_by_name(buf, codec->codec_type);

        init_rtp_handler(handler, rtsp_st, codec);

        /* If no dynamic handler was found, check with the list of standard

         * allocated types, if such a stream for some reason happens to

         * use a private payload type. This isn't handled in rtpdec.c, since

         * the format name from the rtpmap line never is passed into rtpdec. */

        if (!rtsp_st->dynamic_handler)

            codec->codec_id = ff_rtp_codec_id(buf, codec->codec_type);

    } else {

        /* We are in a standard case

         * (from http://www.iana.org/assignments/rtp-parameters). */

        /* search into AVRtpPayloadTypes[] */

        codec->codec_id = ff_rtp_codec_id(buf, codec->codec_type);

    }

    c = avcodec_find_decoder(codec->codec_id);

    if (c && c->name)

        c_name = c->name;

    else

        c_name = "(null)";

    get_word_sep(buf, sizeof(buf), "/", &p);

    i = atoi(buf);

    switch (codec->codec_type) {

    case AVMEDIA_TYPE_AUDIO:

        av_log(s, AV_LOG_DEBUG, "audio codec set to: %s\n", c_name);

        codec->sample_rate = RTSP_DEFAULT_AUDIO_SAMPLERATE;

        codec->channels = RTSP_DEFAULT_NB_AUDIO_CHANNELS;

        if (i > 0) {

            codec->sample_rate = i;

            av_set_pts_info(st, 32, 1, codec->sample_rate);

            get_word_sep(buf, sizeof(buf), "/", &p);

            i = atoi(buf);

            if (i > 0)

                codec->channels = i;

            // TODO: there is a bug here; if it is a mono stream, and

            // less than 22000Hz, faad upconverts to stereo and twice

            // the frequency.  No problem, but the sample rate is being

            // set here by the sdp line. Patch on its way. (rdm)

        }

        av_log(s, AV_LOG_DEBUG, "audio samplerate set to: %i\n",

               codec->sample_rate);

        av_log(s, AV_LOG_DEBUG, "audio channels set to: %i\n",

               codec->channels);

        break;

    case AVMEDIA_TYPE_VIDEO:

        av_log(s, AV_LOG_DEBUG, "video codec set to: %s\n", c_name);

        if (i > 0)

            av_set_pts_info(st, 32, 1, i);

        break;

    default:

        break;

    }

    return 0;

}

/* parse the attribute line from the fmtp a line of an sdp response. This

 * is broken out as a function because it is used in rtp_h264.c, which is

 * forthcoming. */

int ff_rtsp_next_attr_and_value(const char **p, char *attr, int attr_size,

                                char *value, int value_size)

{

    *p += strspn(*p, SPACE_CHARS);

    if (**p) {

        get_word_sep(attr, attr_size, "=", p);

        if (**p == '=')

            (*p)++;

        get_word_sep(value, value_size, ";", p);

        if (**p == ';')

            (*p)++;

        return 1;

    }

    return 0;

}

typedef struct SDPParseState {

    /* SDP only */

    struct sockaddr_storage default_ip;

    int            default_ttl;

    int            skip_media;  ///< set if an unknown m= line occurs

} SDPParseState;

static void sdp_parse_line(AVFormatContext *s, SDPParseState *s1,

                           int letter, const char *buf)

{

    RTSPState *rt = s->priv_data;

    char buf1[64], st_type[64];

    const char *p;

    enum AVMediaType codec_type;

    int payload_type, i;

    AVStream *st;

    RTSPStream *rtsp_st;

    struct sockaddr_storage sdp_ip;

    int ttl;

    av_dlog(s, "sdp: %c='%s'\n", letter, buf);

    p = buf;

    if (s1->skip_media && letter != 'm')

        return;

    switch (letter) {

    case 'c':

        get_word(buf1, sizeof(buf1), &p);

        if (strcmp(buf1, "IN") != 0)

            return;

        get_word(buf1, sizeof(buf1), &p);

        if (strcmp(buf1, "IP4") && strcmp(buf1, "IP6"))

            return;

        get_word_sep(buf1, sizeof(buf1), "/", &p);

        if (get_sockaddr(buf1, &sdp_ip))

            return;

        ttl = 16;

        if (*p == '/') {

            p++;

            get_word_sep(buf1, sizeof(buf1), "/", &p);

            ttl = atoi(buf1);

        }

        if (s->nb_streams == 0) {

            s1->default_ip = sdp_ip;

            s1->default_ttl = ttl;

        } else {

            rtsp_st = rt->rtsp_streams[rt->nb_rtsp_streams - 1];

            rtsp_st->sdp_ip = sdp_ip;

            rtsp_st->sdp_ttl = ttl;

        }

        break;

    case 's':

        av_metadata_set2(&s->metadata, "title", p, 0);

        break;

    case 'i':

        if (s->nb_streams == 0) {

            av_metadata_set2(&s->metadata, "comment", p, 0);

            break;

        }

        break;

    case 'm':

        /* new stream */

        s1->skip_media = 0;

        get_word(st_type, sizeof(st_type), &p);

        if (!strcmp(st_type, "audio")) {

            codec_type = AVMEDIA_TYPE_AUDIO;

        } else if (!strcmp(st_type, "video")) {

            codec_type = AVMEDIA_TYPE_VIDEO;

        } else if (!strcmp(st_type, "application")) {

            codec_type = AVMEDIA_TYPE_DATA;

        } else {

            s1->skip_media = 1;

            return;

        }

        rtsp_st = av_mallocz(sizeof(RTSPStream));

        if (!rtsp_st)

            return;

        rtsp_st->stream_index = -1;

        dynarray_add(&rt->rtsp_streams, &rt->nb_rtsp_streams, rtsp_st);

        rtsp_st->sdp_ip = s1->default_ip;

        rtsp_st->sdp_ttl = s1->default_ttl;

        get_word(buf1, sizeof(buf1), &p); /* port */

        rtsp_st->sdp_port = atoi(buf1);

        get_word(buf1, sizeof(buf1), &p); /* protocol (ignored) */

        /* XXX: handle list of formats */

        get_word(buf1, sizeof(buf1), &p); /* format list */

        rtsp_st->sdp_payload_type = atoi(buf1);

        if (!strcmp(ff_rtp_enc_name(rtsp_st->sdp_payload_type), "MP2T")) {

            /* no corresponding stream */

        } else {

            st = av_new_stream(s, rt->nb_rtsp_streams - 1);

            if (!st)

                return;

            rtsp_st->stream_index = st->index;

            st->codec->codec_type = codec_type;

            if (rtsp_st->sdp_payload_type < RTP_PT_PRIVATE) {

                RTPDynamicProtocolHandler *handler;

                /* if standard payload type, we can find the codec right now */

                ff_rtp_get_codec_info(st->codec, rtsp_st->sdp_payload_type);

                if (st->codec->codec_type == AVMEDIA_TYPE_AUDIO &&

                    st->codec->sample_rate > 0)

                    av_set_pts_info(st, 32, 1, st->codec->sample_rate);

                /* Even static payload types may need a custom depacketizer */

                handler = ff_rtp_handler_find_by_id(

                              rtsp_st->sdp_payload_type, st->codec->codec_type);

                init_rtp_handler(handler, rtsp_st, st->codec);

            }

        }

        /* put a default control url */

        av_strlcpy(rtsp_st->control_url, rt->control_uri,

                   sizeof(rtsp_st->control_url));

        break;

    case 'a':

        if (av_strstart(p, "control:", &p)) {

            if (s->nb_streams == 0) {

                if (!strncmp(p, "rtsp://", 7))

                    av_strlcpy(rt->control_uri, p,

                               sizeof(rt->control_uri));

            } else {

                char proto[32];

                /* get the control url */

                rtsp_st = rt->rtsp_streams[rt->nb_rtsp_streams - 1];

                /* XXX: may need to add full url resolution */

                av_url_split(proto, sizeof(proto), NULL, 0, NULL, 0,

                             NULL, NULL, 0, p);

                if (proto[0] == '\0') {

                    /* relative control URL */

                    if (rtsp_st->control_url[strlen(rtsp_st->control_url)-1]!='/')

                    av_strlcat(rtsp_st->control_url, "/",

                               sizeof(rtsp_st->control_url));

                    av_strlcat(rtsp_st->control_url, p,

                               sizeof(rtsp_st->control_url));

                } else

                    av_strlcpy(rtsp_st->control_url, p,

                               sizeof(rtsp_st->control_url));

            }

        } else if (av_strstart(p, "rtpmap:", &p) && s->nb_streams > 0) {

            /* NOTE: rtpmap is only supported AFTER the 'm=' tag */

            get_word(buf1, sizeof(buf1), &p);

            payload_type = atoi(buf1);

            st = s->streams[s->nb_streams - 1];

            rtsp_st = rt->rtsp_streams[rt->nb_rtsp_streams - 1];

            sdp_parse_rtpmap(s, st, rtsp_st, payload_type, p);

        } else if (av_strstart(p, "fmtp:", &p) ||

                   av_strstart(p, "framesize:", &p)) {

            /* NOTE: fmtp is only supported AFTER the 'a=rtpmap:xxx' tag */

            // let dynamic protocol handlers have a stab at the line.

            get_word(buf1, sizeof(buf1), &p);

            payload_type = atoi(buf1);

            for (i = 0; i < rt->nb_rtsp_streams; i++) {

                rtsp_st = rt->rtsp_streams[i];

                if (rtsp_st->sdp_payload_type == payload_type &&

                    rtsp_st->dynamic_handler &&

                    rtsp_st->dynamic_handler->parse_sdp_a_line)

                    rtsp_st->dynamic_handler->parse_sdp_a_line(s, i,

                        rtsp_st->dynamic_protocol_context, buf);

            }

        } else if (av_strstart(p, "range:", &p)) {

            int64_t start, end;

            // this is so that seeking on a streamed file can work.

            rtsp_parse_range_npt(p, &start, &end);

            s->start_time = start;

            /* AV_NOPTS_VALUE means live broadcast (and can't seek) */

            s->duration   = (end == AV_NOPTS_VALUE) ?

                            AV_NOPTS_VALUE : end - start;

        } else if (av_strstart(p, "IsRealDataType:integer;",&p)) {

            if (atoi(p) == 1)

                rt->transport = RTSP_TRANSPORT_RDT;

        } else if (av_strstart(p, "SampleRate:integer;", &p) &&

                   s->nb_streams > 0) {

            st = s->streams[s->nb_streams - 1];

            st->codec->sample_rate = atoi(p);

        } else {

            if (rt->server_type == RTSP_SERVER_WMS)

                ff_wms_parse_sdp_a_line(s, p);

            if (s->nb_streams > 0) {

                if (rt->server_type == RTSP_SERVER_REAL)

                    ff_real_parse_sdp_a_line(s, s->nb_streams - 1, p);

                rtsp_st = rt->rtsp_streams[rt->nb_rtsp_streams - 1];

                if (rtsp_st->dynamic_handler &&

                    rtsp_st->dynamic_handler->parse_sdp_a_line)

                    rtsp_st->dynamic_handler->parse_sdp_a_line(s,

                        s->nb_streams - 1,

                        rtsp_st->dynamic_protocol_context, buf);

            }

        }

        break;

    }

}

/**

 * Parse the sdp description and allocate the rtp streams and the

 * pollfd array used for udp ones.

 */

int ff_sdp_parse(AVFormatContext *s, const char *content)

{

    RTSPState *rt = s->priv_data;

    const char *p;

    int letter;

    /* Some SDP lines, particularly for Realmedia or ASF RTSP streams,

     * contain long SDP lines containing complete ASF Headers (several

     * kB) or arrays of MDPR (RM stream descriptor) headers plus

     * "rulebooks" describing their properties. Therefore, the SDP line

     * buffer is large.

     *

     * The Vorbis FMTP line can be up to 16KB - see xiph_parse_sdp_line

     * in rtpdec_xiph.c. */

    char buf[16384], *q;

    SDPParseState sdp_parse_state, *s1 = &sdp_parse_state;

    memset(s1, 0, sizeof(SDPParseState));

    p = content;

    for (;;) {

        p += strspn(p, SPACE_CHARS);

        letter = *p;

        if (letter == '\0')

            break;

        p++;

        if (*p != '=')

            goto next_line;

        p++;

        /* get the content */

        q = buf;

        while (*p != '\n' && *p != '\r' && *p != '\0') {

            if ((q - buf) < sizeof(buf) - 1)

                *q++ = *p;

            p++;

        }

        *q = '\0';

        sdp_parse_line(s, s1, letter, buf);

    next_line:

        while (*p != '\n' && *p != '\0')

            p++;

        if (*p == '\n')

            p++;

    }

    rt->p = av_malloc(sizeof(struct pollfd)*2*(rt->nb_rtsp_streams+1));

    if (!rt->p) return AVERROR(ENOMEM);

    return 0;

}

#endif /* CONFIG_RTPDEC */

void ff_rtsp_undo_setup(AVFormatContext *s)

{

    RTSPState *rt = s->priv_data;

    int i;

    for (i = 0; i < rt->nb_rtsp_streams; i++) {

        RTSPStream *rtsp_st = rt->rtsp_streams[i];

        if (!rtsp_st)

            continue;

        if (rtsp_st->transport_priv) {

            if (s->oformat) {

                AVFormatContext *rtpctx = rtsp_st->transport_priv;

                av_write_trailer(rtpctx);

                if (rt->lower_transport == RTSP_LOWER_TRANSPORT_TCP) {

                    uint8_t *ptr;

                    avio_close_dyn_buf(rtpctx->pb, &ptr);

                    av_free(ptr);

                } else {

                    avio_close(rtpctx->pb);

                }

                avformat_free_context(rtpctx);

            } else if (rt->transport == RTSP_TRANSPORT_RDT && CONFIG_RTPDEC)

                ff_rdt_parse_close(rtsp_st->transport_priv);

            else if (CONFIG_RTPDEC)

                rtp_parse_close(rtsp_st->transport_priv);

        }

        rtsp_st->transport_priv = NULL;

        if (rtsp_st->rtp_handle)

            url_close(rtsp_st->rtp_handle);

        rtsp_st->rtp_handle = NULL;

    }

}

/* close and free RTSP streams */

void ff_rtsp_close_streams(AVFormatContext *s)

{

    RTSPState *rt = s->priv_data;

    int i;

    RTSPStream *rtsp_st;

    ff_rtsp_undo_setup(s);

    for (i = 0; i < rt->nb_rtsp_streams; i++) {

        rtsp_st = rt->rtsp_streams[i];

        if (rtsp_st) {

            if (rtsp_st->dynamic_handler && rtsp_st->dynamic_protocol_context)

                rtsp_st->dynamic_handler->close(

                    rtsp_st->dynamic_protocol_context);

            av_free(rtsp_st);

        }

    }

    av_free(rt->rtsp_streams);

    if (rt->asf_ctx) {

        av_close_input_stream (rt->asf_ctx);

        rt->asf_ctx = NULL;

    }

    av_free(rt->p);

    av_free(rt->recvbuf);

}

static int rtsp_open_transport_ctx(AVFormatContext *s, RTSPStream *rtsp_st)

{

    RTSPState *rt = s->priv_data;

    AVStream *st = NULL;

    /* open the RTP context */

    if (rtsp_st->stream_index >= 0)

        st = s->streams[rtsp_st->stream_index];

    if (!st)

        s->ctx_flags |= AVFMTCTX_NOHEADER;

    if (s->oformat && CONFIG_RTSP_MUXER) {

        rtsp_st->transport_priv = ff_rtp_chain_mux_open(s, st,

                                      rtsp_st->rtp_handle,

                                      RTSP_TCP_MAX_PACKET_SIZE);

        /* Ownership of rtp_handle is passed to the rtp mux context */

        rtsp_st->rtp_handle = NULL;

    } else if (rt->transport == RTSP_TRANSPORT_RDT && CONFIG_RTPDEC)

        rtsp_st->transport_priv = ff_rdt_parse_open(s, st->index,

                                            rtsp_st->dynamic_protocol_context,

                                            rtsp_st->dynamic_handler);

    else if (CONFIG_RTPDEC)

        rtsp_st->transport_priv = rtp_parse_open(s, st, rtsp_st->rtp_handle,

                                         rtsp_st->sdp_payload_type,

            (rt->lower_transport == RTSP_LOWER_TRANSPORT_TCP || !s->max_delay)

            ? 0 : RTP_REORDER_QUEUE_DEFAULT_SIZE);

    if (!rtsp_st->transport_priv) {

         return AVERROR(ENOMEM);

    } else if (rt->transport != RTSP_TRANSPORT_RDT && CONFIG_RTPDEC) {

        if (rtsp_st->dynamic_handler) {

            rtp_parse_set_dynamic_protocol(rtsp_st->transport_priv,

                                           rtsp_st->dynamic_protocol_context,

                                           rtsp_st->dynamic_handler);

        }

    }

    return 0;

}

#if CONFIG_RTSP_DEMUXER || CONFIG_RTSP_MUXER

static void rtsp_parse_range(int *min_ptr, int *max_ptr, const char **pp)

{

    const char *p;

    int v;

    p = *pp;

    p += strspn(p, SPACE_CHARS);

    v = strtol(p, (char **)&p, 10);

    if (*p == '-') {

        p++;

        *min_ptr = v;

        v = strtol(p, (char **)&p, 10);

        *max_ptr = v;

    } else {

        *min_ptr = v;

        *max_ptr = v;

    }

    *pp = p;

}

/* XXX: only one transport specification is parsed */

static void rtsp_parse_transport(RTSPMessageHeader *reply, const char *p)

{

    char transport_protocol[16];

    char profile[16];

    char lower_transport[16];

    char parameter[16];

    RTSPTransportField *th;

    char buf[256];

    reply->nb_transports = 0;

    for (;;) {

        p += strspn(p, SPACE_CHARS);

        if (*p == '\0')

            break;

        th = &reply->transports[reply->nb_transports];

        get_word_sep(transport_protocol, sizeof(transport_protocol),

                     "/", &p);

        if (!strcasecmp (transport_protocol, "rtp")) {

            get_word_sep(profile, sizeof(profile), "/;,", &p);

            lower_transport[0] = '\0';

            /* rtp/avp/<protocol> */

            if (*p == '/') {

                get_word_sep(lower_transport, sizeof(lower_transport),

                             ";,", &p);

            }

            th->transport = RTSP_TRANSPORT_RTP;

        } else if (!strcasecmp (transport_protocol, "x-pn-tng") ||

                   !strcasecmp (transport_protocol, "x-real-rdt")) {

            /* x-pn-tng/<protocol> */

            get_word_sep(lower_transport, sizeof(lower_transport), "/;,", &p);

            profile[0] = '\0';

            th->transport = RTSP_TRANSPORT_RDT;

        }

        if (!strcasecmp(lower_transport, "TCP"))

            th->lower_transport = RTSP_LOWER_TRANSPORT_TCP;

        else

            th->lower_transport = RTSP_LOWER_TRANSPORT_UDP;

        if (*p == ';')

            p++;

        /* get each parameter */

        while (*p != '\0' && *p != ',') {

            get_word_sep(parameter, sizeof(parameter), "=;,", &p);

            if (!strcmp(parameter, "port")) {

                if (*p == '=') {

                    p++;

                    rtsp_parse_range(&th->port_min, &th->port_max, &p);

                }

            } else if (!strcmp(parameter, "client_port")) {

                if (*p == '=') {

                    p++;

                    rtsp_parse_range(&th->client_port_min,

                                     &th->client_port_max, &p);

                }

            } else if (!strcmp(parameter, "server_port")) {

                if (*p == '=') {

                    p++;

                    rtsp_parse_range(&th->server_port_min,

                                     &th->server_port_max, &p);

                }

            } else if (!strcmp(parameter, "interleaved")) {

                if (*p == '=') {

                    p++;

                    rtsp_parse_range(&th->interleaved_min,

                                     &th->interleaved_max, &p);

                }

            } else if (!strcmp(parameter, "multicast")) {

                if (th->lower_transport == RTSP_LOWER_TRANSPORT_UDP)

                    th->lower_transport = RTSP_LOWER_TRANSPORT_UDP_MULTICAST;

            } else if (!strcmp(parameter, "ttl")) {

                if (*p == '=') {

                    p++;

                    th->ttl = strtol(p, (char **)&p, 10);

                }

            } else if (!strcmp(parameter, "destination")) {

                if (*p == '=') {

                    p++;

                    get_word_sep(buf, sizeof(buf), ";,", &p);

                    get_sockaddr(buf, &th->destination);

                }

            } else if (!strcmp(parameter, "source")) {

                if (*p == '=') {

                    p++;

                    get_word_sep(buf, sizeof(buf), ";,", &p);

                    av_strlcpy(th->source, buf, sizeof(th->source));

                }

            }

            while (*p != ';' && *p != '\0' && *p != ',')

                p++;

            if (*p == ';')

                p++;

        }

        if (*p == ',')

            p++;

        reply->nb_transports++;

    }

}

static void handle_rtp_info(RTSPState *rt, const char *url,

                            uint32_t seq, uint32_t rtptime)

{

    int i;

    if (!rtptime || !url[0])

        return;

    if (rt->transport != RTSP_TRANSPORT_RTP)

        return;

    for (i = 0; i < rt->nb_rtsp_streams; i++) {

        RTSPStream *rtsp_st = rt->rtsp_streams[i];

        RTPDemuxContext *rtpctx = rtsp_st->transport_priv;

        if (!rtpctx)

            continue;

        if (!strcmp(rtsp_st->control_url, url)) {

            rtpctx->base_timestamp = rtptime;

            break;

        }

    }

}

static void rtsp_parse_rtp_info(RTSPState *rt, const char *p)

{

    int read = 0;

    char key[20], value[1024], url[1024] = "";

    uint32_t seq = 0, rtptime = 0;

    for (;;) {

        p += strspn(p, SPACE_CHARS);

        if (!*p)

            break;

        get_word_sep(key, sizeof(key), "=", &p);

        if (*p != '=')

            break;

        p++;

        get_word_sep(value, sizeof(value), ";, ", &p);

        read++;

        if (!strcmp(key, "url"))

            av_strlcpy(url, value, sizeof(url));

        else if (!strcmp(key, "seq"))

            seq = strtol(value, NULL, 10);

        else if (!strcmp(key, "rtptime"))

            rtptime = strtol(value, NULL, 10);

        if (*p == ',') {

            handle_rtp_info(rt, url, seq, rtptime);

            url[0] = '\0';

            seq = rtptime = 0;

            read = 0;

        }

        if (*p)

            p++;

    }

    if (read > 0)

        handle_rtp_info(rt, url, seq, rtptime);

}

void ff_rtsp_parse_line(RTSPMessageHeader *reply, const char *buf,

                        RTSPState *rt, const char *method)

{

    const char *p;

    /* NOTE: we do case independent match for broken servers */

    p = buf;

    if (av_stristart(p, "Session:", &p)) {

        int t;

        get_word_sep(reply->session_id, sizeof(reply->session_id), ";", &p);

        if (av_stristart(p, ";timeout=", &p) &&

            (t = strtol(p, NULL, 10)) > 0) {

            reply->timeout = t;

        }

    } else if (av_stristart(p, "Content-Length:", &p)) {

        reply->content_length = strtol(p, NULL, 10);

    } else if (av_stristart(p, "Transport:", &p)) {

        rtsp_parse_transport(reply, p);

    } else if (av_stristart(p, "CSeq:", &p)) {

        reply->seq = strtol(p, NULL, 10);

    } else if (av_stristart(p, "Range:", &p)) {

        rtsp_parse_range_npt(p, &reply->range_start, &reply->range_end);

    } else if (av_stristart(p, "RealChallenge1:", &p)) {

        p += strspn(p, SPACE_CHARS);

        av_strlcpy(reply->real_challenge, p, sizeof(reply->real_challenge));

    } else if (av_stristart(p, "Server:", &p)) {

        p += strspn(p, SPACE_CHARS);

        av_strlcpy(reply->server, p, sizeof(reply->server));

    } else if (av_stristart(p, "Notice:", &p) ||

               av_stristart(p, "X-Notice:", &p)) {

        reply->notice = strtol(p, NULL, 10);

    } else if (av_stristart(p, "Location:", &p)) {

        p += strspn(p, SPACE_CHARS);

        av_strlcpy(reply->location, p , sizeof(reply->location));

    } else if (av_stristart(p, "WWW-Authenticate:", &p) && rt) {

        p += strspn(p, SPACE_CHARS);

        ff_http_auth_handle_header(&rt->auth_state, "WWW-Authenticate", p);

    } else if (av_stristart(p, "Authentication-Info:", &p) && rt) {

        p += strspn(p, SPACE_CHARS);

        ff_http_auth_handle_header(&rt->auth_state, "Authentication-Info", p);

    } else if (av_stristart(p, "Content-Base:", &p) && rt) {

        p += strspn(p, SPACE_CHARS);

        if (method && !strcmp(method, "DESCRIBE"))

            av_strlcpy(rt->control_uri, p , sizeof(rt->control_uri));

    } else if (av_stristart(p, "RTP-Info:", &p) && rt) {

        p += strspn(p, SPACE_CHARS);

        if (method && !strcmp(method, "PLAY"))

            rtsp_parse_rtp_info(rt, p);

    }

}

/* skip a RTP/TCP interleaved packet */

void ff_rtsp_skip_packet(AVFormatContext *s)

{

    RTSPState *rt = s->priv_data;

    int ret, len, len1;

    uint8_t buf[1024];

    ret = url_read_complete(rt->rtsp_hd, buf, 3);

    if (ret != 3)

        return;

    len = AV_RB16(buf + 1);

    av_dlog(s, "skipping RTP packet len=%d\n", len);

    /* skip payload */

    while (len > 0) {

        len1 = len;

        if (len1 > sizeof(buf))

            len1 = sizeof(buf);

        ret = url_read_complete(rt->rtsp_hd, buf, len1);

        if (ret != len1)

            return;

        len -= len1;

    }

}

int ff_rtsp_read_reply(AVFormatContext *s, RTSPMessageHeader *reply,

                       unsigned char **content_ptr,

                       int return_on_interleaved_data, const char *method)

{

    RTSPState *rt = s->priv_data;

    char buf[4096], buf1[1024], *q;

    unsigned char ch;

    const char *p;

    int ret, content_length, line_count = 0;

    unsigned char *content = NULL;

    memset(reply, 0, sizeof(*reply));

    /* parse reply (XXX: use buffers) */

    rt->last_reply[0] = '\0';

    for (;;) {

        q = buf;

        for (;;) {

            ret = url_read_complete(rt->rtsp_hd, &ch, 1);

#ifdef DEBUG_RTP_TCP

            av_dlog(s, "ret=%d c=%02x [%c]\n", ret, ch, ch);

#endif

            if (ret != 1)

                return AVERROR_EOF;

            if (ch == '\n')

                break;

            if (ch == '$') {

                /* XXX: only parse it if first char on line ? */

                if (return_on_interleaved_data) {

                    return 1;

                } else

                    ff_rtsp_skip_packet(s);

            } else if (ch != '\r') {

                if ((q - buf) < sizeof(buf) - 1)

                    *q++ = ch;

            }

        }

        *q = '\0';

        av_dlog(s, "line='%s'\n", buf);

        /* test if last line */

        if (buf[0] == '\0')

            break;

        p = buf;

        if (line_count == 0) {

            /* get reply code */

            get_word(buf1, sizeof(buf1), &p);

            get_word(buf1, sizeof(buf1), &p);

            reply->status_code = atoi(buf1);

            av_strlcpy(reply->reason, p, sizeof(reply->reason));

        } else {

            ff_rtsp_parse_line(reply, p, rt, method);

            av_strlcat(rt->last_reply, p,    sizeof(rt->last_reply));

            av_strlcat(rt->last_reply, "\n", sizeof(rt->last_reply));

        }

        line_count++;

    }

    if (rt->session_id[0] == '\0' && reply->session_id[0] != '\0')

        av_strlcpy(rt->session_id, reply->session_id, sizeof(rt->session_id));

    content_length = reply->content_length;

    if (content_length > 0) {

        /* leave some room for a trailing '\0' (useful for simple parsing) */

        content = av_malloc(content_length + 1);

        (void)url_read_complete(rt->rtsp_hd, content, content_length);

        content[content_length] = '\0';

    }

    if (content_ptr)

        *content_ptr = content;

    else

        av_free(content);

    if (rt->seq != reply->seq) {

        av_log(s, AV_LOG_WARNING, "CSeq %d expected, %d received.\n",

            rt->seq, reply->seq);

    }

    /* EOS */

    if (reply->notice == 2101 /* End-of-Stream Reached */      ||

        reply->notice == 2104 /* Start-of-Stream Reached */    ||

        reply->notice == 2306 /* Continuous Feed Terminated */) {

        rt->state = RTSP_STATE_IDLE;

    } else if (reply->notice >= 4400 && reply->notice < 5500) {

        return AVERROR(EIO); /* data or server error */

    } else if (reply->notice == 2401 /* Ticket Expired */ ||

             (reply->notice >= 5500 && reply->notice < 5600) /* end of term */ )

        return AVERROR(EPERM);

    return 0;

}

/**

 * Send a command to the RTSP server without waiting for the reply.

 *

 * @param s RTSP (de)muxer context

 * @param method the method for the request

 * @param url the target url for the request

 * @param headers extra header lines to include in the request

 * @param send_content if non-null, the data to send as request body content

 * @param send_content_length the length of the send_content data, or 0 if

 *                            send_content is null

 *

 * @return zero if success, nonzero otherwise

 */

static int ff_rtsp_send_cmd_with_content_async(AVFormatContext *s,

                                               const char *method, const char *url,

                                               const char *headers,

                                               const unsigned char *send_content,

                                               int send_content_length)

{

    RTSPState *rt = s->priv_data;

    char buf[4096], *out_buf;

    char base64buf[AV_BASE64_SIZE(sizeof(buf))];

    /* Add in RTSP headers */

    out_buf = buf;

    rt->seq++;

    snprintf(buf, sizeof(buf), "%s %s RTSP/1.0\r\n", method, url);

    if (headers)

        av_strlcat(buf, headers, sizeof(buf));

    av_strlcatf(buf, sizeof(buf), "CSeq: %d\r\n", rt->seq);

    if (rt->session_id[0] != '\0' && (!headers ||

        !strstr(headers, "\nIf-Match:"))) {

        av_strlcatf(buf, sizeof(buf), "Session: %s\r\n", rt->session_id);

    }

    if (rt->auth[0]) {

        char *str = ff_http_auth_create_response(&rt->auth_state,

                                                 rt->auth, url, method);

        if (str)

            av_strlcat(buf, str, sizeof(buf));

        av_free(str);

    }

    if (send_content_length > 0 && send_content)

        av_strlcatf(buf, sizeof(buf), "Content-Length: %d\r\n", send_content_length);

    av_strlcat(buf, "\r\n", sizeof(buf));

    /* base64 encode rtsp if tunneling */

    if (rt->control_transport == RTSP_MODE_TUNNEL) {

        av_base64_encode(base64buf, sizeof(base64buf), buf, strlen(buf));

        out_buf = base64buf;

    }

    av_dlog(s, "Sending:\n%s--\n", buf);

    url_write(rt->rtsp_hd_out, out_buf, strlen(out_buf));

    if (send_content_length > 0 && send_content) {

        if (rt->control_transport == RTSP_MODE_TUNNEL) {

            av_log(s, AV_LOG_ERROR, "tunneling of RTSP requests "

                                    "with content data not supported\n");

            return AVERROR_PATCHWELCOME;

        }

        url_write(rt->rtsp_hd_out, send_content, send_content_length);

    }

    rt->last_cmd_time = av_gettime();

    return 0;

}

int ff_rtsp_send_cmd_async(AVFormatContext *s, const char *method,

                           const char *url, const char *headers)

{

    return ff_rtsp_send_cmd_with_content_async(s, method, url, headers, NULL, 0);

}

int ff_rtsp_send_cmd(AVFormatContext *s, const char *method, const char *url,

                     const char *headers, RTSPMessageHeader *reply,

                     unsigned char **content_ptr)

{

    return ff_rtsp_send_cmd_with_content(s, method, url, headers, reply,

                                         content_ptr, NULL, 0);

}

int ff_rtsp_send_cmd_with_content(AVFormatContext *s,

                                  const char *method, const char *url,

                                  const char *header,

                                  RTSPMessageHeader *reply,

                                  unsigned char **content_ptr,

                                  const unsigned char *send_content,

                                  int send_content_length)

{

    RTSPState *rt = s->priv_data;

    HTTPAuthType cur_auth_type;

    int ret;

retry:

    cur_auth_type = rt->auth_state.auth_type;

    if ((ret = ff_rtsp_send_cmd_with_content_async(s, method, url, header,

                                                   send_content,

                                                   send_content_length)))

        return ret;

    if ((ret = ff_rtsp_read_reply(s, reply, content_ptr, 0, method) ) < 0)

        return ret;

    if (reply->status_code == 401 && cur_auth_type == HTTP_AUTH_NONE &&

        rt->auth_state.auth_type != HTTP_AUTH_NONE)

        goto retry;

    if (reply->status_code > 400){

        av_log(s, AV_LOG_ERROR, "method %s failed: %d%s\n",

               method,

               reply->status_code,

               reply->reason);

        av_log(s, AV_LOG_DEBUG, "%s\n", rt->last_reply);

    }

    return 0;

}

/**

 * @return 0 on success, <0 on error, 1 if protocol is unavailable.

 */

int ff_rtsp_make_setup_request(AVFormatContext *s, const char *host, int port,

                              int lower_transport, const char *real_challenge)

{

    RTSPState *rt = s->priv_data;

    int rtx, j, i, err, interleave = 0;

    RTSPStream *rtsp_st;

    RTSPMessageHeader reply1, *reply = &reply1;

    char cmd[2048];

    const char *trans_pref;

    if (rt->transport == RTSP_TRANSPORT_RDT)

        trans_pref = "x-pn-tng";

    else

        trans_pref = "RTP/AVP";

    /* default timeout: 1 minute */

    rt->timeout = 60;

    /* for each stream, make the setup request */

    /* XXX: we assume the same server is used for the control of each

     * RTSP stream */

    for (j = RTSP_RTP_PORT_MIN, i = 0; i < rt->nb_rtsp_streams; ++i) {

        char transport[2048];

        /**

         * WMS serves all UDP data over a single connection, the RTX, which

         * isn't necessarily the first in the SDP but has to be the first

         * to be set up, else the second/third SETUP will fail with a 461.

         */

        if (lower_transport == RTSP_LOWER_TRANSPORT_UDP &&

             rt->server_type == RTSP_SERVER_WMS) {

            if (i == 0) {

                /* rtx first */

                for (rtx = 0; rtx < rt->nb_rtsp_streams; rtx++) {

                    int len = strlen(rt->rtsp_streams[rtx]->control_url);

                    if (len >= 4 &&

                        !strcmp(rt->rtsp_streams[rtx]->control_url + len - 4,

                                "/rtx"))

                        break;

                }

                if (rtx == rt->nb_rtsp_streams)

                    return -1; /* no RTX found */

                rtsp_st = rt->rtsp_streams[rtx];

            } else

                rtsp_st = rt->rtsp_streams[i > rtx ? i : i - 1];

        } else

            rtsp_st = rt->rtsp_streams[i];

        /* RTP/UDP */

        if (lower_transport == RTSP_LOWER_TRANSPORT_UDP) {

            char buf[256];

            if (rt->server_type == RTSP_SERVER_WMS && i > 1) {

                port = reply->transports[0].client_port_min;

                goto have_port;

            }

            /* first try in specified port range */

            if (RTSP_RTP_PORT_MIN != 0) {

                while (j <= RTSP_RTP_PORT_MAX) {

                    ff_url_join(buf, sizeof(buf), "rtp", NULL, host, -1,

                                "?localport=%d", j);

                    /* we will use two ports per rtp stream (rtp and rtcp) */

                    j += 2;

                    if (ffurl_open(&rtsp_st->rtp_handle, buf, URL_RDWR) == 0)

                        goto rtp_opened;

                }

            }

#if 0

            /* then try on any port */

            if (ffurl_open(&rtsp_st->rtp_handle, "rtp://", URL_RDONLY) < 0) {

                err = AVERROR_INVALIDDATA;

                goto fail;

            }

#else

            av_log(s, AV_LOG_ERROR, "Unable to open an input RTP port\n");

            err = AVERROR(EIO);

            goto fail;

#endif

        rtp_opened:

            port = rtp_get_local_rtp_port(rtsp_st->rtp_handle);

        have_port:

            snprintf(transport, sizeof(transport) - 1,

                     "%s/UDP;", trans_pref);

            if (rt->server_type != RTSP_SERVER_REAL)

                av_strlcat(transport, "unicast;", sizeof(transport));

            av_strlcatf(transport, sizeof(transport),

                     "client_port=%d", port);

            if (rt->transport == RTSP_TRANSPORT_RTP &&

                !(rt->server_type == RTSP_SERVER_WMS && i > 0))

                av_strlcatf(transport, sizeof(transport), "-%d", port + 1);

        }

        /* RTP/TCP */

        else if (lower_transport == RTSP_LOWER_TRANSPORT_TCP) {

            /** For WMS streams, the application streams are only used for

             * UDP. When trying to set it up for TCP streams, the server

             * will return an error. Therefore, we skip those streams. */

            if (rt->server_type == RTSP_SERVER_WMS &&

                s->streams[rtsp_st->stream_index]->codec->codec_type ==

                    AVMEDIA_TYPE_DATA)

                continue;

            snprintf(transport, sizeof(transport) - 1,

                     "%s/TCP;", trans_pref);

            if (rt->transport != RTSP_TRANSPORT_RDT)

                av_strlcat(transport, "unicast;", sizeof(transport));

            av_strlcatf(transport, sizeof(transport),

                        "interleaved=%d-%d",

                        interleave, interleave + 1);

            interleave += 2;

        }

        else if (lower_transport == RTSP_LOWER_TRANSPORT_UDP_MULTICAST) {

            snprintf(transport, sizeof(transport) - 1,

                     "%s/UDP;multicast", trans_pref);

        }

        if (s->oformat) {

            av_strlcat(transport, ";mode=receive", sizeof(transport));

        } else if (rt->server_type == RTSP_SERVER_REAL ||

                   rt->server_type == RTSP_SERVER_WMS)

            av_strlcat(transport, ";mode=play", sizeof(transport));

        snprintf(cmd, sizeof(cmd),

                 "Transport: %s\r\n",

                 transport);

        if (i == 0 && rt->server_type == RTSP_SERVER_REAL && CONFIG_RTPDEC) {

            char real_res[41], real_csum[9];

            ff_rdt_calc_response_and_checksum(real_res, real_csum,

                                              real_challenge);

            av_strlcatf(cmd, sizeof(cmd),

                        "If-Match: %s\r\n"

                        "RealChallenge2: %s, sd=%s\r\n",

                        rt->session_id, real_res, real_csum);

        }

        ff_rtsp_send_cmd(s, "SETUP", rtsp_st->control_url, cmd, reply, NULL);

        if (reply->status_code == 461 /* Unsupported protocol */ && i == 0) {

            err = 1;

            goto fail;

        } else if (reply->status_code != RTSP_STATUS_OK ||

                   reply->nb_transports != 1) {

            err = AVERROR_INVALIDDATA;

            goto fail;

        }

        /* XXX: same protocol for all streams is required */

        if (i > 0) {

            if (reply->transports[0].lower_transport != rt->lower_transport ||

                reply->transports[0].transport != rt->transport) {

                err = AVERROR_INVALIDDATA;

                goto fail;

            }

        } else {

            rt->lower_transport = reply->transports[0].lower_transport;

            rt->transport = reply->transports[0].transport;

        }

        /* Fail if the server responded with another lower transport mode

         * than what we requested. */

        if (reply->transports[0].lower_transport != lower_transport) {

            av_log(s, AV_LOG_ERROR, "Nonmatching transport in server reply\n");

            err = AVERROR_INVALIDDATA;

            goto fail;

        }

        switch(reply->transports[0].lower_transport) {

        case RTSP_LOWER_TRANSPORT_TCP:

            rtsp_st->interleaved_min = reply->transports[0].interleaved_min;

            rtsp_st->interleaved_max = reply->transports[0].interleaved_max;

            break;

        case RTSP_LOWER_TRANSPORT_UDP: {

            char url[1024], options[30] = "";

            if (rt->filter_source)

                av_strlcpy(options, "?connect=1", sizeof(options));

            /* Use source address if specified */

            if (reply->transports[0].source[0]) {

                ff_url_join(url, sizeof(url), "rtp", NULL,

                            reply->transports[0].source,

                            reply->transports[0].server_port_min, options);

            } else {

                ff_url_join(url, sizeof(url), "rtp", NULL, host,

                            reply->transports[0].server_port_min, options);

            }

            if (!(rt->server_type == RTSP_SERVER_WMS && i > 1) &&

                rtp_set_remote_url(rtsp_st->rtp_handle, url) < 0) {

                err = AVERROR_INVALIDDATA;

                goto fail;

            }

            /* Try to initialize the connection state in a

             * potential NAT router by sending dummy packets.

             * RTP/RTCP dummy packets are used for RDT, too.

             */

            if (!(rt->server_type == RTSP_SERVER_WMS && i > 1) && s->iformat &&

                CONFIG_RTPDEC)

                rtp_send_punch_packets(rtsp_st->rtp_handle);

            break;

        }

        case RTSP_LOWER_TRANSPORT_UDP_MULTICAST: {

            char url[1024], namebuf[50];

            struct sockaddr_storage addr;

            int port, ttl;

            if (reply->transports[0].destination.ss_family) {