]> git.sesse.net Git - vlc/blobdiff - modules/access_output/udp.c
- Cleanup and fixes deprecated options:
[vlc] / modules / access_output / udp.c
index 708dca6222c054e1294aa2f7103ede0c036c75fb..372c75ce23747b7b758fe67afef1c0211bad570a 100644 (file)
 /*****************************************************************************
  * Preamble
  *****************************************************************************/
+#include <vlc/vlc.h>
+
 #include <stdlib.h>
 #include <sys/types.h>
 #include <sys/stat.h>
 #include <string.h>
 #include <errno.h>
 #include <fcntl.h>
+#include <assert.h>
 
-#include <vlc/vlc.h>
 #include <vlc_sout.h>
 #include <vlc_block.h>
 
@@ -100,9 +102,15 @@ static void Close( vlc_object_t * );
                        "directly, without trying to fill the MTU (ie, " \
                        "without trying to make the biggest possible packets " \
                        "in order to improve streaming)." )
+#define RTCP_TEXT N_("RTCP destination port number")
+#define RTCP_LONGTEXT N_("Sends RTCP packets to this port (0 = auto)")
 #define AUTO_MCAST_TEXT N_("Automatic multicast streaming")
 #define AUTO_MCAST_LONGTEXT N_("Allocates an outbound multicast address " \
                                "automatically.")
+#define UDPLITE_TEXT N_("UDP-Lite")
+#define UDPLITE_LONGTEXT N_("Use UDP-Lite/IP instead of normal UDP/IP")
+#define CSCOV_TEXT N_("Checksum coverage")
+#define CSCOV_LONGTEXT N_("Payload bytes covered by layer-4 checksum")
 
 vlc_module_begin();
     set_description( _("UDP stream output") );
@@ -112,16 +120,19 @@ vlc_module_begin();
     add_integer( SOUT_CFG_PREFIX "caching", DEFAULT_PTS_DELAY / 1000, NULL, CACHING_TEXT, CACHING_LONGTEXT, VLC_TRUE );
     add_integer( SOUT_CFG_PREFIX "group", 1, NULL, GROUP_TEXT, GROUP_LONGTEXT,
                                  VLC_TRUE );
-    add_suppressed_integer( SOUT_CFG_PREFIX "late" );
-    add_bool( SOUT_CFG_PREFIX "raw",  0, NULL, RAW_TEXT, RAW_LONGTEXT,
+    add_obsolete_integer( SOUT_CFG_PREFIX "late" );
+    add_bool( SOUT_CFG_PREFIX "raw",  VLC_FALSE, NULL, RAW_TEXT, RAW_LONGTEXT,
                                  VLC_TRUE );
-    add_bool( SOUT_CFG_PREFIX "auto-mcast", 0, NULL, AUTO_MCAST_TEXT,
+    add_integer( SOUT_CFG_PREFIX "rtcp",  0, NULL, RTCP_TEXT, RTCP_LONGTEXT,
+                 VLC_TRUE );
+    add_bool( SOUT_CFG_PREFIX "auto-mcast", VLC_FALSE, NULL, AUTO_MCAST_TEXT,
               AUTO_MCAST_LONGTEXT, VLC_TRUE );
+    add_bool( SOUT_CFG_PREFIX "udplite", VLC_FALSE, NULL, UDPLITE_TEXT, UDPLITE_LONGTEXT, VLC_TRUE );
+    add_integer( SOUT_CFG_PREFIX "cscov", 12, NULL, CSCOV_TEXT, CSCOV_LONGTEXT, VLC_TRUE );
 
     set_capability( "sout access", 100 );
     add_shortcut( "udp" );
     add_shortcut( "rtp" ); // Will work only with ts muxer
-    add_shortcut( "udplite" );
     set_callbacks( Open, Close );
 vlc_module_end();
 
@@ -129,16 +140,19 @@ vlc_module_end();
  * Exported prototypes
  *****************************************************************************/
 
-static const char *ppsz_sout_options[] = {
+static const char *const ppsz_sout_options[] = {
     "auto-mcast",
     "caching",
     "group",
     "raw",
+    "rtcp",
+    "lite",
+    "cscov",
     NULL
 };
 
 /* Options handled by the libvlc network core */
-static const char *ppsz_core_options[] = {
+static const char *const ppsz_core_options[] = {
     "dscp",
     "ttl",
     "miface",
@@ -169,26 +183,36 @@ typedef struct sout_access_thread_t
 
     block_fifo_t *p_empty_blocks;
 
+    uint32_t sent_pkts;
+    uint32_t sent_bytes;
+    size_t   rtcp_size;
+    int      rtcp_handle;
+    uint8_t  rtcp_data[28 + 8 + (2 * 257)];
+
 } sout_access_thread_t;
 
 struct sout_access_out_sys_t
 {
-    int                 b_rtpts;  // 1 if add rtp/ts header
+    int                 i_mtu;
+
+    vlc_bool_t          b_rtpts; // true for RTP/MP2 encapsulation
+    vlc_bool_t          b_mtu_warning;
     uint16_t            i_sequence_number;
     uint32_t            i_ssrc;
 
-    int                 i_mtu;
-
     block_t             *p_buffer;
 
     sout_access_thread_t *p_thread;
 
-    vlc_bool_t          b_mtu_warning;
 };
 
 #define DEFAULT_PORT 1234
 #define RTP_HEADER_LENGTH 12
 
+static int OpenRTCP (sout_access_out_t *obj, int proto, uint16_t dport);
+static void SendRTCP (sout_access_thread_t *obj, uint32_t timestamp);
+static void CloseRTCP (sout_access_thread_t *obj);
+
 /*****************************************************************************
  * Open: open the file
  *****************************************************************************/
@@ -198,7 +222,7 @@ static int Open( vlc_object_t *p_this )
     sout_access_out_sys_t   *p_sys;
 
     char                *psz_dst_addr = NULL;
-    int                 i_dst_port, proto = IPPROTO_UDP, cscov = 8;
+    int                 i_dst_port, i_rtcp_port = 0, proto = IPPROTO_UDP;
     const char          *protoname = "UDP";
 
     int                 i_handle;
@@ -210,10 +234,18 @@ static int Open( vlc_object_t *p_this )
     config_ChainParse( p_access, "",
                        ppsz_core_options, p_access->p_cfg );
 
+    if (var_Create (p_access, "dst-port", VLC_VAR_INTEGER)
+     || var_Create (p_access, "src-port", VLC_VAR_INTEGER)
+     || var_Create (p_access, "dst-addr", VLC_VAR_STRING)
+     || var_Create (p_access, "src-addr", VLC_VAR_STRING))
+    {
+        return VLC_ENOMEM;
+    }
+
     if( !( p_sys = calloc ( 1, sizeof( sout_access_out_sys_t ) ) ) )
     {
         msg_Err( p_access, "not enough memory" );
-        return VLC_EGENERIC;
+        return VLC_ENOMEM;
     }
     p_access->p_sys = p_sys;
 
@@ -221,18 +253,16 @@ static int Open( vlc_object_t *p_this )
     {
         if (strcmp (p_access->psz_access, "rtp") == 0)
             p_sys->b_rtpts = VLC_TRUE;
-        if (strcmp (p_access->psz_access, "udplite") == 0)
-        {
-            protoname = "UDP-Lite";
-            proto = IPPROTO_UDPLITE;
-            p_sys->b_rtpts = VLC_TRUE;
-        }
     }
-    if (p_sys->b_rtpts)
-        cscov += RTP_HEADER_LENGTH;
+
+    if (var_GetBool (p_access, SOUT_CFG_PREFIX"lite"))
+    {
+        protoname = "UDP-Lite";
+        proto = IPPROTO_UDPLITE;
+    }
 
     i_dst_port = DEFAULT_PORT;
-    if (var_CreateGetBool (p_access, SOUT_CFG_PREFIX"auto-mcast"))
+    if (var_GetBool (p_access, SOUT_CFG_PREFIX"auto-mcast"))
     {
         char buf[INET6_ADDRSTRLEN];
         if (MakeRandMulticast (AF_INET, buf, sizeof (buf)) != NULL)
@@ -245,7 +275,7 @@ static int Open( vlc_object_t *p_this )
         if (psz_parser[0] == '[')
             psz_parser = strchr (psz_parser, ']');
 
-        psz_parser = strchr (psz_parser, ':');
+        psz_parser = strchr (psz_parser ?: psz_dst_addr, ':');
         if (psz_parser != NULL)
         {
             *psz_parser++ = '\0';
@@ -253,17 +283,21 @@ static int Open( vlc_object_t *p_this )
         }
     }
 
-    if (var_Create (p_access, "dst-port", VLC_VAR_INTEGER)
-     || var_Create (p_access, "src-port", VLC_VAR_INTEGER)
-     || var_Create (p_access, "dst-addr", VLC_VAR_STRING)
-     || var_Create (p_access, "src-addr", VLC_VAR_STRING))
-        return VLC_ENOMEM;
+    /* This option is really only meant for the RTP streaming output
+     * plugin. Doing RTCP for raw UDP will yield weird results. */
+    i_rtcp_port = var_GetInteger (p_access, SOUT_CFG_PREFIX"rtcp");
+    /* If RTCP port is not specified, use the default, if we do RTP/MP2 encap,
+     * or do not use RTCP at all otherwise. */
+    if ((i_rtcp_port == 0) && (p_sys->b_rtpts))
+        i_rtcp_port = i_dst_port + 1;
 
     p_sys->p_thread =
         vlc_object_create( p_access, sizeof( sout_access_thread_t ) );
     if( !p_sys->p_thread )
     {
         msg_Err( p_access, "out of memory" );
+        free (p_sys);
+        free (psz_dst_addr);
         return VLC_ENOMEM;
     }
 
@@ -275,9 +309,13 @@ static int Open( vlc_object_t *p_this )
     p_sys->p_thread->p_empty_blocks = block_FifoNew( p_access );
 
     i_handle = net_ConnectDgram( p_this, psz_dst_addr, i_dst_port, -1, proto );
+    free (psz_dst_addr);
+
     if( i_handle == -1 )
     {
          msg_Err( p_access, "failed to create %s socket", protoname );
+         vlc_object_destroy (p_sys->p_thread);
+         free (p_sys);
          return VLC_EGENERIC;
     }
     else
@@ -300,13 +338,33 @@ static int Open( vlc_object_t *p_this )
         }
     }
     p_sys->p_thread->i_handle = i_handle;
-    net_StopRecv( i_handle );
+    shutdown( i_handle, SHUT_RD );
 
+    int cscov = var_GetInteger (p_access, SOUT_CFG_PREFIX"cscov");
+    if (cscov)
+    {
+        switch (proto)
+        {
 #ifdef UDPLITE_SEND_CSCOV
-    if (proto == IPPROTO_UDPLITE)
-        setsockopt (i_handle, SOL_UDPLITE, UDPLITE_SEND_CSCOV,
-                    &cscov, sizeof (cscov));
+            case IPPROTO_UDPLITE:
+                cscov += 8;
+                setsockopt (i_handle, SOL_UDPLITE, UDPLITE_SEND_CSCOV,
+                            &(int){ cscov }, sizeof (cscov));
+                break;
+#endif
+#ifdef DCCP_SOCKOPT_RECV_CSCOV
+            /* FIXME: ^^is this the right name ? */
+            /* FIXME: is this inherited by accept() ? */
+            case IPPROTO_DCCP:
+                cscov = ((cscov + 3) >> 2) + 1;
+                if (cscov > 15)
+                    break; /* out of DCCP cscov range */
+                setsockopt (i_handle, SOL_DCCP, DCCP_SOCKOPT_RECV_CSCOV,
+                            &(int){ cscov }, sizeof (cscov));
+                break;
 #endif
+        }
+    }
 
     var_Get( p_access, SOUT_CFG_PREFIX "caching", &val );
     p_sys->p_thread->i_caching = (int64_t)val.i_int * 1000;
@@ -316,27 +374,36 @@ static int Open( vlc_object_t *p_this )
 
     p_sys->i_mtu = var_CreateGetInteger( p_this, "mtu" );
 
+    srand( (uint32_t)mdate());
+    p_sys->p_buffer          = NULL;
+    p_sys->i_sequence_number = rand()&0xffff;
+    p_sys->i_ssrc            = rand()&0xffffffff;
+
+    if (i_rtcp_port && OpenRTCP (p_access, proto, i_rtcp_port))
+    {
+        msg_Err (p_access, "cannot initialize RTCP sender");
+        net_Close (i_handle);
+        vlc_object_destroy (p_sys->p_thread);
+        free (p_sys);
+        return VLC_EGENERIC;
+    }
+
     if( vlc_thread_create( p_sys->p_thread, "sout write thread", ThreadWrite,
                            VLC_THREAD_PRIORITY_HIGHEST, VLC_FALSE ) )
     {
         msg_Err( p_access->p_sout, "cannot spawn sout access thread" );
+        net_Close (i_handle);
         vlc_object_destroy( p_sys->p_thread );
+        free (p_sys);
         return VLC_EGENERIC;
     }
 
-    srand( (uint32_t)mdate());
-    p_sys->p_buffer          = NULL;
-    p_sys->i_sequence_number = rand()&0xffff;
-    p_sys->i_ssrc            = rand()&0xffffffff;
-
     var_Get( p_access, SOUT_CFG_PREFIX "raw", &val );
     if( val.b_bool )  p_access->pf_write = WriteRaw;
     else p_access->pf_write = Write;
 
     p_access->pf_seek = Seek;
 
-    free( psz_dst_addr );
-
     /* update p_sout->i_out_pace_nocontrol */
     p_access->p_sout->i_out_pace_nocontrol++;
 
@@ -352,7 +419,7 @@ static void Close( vlc_object_t * p_this )
     sout_access_out_sys_t *p_sys = p_access->p_sys;
     int i;
 
-    p_sys->p_thread->b_die = 1;
+    vlc_object_kill( p_sys->p_thread );
     for( i = 0; i < 10; i++ )
     {
         block_t *p_dummy = block_New( p_access, p_sys->i_mtu );
@@ -370,6 +437,7 @@ static void Close( vlc_object_t * p_this )
     if( p_sys->p_buffer ) block_Release( p_sys->p_buffer );
 
     net_Close( p_sys->p_thread->i_handle );
+    CloseRTCP (p_sys->p_thread);
 
     vlc_object_detach( p_sys->p_thread );
     vlc_object_destroy( p_sys->p_thread );
@@ -386,11 +454,13 @@ static void Close( vlc_object_t * p_this )
 static int Write( sout_access_out_t *p_access, block_t *p_buffer )
 {
     sout_access_out_sys_t *p_sys = p_access->p_sys;
+    int i_len = 0;
 
     while( p_buffer )
     {
         block_t *p_next;
         int i_packets = 0;
+        mtime_t now = mdate();
 
         if( !p_sys->b_mtu_warning && p_buffer->i_buffer > p_sys->i_mtu )
         {
@@ -403,16 +473,17 @@ static int Write( sout_access_out_t *p_access, block_t *p_buffer )
         if( p_sys->p_buffer &&
             p_sys->p_buffer->i_buffer + p_buffer->i_buffer > p_sys->i_mtu )
         {
-            if( p_sys->p_buffer->i_dts + p_sys->p_thread->i_caching < mdate() )
+            if( p_sys->p_buffer->i_dts + p_sys->p_thread->i_caching < now )
             {
                 msg_Dbg( p_access, "late packet for UDP input (" I64Fd ")",
-                         mdate() - p_sys->p_buffer->i_dts
+                         now - p_sys->p_buffer->i_dts
                           - p_sys->p_thread->i_caching );
             }
             block_FifoPut( p_sys->p_thread->p_fifo, p_sys->p_buffer );
             p_sys->p_buffer = NULL;
         }
 
+        i_len += p_buffer->i_buffer;
         while( p_buffer->i_buffer )
         {
             int i_payload_size = p_sys->i_mtu;
@@ -445,8 +516,7 @@ static int Write( sout_access_out_t *p_access, block_t *p_buffer )
             if( p_sys->p_buffer->i_buffer == p_sys->i_mtu || i_packets > 1 )
             {
                 /* Flush */
-                if( p_sys->p_buffer->i_dts + p_sys->p_thread->i_caching
-                      < mdate() )
+                if( p_sys->p_buffer->i_dts + p_sys->p_thread->i_caching < now )
                 {
                     msg_Dbg( p_access, "late packet for udp input (" I64Fd ")",
                              mdate() - p_sys->p_buffer->i_dts
@@ -462,7 +532,7 @@ static int Write( sout_access_out_t *p_access, block_t *p_buffer )
         p_buffer = p_next;
     }
 
-    return( p_sys->p_thread->b_error ? -1 : 0 );
+    return( p_sys->p_thread->b_error ? -1 : i_len );
 }
 
 /*****************************************************************************
@@ -472,6 +542,7 @@ static int WriteRaw( sout_access_out_t *p_access, block_t *p_buffer )
 {
     sout_access_out_sys_t   *p_sys = p_access->p_sys;
     block_t *p_buf;
+    int i_len;
 
     while ( p_sys->p_thread->p_empty_blocks->i_depth >= MAX_EMPTY_BLOCKS )
     {
@@ -479,9 +550,10 @@ static int WriteRaw( sout_access_out_t *p_access, block_t *p_buffer )
         block_Release( p_buf );
     }
 
+    i_len = p_buffer->i_buffer;
     block_FifoPut( p_sys->p_thread->p_fifo, p_buffer );
 
-    return( p_sys->p_thread->b_error ? -1 : 0 );
+    return( p_sys->p_thread->b_error ? -1 : i_len );
 }
 
 /*****************************************************************************
@@ -513,7 +585,7 @@ static block_t *NewUDPPacket( sout_access_out_t *p_access, mtime_t i_dts)
     }
     else
     {
-        p_buffer = block_FifoGet(p_sys->p_thread->p_empty_blocks );       
+        p_buffer = block_FifoGet(p_sys->p_thread->p_empty_blocks );
         p_buffer->i_flags = 0;
         p_buffer = block_Realloc( p_buffer, 0, p_sys->i_mtu );
     }
@@ -527,21 +599,12 @@ static block_t *NewUDPPacket( sout_access_out_t *p_access, mtime_t i_dts)
 
         /* add rtp/ts header */
         p_buffer->p_buffer[0] = 0x80;
-        p_buffer->p_buffer[1] = 0x21; // mpeg2-ts
+        p_buffer->p_buffer[1] = 33; // mpeg2-ts
 
-        p_buffer->p_buffer[2] = ( p_sys->i_sequence_number >> 8 )&0xff;
-        p_buffer->p_buffer[3] = p_sys->i_sequence_number&0xff;
+        SetWBE( p_buffer->p_buffer + 2, p_sys->i_sequence_number );
         p_sys->i_sequence_number++;
-
-        p_buffer->p_buffer[4] = ( i_timestamp >> 24 )&0xff;
-        p_buffer->p_buffer[5] = ( i_timestamp >> 16 )&0xff;
-        p_buffer->p_buffer[6] = ( i_timestamp >>  8 )&0xff;
-        p_buffer->p_buffer[7] = i_timestamp&0xff;
-
-        p_buffer->p_buffer[ 8] = ( p_sys->i_ssrc >> 24 )&0xff;
-        p_buffer->p_buffer[ 9] = ( p_sys->i_ssrc >> 16 )&0xff;
-        p_buffer->p_buffer[10] = ( p_sys->i_ssrc >>  8 )&0xff;
-        p_buffer->p_buffer[11] = p_sys->i_ssrc&0xff;
+        SetDWBE( p_buffer->p_buffer + 4, i_timestamp );
+        SetDWBE( p_buffer->p_buffer + 8, p_sys->i_ssrc );
 
         p_buffer->i_buffer = RTP_HEADER_LENGTH;
     }
@@ -562,6 +625,7 @@ static void ThreadWrite( vlc_object_t *p_this )
     char strerror_buf[WINSOCK_STRERROR_SIZE];
 # define strerror( x ) winsock_strerror( strerror_buf )
 #endif
+    size_t rtcp_counter = 0;
 
     while( !p_thread->b_die )
     {
@@ -575,9 +639,9 @@ static void ThreadWrite( vlc_object_t *p_this )
           while( p_tmp ) { p_tmp = p_tmp->p_next; i++;}
           p_tmp = p_thread->p_fifo->p_first;
           while( p_tmp ) { p_tmp = p_tmp->p_next; j++;}
-         msg_Err( p_thread, "fifo depth: %d/%d, empty blocks: %d/%d",
+          msg_Dbg( p_thread, "fifo depth: %d/%d, empty blocks: %d/%d",
                    p_thread->p_fifo->i_depth, j,p_thread->p_empty_blocks->i_depth,i );
-       }
+        }
 #endif
         p_pk = block_FifoGet( p_thread->p_fifo );
 
@@ -610,11 +674,18 @@ static void ThreadWrite( vlc_object_t *p_this )
             mwait( i_date );
             i_to_send = p_thread->i_group;
         }
-        if( send( p_thread->i_handle, p_pk->p_buffer, p_pk->i_buffer, 0 )
-              == -1 )
+        ssize_t val = send( p_thread->i_handle, p_pk->p_buffer,
+                            p_pk->i_buffer, 0 );
+        if (val == -1)
         {
             msg_Warn( p_thread, "send error: %s", strerror(errno) );
         }
+        else
+        {
+            p_thread->sent_pkts++;
+            p_thread->sent_bytes += val;
+            rtcp_counter += val;
+        }
 
         if( i_dropped_packets )
         {
@@ -631,6 +702,15 @@ static void ThreadWrite( vlc_object_t *p_this )
         }
 #endif
 
+        if ((p_thread->rtcp_handle != -1) && (p_pk->i_buffer >= 8))
+        {   // 1.25% rate limit:
+            if ((rtcp_counter / 80) >= p_thread->rtcp_size)
+            {
+                SendRTCP (p_thread, GetDWBE (p_pk->p_buffer + 4));
+                rtcp_counter = 0;
+            }
+        }
+
         block_FifoPut( p_thread->p_empty_blocks, p_pk );
 
         i_date_last = i_date;
@@ -648,48 +728,138 @@ static const char *MakeRandMulticast (int family, char *buf, size_t buflen)
 #ifdef AF_INET6
         case AF_INET6:
         {
-            struct sockaddr_in6 addr;
-            memset(&addr, 0, sizeof(addr));
+            struct in6_addr addr;
             memcpy (&addr, "\xff\x38\x00\x00" "\x00\x00\x00\x00"
                            "\x00\x00\x00\x00", 12);
             rand |= 0x80000000;
-            memcpy (addr.sin6_addr.s6_addr + 12, &(uint32_t){ htonl (rand) }, 4);
-#if defined(WIN32) || defined(UNDER_CE)
-            addr.sin6_family = AF_INET6;
-            if( 0 == WSAAddressToStringA((LPSOCKADDR)&addr, sizeof(struct sockaddr_in6), NULL, buf, &buflen) )
-            {
-                buf[buflen] = '\0';
-                return buf;
-            }
-            return NULL;
-#else
-            return inet_ntop (family, &(addr.sin6_addr), buf, buflen);
-#endif
+            memcpy (addr.s6_addr + 12, &(uint32_t){ htonl (rand) }, 4);
+            return inet_ntop (family, &addr, buf, buflen);
         }
 #endif
 
         case AF_INET:
         {
-            struct sockaddr_in addr;
-            memset(&addr, 0, sizeof(addr));
-            addr.sin_addr.s_addr = htonl ((rand & 0xffffff) | 0xe8000000);
-#if defined(WIN32) || defined(UNDER_CE)
-            addr.sin_family = AF_INET;
-            if( 0 == WSAAddressToStringA((LPSOCKADDR)&addr, sizeof(struct sockaddr_in), NULL, buf, &buflen) )
-            {
-                buf[buflen] = '\0';
-                return buf;
-            }
-            return NULL;
-#else
-            return inet_ntop (family, &(addr.sin_addr), buf, buflen);
-#endif
+            struct in_addr addr;
+            addr.s_addr = htonl ((rand & 0xffffff) | 0xe8000000);
+            return inet_ntop (family, &addr, buf, buflen);
         }
     }
-#if defined(WIN32) || defined(UNDER_CE)
-    WSASetLastError(WSAEAFNOSUPPORT);
-#else
+#ifdef EAFNOSUPPORT
     errno = EAFNOSUPPORT;
 #endif
     return NULL;
 }
+
+
+/*
+ * NOTE on RTCP implementation:
+ * - there is a single sender (us), no conferencing here! => n = sender = 1,
+ * - as such we need not bother to include Receiver Reports,
+ * - in unicast case, there is a single receiver => members = 1 + 1 = 2,
+ *   and obviously n > 25% of members,
+ * - in multicast case, we do not want to maintain the number of receivers
+ *   and we assume it is big (i.e. than 3) because that's what broadcasting is
+ *   all about,
+ * - it is assumed we_sent = true (could be wrong), since we are THE sender,
+ * - we always send SR + SDES, while running,
+ * - FIXME: we do not implement separate rate limiting for SDES,
+ * - we do not implement any profile-specific extensions for the time being.
+ */
+static int OpenRTCP (sout_access_out_t *obj, int proto, uint16_t dport)
+{
+    sout_access_out_sys_t *p_sys = obj->p_sys;
+    uint8_t *ptr;
+    int fd;
+
+    char src[NI_MAXNUMERICHOST], dst[NI_MAXNUMERICHOST];
+    int sport;
+
+    fd = obj->p_sys->p_thread->i_handle;
+    if (net_GetSockAddress (fd, src, &sport)
+     || net_GetPeerAddress (fd, dst, NULL))
+        return VLC_EGENERIC;
+
+    sport++;
+    fd = net_OpenDgram (obj, src, sport, dst, dport, AF_UNSPEC, proto);
+    if (fd == -1)
+        return VLC_EGENERIC;
+
+    obj->p_sys->p_thread->rtcp_handle = fd;
+
+    ptr = (uint8_t *)strchr (src, '%');
+    if (ptr != NULL)
+        *ptr = '\0'; /* remove scope ID frop IPv6 addresses */
+
+    ptr = obj->p_sys->p_thread->rtcp_data;
+
+    /* Sender report */
+    ptr[0] = 2 << 6; /* V = 2, P = RC = 0 */
+    ptr[1] = 200; /* payload type: Sender Report */
+    SetWBE (ptr + 2, 6); /* length = 6 (7 double words) */
+    SetDWBE (ptr + 4, p_sys->i_ssrc);
+    SetQWBE (ptr + 8, NTPtime64 ());
+    ptr += 28;
+    /* timestamp and counter are handled later */
+
+    /* Source description */
+    uint8_t *sdes = ptr;
+    ptr[0] = (2 << 6) | 1; /* V = 2, P = 0, SC = 1 */
+    ptr[1] = 202; /* payload type: Source Description */
+    uint8_t *lenptr = ptr + 2;
+    SetDWBE (ptr + 4, p_sys->i_ssrc);
+    ptr += 8;
+
+    ptr[0] = 1; /* CNAME - mandatory */
+    assert (NI_MAXNUMERICHOST <= 256);
+    ptr[1] = strlen (src);
+    memcpy (ptr + 2, src, ptr[1]);
+    ptr += ptr[1] + 2;
+
+    static const char tool[] = PACKAGE_STRING;
+    ptr[0] = 6; /* TOOL */
+    ptr[1] = (sizeof (tool) > 256) ? 255 : (sizeof (tool) - 1);
+    memcpy (ptr + 2, tool, ptr[1]);
+    ptr += ptr[1] + 2;
+
+    while ((ptr - sdes) & 3) /* 32-bits padding */
+        *ptr++ = 0;
+    SetWBE (lenptr, ptr - sdes);
+
+    obj->p_sys->p_thread->rtcp_size = ptr - obj->p_sys->p_thread->rtcp_data;
+    return VLC_SUCCESS;
+}
+
+static void CloseRTCP (sout_access_thread_t *obj)
+{
+    if (obj->rtcp_handle == -1)
+        return;
+
+    uint8_t *ptr = obj->rtcp_data;
+    /* Bye */
+    ptr[0] = (2 << 6) | 1; /* V = 2, P = 0, SC = 1 */
+    ptr[1] = 203; /* payload type: Bye */
+    SetWBE (ptr + 2, 1);
+    /* SSRC is already there :) */
+
+    /* We are THE sender, so we are more important than anybody else, so
+     * we can afford not to check bandwidth constraints here. */
+    send (obj->rtcp_handle, obj->rtcp_data, 8, 0);
+    net_Close (obj->rtcp_handle);
+}
+
+static void SendRTCP (sout_access_thread_t *obj, uint32_t timestamp)
+{
+    uint8_t *ptr = obj->rtcp_data;
+
+    uint32_t last = GetDWBE (ptr + 8); // last RTCP SR send time
+    uint64_t now64 = NTPtime64 ();
+    if ((now64 >> 32) < (last + 5))
+        return; // no more than one SR every 5 seconds
+
+    SetQWBE (ptr + 8, now64);
+    SetDWBE (ptr + 16, timestamp);
+    SetDWBE (ptr + 20, obj->sent_pkts);
+    SetDWBE (ptr + 24, obj->sent_bytes);
+
+    send (obj->rtcp_handle, ptr, obj->rtcp_size, 0);
+}