]> git.sesse.net Git - vlc/blob - modules/services_discovery/sap.c
Enable timeshifting automatically with SAP - closes #450
[vlc] / modules / services_discovery / sap.c
1 /*****************************************************************************
2  * sap.c :  SAP interface module
3  *****************************************************************************
4  * Copyright (C) 2004-2005 the VideoLAN team
5  * $Id$
6  *
7  * Authors: ClĂ©ment Stenac <zorglub@videolan.org>
8  *
9  * This program is free software; you can redistribute it and/or modify
10  * it under the terms of the GNU General Public License as published by
11  * the Free Software Foundation; either version 2 of the License, or
12  * (at your option) any later version.
13  *
14  * This program is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17  * GNU General Public License for more details.
18  *
19  * You should have received a copy of the GNU General Public License
20  * along with this program; if not, write to the Free Software
21  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
22  *****************************************************************************/
23
24 /*****************************************************************************
25  * Includes
26  *****************************************************************************/
27 #include <stdlib.h>                                      /* malloc(), free() */
28
29 #include <vlc/vlc.h>
30 #include <vlc/input.h>
31 #include <vlc/intf.h>
32
33 #include <network.h>
34 #include <charset.h>
35
36 #include <ctype.h>
37 #include <errno.h>
38
39 #ifdef HAVE_UNISTD_H
40 #    include <unistd.h>
41 #endif
42 #ifdef HAVE_SYS_TIME_H
43 #    include <sys/time.h>
44 #endif
45
46 #ifdef HAVE_ZLIB_H
47 #   include <zlib.h>
48 #endif
49
50 /************************************************************************
51  * Macros and definitions
52  ************************************************************************/
53
54 #define MAX_LINE_LENGTH 256
55
56 /* SAP is always on that port */
57 #define SAP_PORT 9875
58 /* Global-scope SAP address */
59 #define SAP_V4_GLOBAL_ADDRESS   "224.2.127.254"
60 /* Organization-local SAP address */
61 #define SAP_V4_ORG_ADDRESS      "239.195.255.255"
62 /* Local (smallest non-link-local scope) SAP address */
63 #define SAP_V4_LOCAL_ADDRESS    "239.255.255.255"
64 /* Link-local SAP address */
65 #define SAP_V4_LINK_ADDRESS     "224.0.0.255"
66 #define ADD_SESSION 1
67
68 #define SAP_V6_1 "FF0"
69 /* Scope is inserted between them */
70 #define SAP_V6_2 "::2:7FFE"
71 /* See RFC3513 for list of valid scopes */
72 /* FIXME: find a way to listen to link-local scope */
73 static const char ipv6_scopes[] = "1456789ABCDE";
74
75
76 /*****************************************************************************
77  * Module descriptor
78  *****************************************************************************/
79 #define SAP_ADDR_TEXT N_( "SAP multicast address" )
80 #define SAP_ADDR_LONGTEXT N_( "Listen for SAP announcements on another address" )
81 #define SAP_IPV4_TEXT N_( "IPv4-SAP listening" )
82 #define SAP_IPV4_LONGTEXT N_( \
83       "Set this if you want the SAP module to listen to IPv4 announcements " \
84       "on the standard address." )
85 #define SAP_IPV6_TEXT N_( "IPv6-SAP listening" )
86 #define SAP_IPV6_LONGTEXT N_( \
87       "Set this if you want the SAP module to listen to IPv6 announcements " \
88       "on the standard address." )
89 #define SAP_SCOPE_TEXT N_( "IPv6 SAP scope" )
90 #define SAP_SCOPE_LONGTEXT N_( \
91        "Sets the scope for IPv6 announcements (default is 8)." )
92 #define SAP_TIMEOUT_TEXT N_( "SAP timeout (seconds)" )
93 #define SAP_TIMEOUT_LONGTEXT N_( \
94        "Sets the time before SAP items get deleted if no new announcement " \
95        "is received." )
96 #define SAP_PARSE_TEXT N_( "Try to parse the SAP" )
97 #define SAP_PARSE_LONGTEXT N_( \
98        "When SAP can it will try to parse the SAP. If you don't select " \
99        "this, all announcements will be parsed by the livedotcom module." )
100 #define SAP_STRICT_TEXT N_( "SAP Strict mode" )
101 #define SAP_STRICT_LONGTEXT N_( \
102        "When this is set, the SAP parser will discard some non-compliant " \
103        "announcements." )
104 #define SAP_CACHE_TEXT N_("Use SAP cache")
105 #define SAP_CACHE_LONGTEXT N_( \
106        "If this option is selected, a SAP caching mechanism will be used. " \
107        "This will result in lower SAP startup time, but you could end up " \
108         "with items corresponding to legacy streams." )
109 #define SAP_TIMESHIFT_TEXT N_("Allow timeshifting")
110 #define SAP_TIMESHIFT_LONGTEXT N_( \
111         "Enable timeshifting automatically for streams " \
112         "discovered through SAP announcements." )
113
114 /* Callbacks */
115     static int  Open ( vlc_object_t * );
116     static void Close( vlc_object_t * );
117     static int  OpenDemux ( vlc_object_t * );
118     static void CloseDemux ( vlc_object_t * );
119
120 vlc_module_begin();
121     set_shortname( _("SAP"));
122     set_description( _("SAP Announcements") );
123     set_category( CAT_PLAYLIST );
124     set_subcategory( SUBCAT_PLAYLIST_SD );
125
126     add_string( "sap-addr", NULL, NULL,
127                 SAP_ADDR_TEXT, SAP_ADDR_LONGTEXT, VLC_TRUE );
128     add_bool( "sap-ipv4", 1 , NULL,
129                SAP_IPV4_TEXT,SAP_IPV4_LONGTEXT, VLC_TRUE );
130     add_bool( "sap-ipv6", 1 , NULL,
131               SAP_IPV6_TEXT, SAP_IPV6_LONGTEXT, VLC_TRUE );
132     add_integer( "sap-timeout", 1800, NULL,
133                  SAP_TIMEOUT_TEXT, SAP_TIMEOUT_LONGTEXT, VLC_TRUE );
134     add_bool( "sap-parse", 1 , NULL,
135                SAP_PARSE_TEXT,SAP_PARSE_LONGTEXT, VLC_TRUE );
136     add_bool( "sap-strict", 0 , NULL,
137                SAP_STRICT_TEXT,SAP_STRICT_LONGTEXT, VLC_TRUE );
138     add_bool( "sap-cache", 0 , NULL,
139                SAP_CACHE_TEXT,SAP_CACHE_LONGTEXT, VLC_TRUE );
140     add_bool( "sap-timeshift", 0 , NULL,
141               SAP_TIMESHIFT_TEXT,SAP_TIMESHIFT_LONGTEXT, VLC_TRUE );
142
143     set_capability( "services_discovery", 0 );
144     set_callbacks( Open, Close );
145
146     add_submodule();
147         set_description( _("SDP file parser for UDP") );
148         add_shortcut( "sdp" );
149         set_capability( "demux2", 51 );
150         set_callbacks( OpenDemux, CloseDemux );
151 vlc_module_end();
152
153
154 /*****************************************************************************
155  * Local structures
156  *****************************************************************************/
157
158 typedef struct sdp_t sdp_t;
159 typedef struct attribute_t attribute_t;
160 typedef struct sap_announce_t sap_announce_t;
161
162 /* The structure that contains sdp information */
163 struct  sdp_t
164 {
165     char *psz_sdp;
166
167     /* s= field */
168     char *psz_sessionname;
169
170     /* Raw m= and c= fields */
171     char *psz_connection;
172     char *psz_media;
173
174     /* o field */
175     char *psz_username;
176     char *psz_network_type;
177     char *psz_address_type;
178     char *psz_address;
179     int64_t i_session_id;
180
181     /* "computed" URI */
182     char *psz_uri;
183
184     int           i_in; /* IP version */
185
186     int           i_media;
187     int           i_media_type;
188
189     int           i_attributes;
190     attribute_t  **pp_attributes;
191 };
192
193 struct attribute_t
194 {
195     char *psz_field;
196     char *psz_value;
197 };
198
199 struct sap_announce_t
200 {
201     mtime_t i_last;
202
203     uint16_t    i_hash;
204     uint32_t    i_source[4];
205
206     /* SAP annnounces must only contain one SDP */
207     sdp_t       *p_sdp;
208
209     int i_item_id;
210 //    playlist_item_t *p_item;
211 };
212
213 struct services_discovery_sys_t
214 {
215     /* Socket descriptors */
216     int i_fd;
217     int *pi_fd;
218
219     /* playlist node */
220     playlist_item_t *p_node;
221     playlist_t *p_playlist;
222
223     /* Table of announces */
224     int i_announces;
225     struct sap_announce_t **pp_announces;
226
227     /* Modes */
228     vlc_bool_t  b_strict;
229     vlc_bool_t  b_parse;
230     vlc_bool_t  b_timeshift;
231
232     int i_timeout;
233 };
234
235 struct demux_sys_t
236 {
237     sdp_t *p_sdp;
238 };
239
240 /*****************************************************************************
241  * Local prototypes
242  *****************************************************************************/
243
244
245 /* Main functions */
246     static int Demux( demux_t *p_demux );
247     static int Control( demux_t *, int, va_list );
248     static void Run    ( services_discovery_t *p_sd );
249
250 /* Main parsing functions */
251     static int ParseConnection( vlc_object_t *p_obj, sdp_t *p_sdp );
252     static int ParseSAP( services_discovery_t *p_sd, uint8_t *p_buffer, int i_read );
253     static sdp_t *  ParseSDP( vlc_object_t *p_sd, char* psz_sdp );
254     static sap_announce_t *CreateAnnounce( services_discovery_t *, uint16_t, sdp_t * );
255     static int RemoveAnnounce( services_discovery_t *p_sd, sap_announce_t *p_announce );
256
257 /* Cache */
258     static void CacheLoad( services_discovery_t *p_sd );
259     static void CacheSave( services_discovery_t *p_sd );
260 /* Helper functions */
261     static char *GetAttribute( sdp_t *p_sdp, const char *psz_search );
262     static vlc_bool_t IsSameSession( sdp_t *p_sdp1, sdp_t *p_sdp2 );
263     static int InitSocket( services_discovery_t *p_sd, char *psz_address, int i_port );
264 #ifdef HAVE_ZLIB_H
265     static int Decompress( unsigned char *psz_src, unsigned char **_dst, int i_len );
266 #endif
267     static void FreeSDP( sdp_t *p_sdp );
268
269
270 #define FREE( p ) \
271     if( p ) { free( p ); (p) = NULL; }
272 /*****************************************************************************
273  * Open: initialize and create stuff
274  *****************************************************************************/
275 static int Open( vlc_object_t *p_this )
276 {
277     services_discovery_t *p_sd = ( services_discovery_t* )p_this;
278     services_discovery_sys_t *p_sys  = (services_discovery_sys_t *)
279                                 malloc( sizeof( services_discovery_sys_t ) );
280
281     playlist_view_t     *p_view;
282     char                *psz_addr;
283     vlc_value_t         val;
284
285     p_sys->i_timeout = var_CreateGetInteger( p_sd, "sap-timeout" );
286
287     p_sd->pf_run = Run;
288     p_sd->p_sys  = p_sys;
289
290     p_sys->pi_fd = NULL;
291     p_sys->i_fd = 0;
292
293     p_sys->b_strict = var_CreateGetInteger( p_sd, "sap-strict");
294     p_sys->b_parse = var_CreateGetInteger( p_sd, "sap-parse" );
295
296     if( var_CreateGetInteger( p_sd, "sap-cache" ) )
297     {
298         CacheLoad( p_sd );
299     }
300
301     if( var_CreateGetInteger( p_sd, "sap-ipv4" ) )
302     {
303         InitSocket( p_sd, SAP_V4_GLOBAL_ADDRESS, SAP_PORT );
304         InitSocket( p_sd, SAP_V4_ORG_ADDRESS, SAP_PORT );
305         InitSocket( p_sd, SAP_V4_LOCAL_ADDRESS, SAP_PORT );
306         InitSocket( p_sd, SAP_V4_LINK_ADDRESS, SAP_PORT );
307     }
308     if( var_CreateGetInteger( p_sd, "sap-ipv6" ) )
309     {
310         char psz_address[] = SAP_V6_1"0"SAP_V6_2;
311         const char *c_scope;
312
313         for( c_scope = ipv6_scopes; *c_scope; c_scope++ )
314         {
315             psz_address[sizeof(SAP_V6_1) - 1] = *c_scope;
316             InitSocket( p_sd, psz_address, SAP_PORT );
317         }
318     }
319
320     psz_addr = var_CreateGetString( p_sd, "sap-addr" );
321     if( psz_addr && *psz_addr )
322     {
323         InitSocket( p_sd, psz_addr, SAP_PORT );
324     }
325
326     if( p_sys->i_fd == 0 )
327     {
328         msg_Err( p_sd, "unable to read on any address" );
329         return VLC_EGENERIC;
330     }
331
332     /* Cache sap_timeshift value */
333     p_sys->b_timeshift = var_CreateGetInteger( p_sd, "sap-timeshift" )
334             ? VLC_TRUE : VLC_FALSE;
335
336     /* Create our playlist node */
337     p_sys->p_playlist = (playlist_t *)vlc_object_find( p_sd,
338                                                        VLC_OBJECT_PLAYLIST,
339                                                        FIND_ANYWHERE );
340     if( !p_sys->p_playlist )
341     {
342         msg_Warn( p_sd, "unable to find playlist, cancelling SAP listening");
343         return VLC_EGENERIC;
344     }
345
346     p_view = playlist_ViewFind( p_sys->p_playlist, VIEW_CATEGORY );
347     p_sys->p_node = playlist_NodeCreate( p_sys->p_playlist, VIEW_CATEGORY,
348                                          _("Session Announcements (SAP)"), p_view->p_root );
349     p_sys->p_node->i_flags |= PLAYLIST_RO_FLAG;
350     p_sys->p_node->i_flags &= ~PLAYLIST_SKIP_FLAG;
351     val.b_bool = VLC_TRUE;
352     var_Set( p_sys->p_playlist, "intf-change", val );
353
354     p_sys->i_announces = 0;
355     p_sys->pp_announces = NULL;
356
357     return VLC_SUCCESS;
358 }
359
360 /*****************************************************************************
361  * OpenDemux: initialize and create stuff
362  *****************************************************************************/
363 static int OpenDemux( vlc_object_t *p_this )
364 {
365     demux_t *p_demux = (demux_t *)p_this;
366     uint8_t *p_peek;
367     int i_max_sdp = 1024;
368     int i_sdp = 0;
369     char *psz_sdp = NULL;
370     sdp_t *p_sdp = NULL;
371
372     if( !var_CreateGetInteger( p_demux, "sap-parse" ) )
373     {
374         /* We want livedotcom module to parse this SDP file */
375         return VLC_EGENERIC;
376     }
377
378     /* Probe for SDP */
379     if( p_demux->s )
380     {
381         if( stream_Peek( p_demux->s, &p_peek, 7 ) < 7 ) return VLC_EGENERIC;
382
383         if( strncmp( (char*)p_peek, "v=0\r\n", 5 ) &&
384             strncmp( (char*)p_peek, "v=0\n", 4 ) &&
385             ( p_peek[0] < 'a' || p_peek[0] > 'z' || p_peek[1] != '=' ) )
386         {
387             return VLC_EGENERIC;
388         }
389     }
390
391     psz_sdp = (char *)malloc( i_max_sdp );
392     if( !psz_sdp ) return VLC_EGENERIC;
393
394     /* Gather the complete sdp file */
395     for( ;; )
396     {
397         int i_read = stream_Read( p_demux->s,
398                                   &psz_sdp[i_sdp], i_max_sdp - i_sdp - 1 );
399
400         if( i_read < 0 )
401         {
402             msg_Err( p_demux, "failed to read SDP" );
403             goto error;
404         }
405
406         i_sdp += i_read;
407
408         if( i_read < i_max_sdp - i_sdp - 1 )
409         {
410             psz_sdp[i_sdp] = '\0';
411             break;
412         }
413
414         i_max_sdp += 1000;
415         psz_sdp = (char *)realloc( psz_sdp, i_max_sdp );
416     }
417
418     p_sdp = ParseSDP( VLC_OBJECT(p_demux), psz_sdp );
419
420     if( !p_sdp )
421     {
422         msg_Warn( p_demux, "invalid SDP");
423         goto error;
424     }
425
426     if( p_sdp->i_media > 1 )
427     {
428         goto error;
429     }
430
431     if( ParseConnection( VLC_OBJECT( p_demux ), p_sdp ) )
432     {
433         p_sdp->psz_uri = NULL;
434     }
435     if( p_sdp->i_media_type != 33 && p_sdp->i_media_type != 32 &&
436         p_sdp->i_media_type != 14 )
437         goto error;
438
439     if( p_sdp->psz_uri == NULL ) goto error;
440
441     p_demux->p_sys = (demux_sys_t *)malloc( sizeof(demux_sys_t) );
442     p_demux->p_sys->p_sdp = p_sdp;
443     p_demux->pf_control = Control;
444     p_demux->pf_demux = Demux;
445
446     free( psz_sdp );
447     return VLC_SUCCESS;
448
449 error:
450     free( psz_sdp );
451     if( p_sdp ) FreeSDP( p_sdp );
452     stream_Seek( p_demux->s, 0 );
453     return VLC_EGENERIC;    
454 }
455
456 /*****************************************************************************
457  * Close:
458  *****************************************************************************/
459 static void Close( vlc_object_t *p_this )
460 {
461     services_discovery_t *p_sd = ( services_discovery_t* )p_this;
462     services_discovery_sys_t    *p_sys  = p_sd->p_sys;
463
464     int i;
465
466     for( i = p_sys->i_fd-1 ; i >= 0 ; i-- )
467     {
468         net_Close( p_sys->pi_fd[i] );
469     }
470     FREE( p_sys->pi_fd );
471
472     if( config_GetInt( p_sd, "sap-cache" ) )
473     {
474         CacheSave( p_sd );
475     }
476
477     for( i = p_sys->i_announces  - 1;  i>= 0; i-- )
478     {
479         RemoveAnnounce( p_sd, p_sys->pp_announces[i] );
480     }
481     FREE( p_sys->pp_announces );
482
483     if( p_sys->p_playlist )
484     {
485         playlist_NodeDelete( p_sys->p_playlist, p_sys->p_node, VLC_TRUE,
486                              VLC_TRUE );
487         vlc_object_release( p_sys->p_playlist );
488     }
489
490     free( p_sys );
491 }
492
493 /*****************************************************************************
494  * CloseDemux: Close the demuxer
495  *****************************************************************************/
496 static void CloseDemux( vlc_object_t *p_this )
497 {
498
499 }
500
501 /*****************************************************************************
502  * Run: main SAP thread
503  *****************************************************************************
504  * Listens to SAP packets, and sends them to packet_handle
505  *****************************************************************************/
506 #define MAX_SAP_BUFFER 5000
507
508 static void Run( services_discovery_t *p_sd )
509 {
510     int i;
511
512     /* read SAP packets */
513     while( !p_sd->b_die )
514     {
515         int i_read;
516         uint8_t p_buffer[MAX_SAP_BUFFER+1];
517
518         i_read = net_Select( p_sd, p_sd->p_sys->pi_fd, NULL,
519                              p_sd->p_sys->i_fd, p_buffer,
520                              MAX_SAP_BUFFER, 500000 );
521
522         /* Check for items that need deletion */
523         for( i = 0; i < p_sd->p_sys->i_announces; i++ )
524         {
525             mtime_t i_timeout = ( mtime_t ) 1000000 * p_sd->p_sys->i_timeout;
526
527             if( mdate() - p_sd->p_sys->pp_announces[i]->i_last > i_timeout )
528             {
529                 struct sap_announce_t *p_announce;
530                 p_announce = p_sd->p_sys->pp_announces[i];
531
532                 /* Remove the playlist item */
533                 playlist_LockDelete( p_sd->p_sys->p_playlist,
534                                      p_announce->i_item_id );
535
536                 /* Remove the sap_announce from the array */
537                 REMOVE_ELEM( p_sd->p_sys->pp_announces,
538                            p_sd->p_sys->i_announces, i );
539
540                 free( p_announce );
541             }
542         }
543
544         /* Minimum length is > 6 */
545         if( i_read <= 6 )
546         {
547             if( i_read < 0 )
548             {
549                 msg_Warn( p_sd, "socket read error" );
550             }
551             continue;
552         }
553
554         p_buffer[i_read] = '\0';
555
556         /* Parse the packet */
557         ParseSAP( p_sd, p_buffer, i_read );
558     }
559 }
560
561 /**********************************************************************
562  * Demux: reads and demuxes data packets
563  * Return -1 if error, 0 if EOF, 1 else
564  **********************************************************************/
565 static int Demux( demux_t *p_demux )
566 {
567     sdp_t *p_sdp = p_demux->p_sys->p_sdp;
568     playlist_t *p_playlist;
569
570     p_playlist = (playlist_t *)vlc_object_find( p_demux, VLC_OBJECT_PLAYLIST,
571                                                FIND_ANYWHERE );
572
573     p_playlist->status.p_item->i_flags |= PLAYLIST_DEL_FLAG;
574
575     playlist_Add( p_playlist, p_sdp->psz_uri, p_sdp->psz_sessionname,
576                  PLAYLIST_APPEND, PLAYLIST_END );
577
578     vlc_object_release( p_playlist );
579     if( p_sdp ) FreeSDP( p_sdp );
580
581     return VLC_SUCCESS;
582 }
583
584 static int Control( demux_t *p_demux, int i_query, va_list args )
585 {
586     return VLC_EGENERIC;
587 }
588
589 /**************************************************************
590  * Local functions
591  **************************************************************/
592
593 /* i_read is at least > 6 */
594 static int ParseSAP( services_discovery_t *p_sd, uint8_t *p_buffer, int i_read )
595 {
596     int                 i_version, i_address_type, i_hash, i;
597     char                *psz_sdp, *psz_foo, *psz_initial_sdp;
598     sdp_t               *p_sdp;
599     vlc_bool_t          b_compressed;
600     vlc_bool_t          b_need_delete = VLC_FALSE;
601
602     /* First, check the sap announce is correct */
603     i_version = p_buffer[0] >> 5;
604     if( i_version != 1 )
605     {
606        msg_Dbg( p_sd, "strange sap version %d found", i_version );
607     }
608
609     i_address_type = p_buffer[0] & 0x10;
610
611     if( (p_buffer[0] & 0x08) != 0 )
612     {
613         msg_Dbg( p_sd, "reserved bit incorrectly set" );
614         return VLC_EGENERIC;
615     }
616
617     if( (p_buffer[0] & 0x04) != 0 )
618     {
619         msg_Dbg( p_sd, "session deletion packet" );
620         b_need_delete = VLC_TRUE;
621     }
622
623     if( p_buffer[0] & 0x02  )
624     {
625         msg_Dbg( p_sd, "encrypted packet, unsupported" );
626         return VLC_EGENERIC;
627     }
628
629     b_compressed = p_buffer[0] & 0x01;
630
631     i_hash = ( p_buffer[2] << 8 ) + p_buffer[3];
632
633     if( p_sd->p_sys->b_strict && i_hash == 0 )
634     {
635         msg_Dbg( p_sd, "strict mode, discarding announce with null id hash");
636         return VLC_EGENERIC;
637     }
638
639     psz_sdp  = (char *)p_buffer + 4;
640     psz_initial_sdp = psz_sdp;
641
642     if( i_address_type == 0 ) /* ipv4 source address */
643     {
644         psz_sdp += 4;
645         if( i_read <= 9 )
646         {
647             msg_Warn( p_sd, "too short SAP packet\n" );
648             return VLC_EGENERIC;
649         }
650     }
651     else /* ipv6 source address */
652     {
653         psz_sdp += 16;
654         if( i_read <= 21 )
655         {
656             msg_Warn( p_sd, "too short SAP packet\n" );
657             return VLC_EGENERIC;
658         }
659     }
660
661     if( b_compressed )
662     {
663 #ifdef HAVE_ZLIB_H
664         uint8_t *p_decompressed_buffer = NULL;
665         int      i_decompressed_size;
666
667         i_decompressed_size = Decompress( (uint8_t *)psz_sdp,
668                    &p_decompressed_buffer, i_read - ( psz_sdp - (char *)p_buffer ) );
669         if( i_decompressed_size > 0 && i_decompressed_size < MAX_SAP_BUFFER )
670         {
671             memcpy( psz_sdp, p_decompressed_buffer, i_decompressed_size );
672             psz_sdp[i_decompressed_size] = '\0';
673             free( p_decompressed_buffer );
674         }
675 #else
676         msg_Warn( p_sd, "Ignoring compressed sap packet" );
677         return VLC_EGENERIC;
678 #endif
679     }
680
681     /* Add the size of authentification info */
682     if( i_read < p_buffer[1] + (psz_sdp - psz_initial_sdp ) )
683     {
684         msg_Warn( p_sd, "too short SAP packet\n");
685         return VLC_EGENERIC;
686     }
687     psz_sdp += p_buffer[1];
688     psz_foo = psz_sdp;
689
690     /* Skip payload type */
691     /* Handle announces without \0 between SAP and SDP */
692     while( *psz_sdp != '\0' && ( psz_sdp[0] != 'v' && psz_sdp[1] != '=' ) )
693     {
694         if( psz_sdp - psz_initial_sdp >= i_read - 5 )
695         {
696             msg_Warn( p_sd, "empty SDP ?");
697         }
698         psz_sdp++;
699     }
700
701     if( *psz_sdp == '\0' )
702     {
703         psz_sdp++;
704     }
705     if( ( psz_sdp != psz_foo ) && strcasecmp( psz_foo, "application/sdp" ) )
706     {
707         msg_Dbg( p_sd, "unhandled content type: %s", psz_foo );        
708     }
709     if( ( psz_sdp - (char *)p_buffer ) >= i_read )
710     {
711         msg_Warn( p_sd, "package without content" );
712         return VLC_EGENERIC;
713     }
714
715     /* Parse SDP info */
716     p_sdp = ParseSDP( VLC_OBJECT(p_sd), psz_sdp );
717
718     if( p_sdp == NULL )
719     {
720         return VLC_EGENERIC;
721     }
722
723     /* Decide whether we should add a playlist item for this SDP */
724     /* Parse connection information (c= & m= ) */
725     if( ParseConnection( VLC_OBJECT(p_sd), p_sdp ) )
726     {
727         p_sdp->psz_uri = NULL;
728     }
729
730     /* Multi-media or no-parse -> pass to LIVE.COM */
731     if( p_sdp->i_media > 1 || ( p_sdp->i_media_type != 14 &&
732                                 p_sdp->i_media_type != 32 &&
733                                 p_sdp->i_media_type != 33) ||
734         p_sd->p_sys->b_parse == VLC_FALSE )
735     {
736         if( p_sdp->psz_uri ) free( p_sdp->psz_uri );
737         asprintf( &p_sdp->psz_uri, "sdp://%s", p_sdp->psz_sdp );
738     }
739
740     if( p_sdp->psz_uri == NULL ) return VLC_EGENERIC;
741
742     for( i = 0 ; i< p_sd->p_sys->i_announces ; i++ )
743     {
744         /* FIXME: slow */
745         /* FIXME: we create a new announce each time the sdp changes */
746         if( IsSameSession( p_sd->p_sys->pp_announces[i]->p_sdp, p_sdp ) )
747         {
748             if( b_need_delete )
749             {
750                 RemoveAnnounce( p_sd, p_sd->p_sys->pp_announces[i]);
751                 return VLC_SUCCESS;
752             }
753             else
754             {
755                 p_sd->p_sys->pp_announces[i]->i_last = mdate();
756                 FreeSDP( p_sdp );
757                 return VLC_SUCCESS;
758             }
759         }
760     }
761     /* Add item */
762     if( p_sdp->i_media > 1 )
763     {
764         msg_Dbg( p_sd, "passing to LIVE.COM" );
765     }
766
767     CreateAnnounce( p_sd, i_hash, p_sdp );
768
769     return VLC_SUCCESS;
770 }
771
772 sap_announce_t *CreateAnnounce( services_discovery_t *p_sd, uint16_t i_hash,
773                                 sdp_t *p_sdp )
774 {
775     playlist_item_t     *p_item, *p_child;
776     char *psz_value;
777     sap_announce_t *p_sap = (sap_announce_t *)malloc(
778                                         sizeof(sap_announce_t ) );
779     services_discovery_sys_t *p_sys;
780     if( p_sap == NULL )
781         return NULL;
782
783     p_sys = p_sd->p_sys;
784
785     EnsureUTF8( p_sdp->psz_sessionname );
786     p_sap->i_last = mdate();
787     p_sap->i_hash = i_hash;
788     p_sap->p_sdp = p_sdp;
789     p_sap->i_item_id = -1;
790
791     /* Create the actual playlist item here */
792     p_item = playlist_ItemNew( p_sd, p_sap->p_sdp->psz_uri, p_sdp->psz_sessionname );
793
794     if( !p_item )
795     {
796         free( p_sap );
797         return NULL;
798     }
799
800     if( p_sys->b_timeshift )
801         playlist_ItemAddOption( p_item, ":access-filter=timeshift" );
802
803     psz_value = GetAttribute( p_sap->p_sdp, "tool" );
804     if( psz_value != NULL )
805     {
806         vlc_input_item_AddInfo( &p_item->input, _("Session"),
807                                 _("Tool"), psz_value );
808     }
809     if( strcmp( p_sdp->psz_username, "-" ) )
810     {
811         vlc_input_item_AddInfo( &p_item->input, _("Session"),
812                                 _("User"), p_sdp->psz_username );
813     }
814
815     psz_value = GetAttribute( p_sap->p_sdp, "x-plgroup" );
816
817     if( psz_value == NULL )
818     {
819         psz_value = GetAttribute( p_sap->p_sdp, "plgroup" );
820     }
821
822     /* Find or Create the group playlist non-playable item */
823     if( psz_value != NULL )
824     {
825         EnsureUTF8( psz_value );
826
827         p_child = playlist_ChildSearchName( p_sys->p_node, psz_value );
828
829         if( p_child == NULL )
830         {
831             p_child = playlist_NodeCreate( p_sys->p_playlist,
832                                            VIEW_CATEGORY, psz_value,
833                                            p_sys->p_node );
834             p_child->i_flags &= ~PLAYLIST_SKIP_FLAG;
835         }
836     }
837     else
838     {
839         p_child = p_sys->p_node;
840     }
841
842     p_item->i_flags &= ~PLAYLIST_SKIP_FLAG;
843     p_item->i_flags &= ~PLAYLIST_SAVE_FLAG;
844
845     playlist_NodeAddItem( p_sys->p_playlist, p_item, VIEW_CATEGORY, p_child,
846                           PLAYLIST_APPEND, PLAYLIST_END );
847
848     p_sap->i_item_id = p_item->input.i_id;
849
850     TAB_APPEND( p_sys->i_announces, p_sys->pp_announces, p_sap );
851
852     return p_sap;
853 }
854
855 static char *GetAttribute( sdp_t *p_sdp, const char *psz_search )
856 {
857     int i;
858
859     for( i = 0 ; i< p_sdp->i_attributes; i++ )
860     {
861         if( !strncmp( p_sdp->pp_attributes[i]->psz_field, psz_search,
862                       strlen( p_sdp->pp_attributes[i]->psz_field ) ) )
863         {
864             return p_sdp->pp_attributes[i]->psz_value;
865         }
866     }
867     return NULL;
868 }
869
870
871 /* Fill p_sdp->psz_uri */
872 static int ParseConnection( vlc_object_t *p_obj, sdp_t *p_sdp )
873 {
874     char *psz_eof;
875     char *psz_parse;
876     char *psz_uri = NULL;
877     char *psz_proto = NULL;
878     int i_port = 0;
879
880     /* Parse c= field */
881     if( p_sdp->psz_connection )
882     {
883         psz_parse = p_sdp->psz_connection;
884
885         psz_eof = strchr( psz_parse, ' ' );
886
887         if( psz_eof )
888         {
889             *psz_eof = '\0';
890             psz_parse = psz_eof + 1;
891         }
892         else
893         {
894             msg_Warn( p_obj, "unable to parse c field (1)");
895             return VLC_EGENERIC;
896         }
897
898         psz_eof = strchr( psz_parse, ' ' );
899
900         if( psz_eof )
901         {
902             *psz_eof = '\0';
903             if( !strncmp( psz_parse, "IP4", 3 ) )
904             {
905                 p_sdp->i_in = 4;
906             }
907             else if( !strncmp( psz_parse, "IP6", 3 ) )
908             {
909                 p_sdp->i_in = 6;
910             }
911             else
912             {
913                 p_sdp->i_in = 0;
914             }
915             psz_parse = psz_eof + 1;
916         }
917         else
918         {
919             msg_Warn( p_obj, "unable to parse c field (2)");
920             return VLC_EGENERIC;
921         }
922
923         psz_eof = strchr( psz_parse, '/' );
924
925         if( psz_eof )
926         {
927             *psz_eof = '\0';
928         }
929         else
930         {
931             msg_Dbg( p_obj, "incorrect c field, %s", p_sdp->psz_connection );
932         }
933         if( p_sdp->i_in == 6 && ( isxdigit( *psz_parse ) || *psz_parse == ':' ) )
934         {
935             asprintf( &psz_uri, "[%s]", psz_parse );
936         }
937         else psz_uri = strdup( psz_parse );
938
939     }
940
941     /* Parse m= field */
942     if( p_sdp->psz_media )
943     {
944         psz_parse = p_sdp->psz_media;
945
946         psz_eof = strchr( psz_parse, ' ' );
947
948         if( psz_eof )
949         {
950             *psz_eof = '\0';
951
952             if( strncmp( psz_parse, "audio", 5 )  &&
953                 strncmp( psz_parse, "video", 5 ) )
954             {
955                 msg_Warn( p_obj, "unhandled media type -%s-", psz_parse );
956                 FREE( psz_uri );
957                 return VLC_EGENERIC;
958             }
959
960             psz_parse = psz_eof + 1;
961         }
962         else
963         {
964             msg_Warn( p_obj, "unable to parse m field (1)");
965             FREE( psz_uri );
966             return VLC_EGENERIC;
967         }
968
969         psz_eof = strchr( psz_parse, ' ' );
970
971         if( psz_eof )
972         {
973             *psz_eof = '\0';
974
975             /* FIXME : multiple port ! */
976             i_port = atoi( psz_parse );
977
978             if( i_port <= 0 || i_port >= 65536 )
979             {
980                 msg_Warn( p_obj, "invalid transport port %i", i_port );
981             }
982
983             psz_parse = psz_eof + 1;
984         }
985         else
986         {
987             msg_Warn( p_obj, "unable to parse m field (2)");
988             FREE( psz_uri );
989             return VLC_EGENERIC;
990         }
991
992         psz_eof = strchr( psz_parse, ' ' );
993
994         if( psz_eof )
995         {
996             *psz_eof = '\0';
997             psz_proto = strdup( psz_parse );
998
999             psz_parse = psz_eof + 1;
1000             p_sdp->i_media_type = atoi( psz_parse );
1001
1002         }
1003         else
1004         {
1005             msg_Dbg( p_obj, "incorrect m field, %s", p_sdp->psz_media );
1006             p_sdp->i_media_type = 33;
1007             psz_proto = strdup( psz_parse );
1008         }
1009     }
1010
1011     if( psz_proto && !strncmp( psz_proto, "RTP/AVP", 7 ) )
1012     {
1013         free( psz_proto );
1014         psz_proto = strdup( "rtp" );
1015     }
1016     if( psz_proto && !strncasecmp( psz_proto, "UDP", 3 ) )
1017     {
1018         free( psz_proto );
1019         psz_proto = strdup( "udp" );
1020     }
1021
1022     /* FIXME: HTTP support */
1023
1024     if( i_port == 0 )
1025     {
1026         i_port = 1234;
1027     }
1028
1029     asprintf( &p_sdp->psz_uri, "%s://@%s:%i", psz_proto, psz_uri, i_port );
1030
1031     FREE( psz_uri );
1032     FREE( psz_proto );
1033     return VLC_SUCCESS;
1034 }
1035
1036 /***********************************************************************
1037  * ParseSDP : SDP parsing
1038  * *********************************************************************
1039  * Validate SDP and parse all fields
1040  ***********************************************************************/
1041 static sdp_t *  ParseSDP( vlc_object_t *p_obj, char* psz_sdp )
1042 {
1043     sdp_t *p_sdp;
1044     vlc_bool_t b_invalid = VLC_FALSE;
1045     vlc_bool_t b_end = VLC_FALSE;
1046     if( psz_sdp == NULL )
1047     {
1048         return NULL;
1049     }
1050
1051     if( psz_sdp[0] != 'v' || psz_sdp[1] != '=' )
1052     {
1053         msg_Warn( p_obj, "Bad packet" );
1054         return NULL;
1055     }
1056
1057     p_sdp = (sdp_t *)malloc( sizeof( sdp_t ) );
1058     if( p_sdp == NULL )
1059         return NULL;
1060
1061     p_sdp->psz_sdp = strdup( psz_sdp );
1062     if( p_sdp->psz_sdp == NULL )
1063     {
1064         free( p_sdp );
1065         return NULL;
1066     }
1067
1068     p_sdp->psz_sessionname = NULL;
1069     p_sdp->psz_media       = NULL;
1070     p_sdp->psz_connection  = NULL;
1071     p_sdp->psz_uri         = NULL;
1072     p_sdp->psz_address     = NULL;
1073     p_sdp->psz_address_type= NULL;
1074
1075     p_sdp->i_media         = 0;
1076     p_sdp->i_attributes    = 0;
1077     p_sdp->pp_attributes   = NULL;
1078
1079     while( *psz_sdp != '\0' && b_end == VLC_FALSE  )
1080     {
1081         char *psz_eol;
1082         char *psz_eof;
1083         char *psz_parse;
1084         char *psz_sess_id;
1085
1086         while( *psz_sdp == '\r' || *psz_sdp == '\n' ||
1087                *psz_sdp == ' ' || *psz_sdp == '\t' )
1088         {
1089             psz_sdp++;
1090         }
1091
1092         if( ( psz_eol = strchr( psz_sdp, '\n' ) ) == NULL )
1093         {
1094             psz_eol = psz_sdp + strlen( psz_sdp );
1095             b_end = VLC_TRUE;
1096         }
1097         if( psz_eol > psz_sdp && *( psz_eol - 1 ) == '\r' )
1098         {
1099             psz_eol--;
1100         }
1101
1102         if( psz_eol <= psz_sdp )
1103         {
1104             break;
1105         }
1106         *psz_eol++ = '\0';
1107
1108         /* no space allowed between fields */
1109         if( psz_sdp[1] != '=' )
1110         {
1111             msg_Warn( p_obj, "invalid packet" ) ;
1112             FreeSDP( p_sdp );
1113             return NULL;
1114         }
1115
1116         /* Now parse each line */
1117         switch( psz_sdp[0] )
1118         {
1119             case( 'v' ):
1120                 break;
1121             case( 's' ):
1122                 p_sdp->psz_sessionname = strdup( &psz_sdp[2] );
1123                 break;
1124             case ( 'o' ):
1125             {
1126                 int i_field = 0;
1127                 /* o field is <username> <session id> <version>
1128                  *  <network type> <address type> <address> */
1129
1130 #define GET_FIELD( store ) \
1131                 psz_eof = strchr( psz_parse, ' ' ); \
1132                 if( psz_eof ) \
1133                 { \
1134                     *psz_eof=0; store = strdup( psz_parse ); \
1135                 } \
1136                 else \
1137                 { \
1138                     if( i_field != 5 ) \
1139                     { \
1140                         b_invalid = VLC_TRUE; break; \
1141                     } \
1142                     else \
1143                     { \
1144                         store = strdup( psz_parse ); \
1145                     } \
1146                 }; \
1147                 psz_parse = psz_eof + 1; i_field++;
1148
1149
1150                 psz_parse = &psz_sdp[2];
1151                 GET_FIELD( p_sdp->psz_username );
1152                 GET_FIELD( psz_sess_id );
1153
1154                 p_sdp->i_session_id = atoll( psz_sess_id );
1155
1156                 FREE( psz_sess_id );
1157
1158                 GET_FIELD( psz_sess_id );
1159                 FREE( psz_sess_id );
1160
1161                 GET_FIELD( p_sdp->psz_network_type );
1162                 GET_FIELD( p_sdp->psz_address_type );
1163                 GET_FIELD( p_sdp->psz_address );
1164
1165                 break;
1166             }
1167             case( 'i' ):
1168             case( 'u' ):
1169             case( 'e' ):
1170             case( 'p' ):
1171             case( 't' ):
1172             case( 'r' ):
1173                 break;
1174             case( 'a' ): /* attribute */
1175             {
1176                 char *psz_eon = strchr( &psz_sdp[2], ':' );
1177                 attribute_t *p_attr = malloc( sizeof( attribute_t ) );
1178
1179                 /* Attribute with value */
1180                 if( psz_eon )
1181                 {
1182                     *psz_eon++ = '\0';
1183
1184                     p_attr->psz_field = strdup( &psz_sdp[2] );
1185                     p_attr->psz_value = strdup( psz_eon );
1186                 }
1187                 else /* Attribute without value */
1188                 {
1189                     p_attr->psz_field = strdup( &psz_sdp[2] );
1190                     p_attr->psz_value = NULL;
1191                 }
1192
1193                 TAB_APPEND( p_sdp->i_attributes, p_sdp->pp_attributes, p_attr );
1194                 break;
1195             }
1196
1197             case( 'm' ): /* Media announcement */
1198             {
1199                 /* If we have several medias, we pass the announcement to
1200                  * LIVE.COM, so just count them */
1201                 p_sdp->i_media++;
1202                 if( p_sdp->i_media == 1 )
1203                 {
1204                     p_sdp->psz_media = strdup( &psz_sdp[2] );
1205                 }
1206                 break;
1207             }
1208
1209             case( 'c' ):
1210             {
1211                 if( p_sdp->i_media > 1 )
1212                     break;
1213
1214                 p_sdp->psz_connection = strdup( &psz_sdp[2] );
1215                 break;
1216             }
1217
1218             default:
1219                break;
1220         }
1221
1222         if( b_invalid )
1223         {
1224             FreeSDP( p_sdp );
1225             return NULL;
1226         }
1227
1228         psz_sdp = psz_eol;
1229     }
1230
1231     return p_sdp;
1232 }
1233
1234 static int InitSocket( services_discovery_t *p_sd, char *psz_address,
1235                        int i_port )
1236 {
1237     int i_fd = net_OpenUDP( p_sd, psz_address, i_port, "", 0 );
1238
1239     if( i_fd != -1 )
1240     {
1241         net_StopSend( i_fd );
1242         INSERT_ELEM(  p_sd->p_sys->pi_fd, p_sd->p_sys->i_fd,
1243                       p_sd->p_sys->i_fd, i_fd );
1244         return VLC_SUCCESS;
1245     }
1246
1247     return VLC_EGENERIC;
1248 }
1249
1250 #ifdef HAVE_ZLIB_H
1251 static int Decompress( unsigned char *psz_src, unsigned char **_dst, int i_len )
1252 {
1253     int i_result, i_dstsize, n;
1254     unsigned char *psz_dst;
1255     z_stream d_stream;
1256
1257     d_stream.zalloc = (alloc_func)0;
1258     d_stream.zfree = (free_func)0;
1259     d_stream.opaque = (voidpf)0;
1260
1261     i_result = inflateInit(&d_stream);
1262     if( i_result != Z_OK )
1263     {
1264         printf( "inflateInit() failed. Result: %d\n", i_result );
1265         return( -1 );
1266     }
1267 #if 0
1268     p_playlist->pp_items[p_playlist->i_index]->b_autodeletion = VLC_TRUE;
1269     i_position = p_playlist->i_index;
1270
1271     /* Gather the complete sdp file */
1272     for( ;; )
1273     {
1274         int i_read = stream_Read( p_demux->s, &p_sdp[i_sdp], i_sdp_max - i_sdp - 1 );
1275 #endif
1276     d_stream.next_in = (Bytef *)psz_src;
1277     d_stream.avail_in = i_len;
1278     n = 0;
1279
1280     psz_dst = NULL;
1281
1282     do
1283     {
1284         n++;
1285         psz_dst = (unsigned char *)realloc( psz_dst, n * 1000 );
1286         d_stream.next_out = (Bytef *)&psz_dst[(n - 1) * 1000];
1287         d_stream.avail_out = 1000;
1288
1289         i_result = inflate(&d_stream, Z_NO_FLUSH);
1290         if( ( i_result != Z_OK ) && ( i_result != Z_STREAM_END ) )
1291         {
1292             printf( "Zlib decompression failed. Result: %d\n", i_result );
1293             return( -1 );
1294         }
1295     }
1296     while( ( d_stream.avail_out == 0 ) && ( d_stream.avail_in != 0 ) &&
1297            ( i_result != Z_STREAM_END ) );
1298
1299     i_dstsize = d_stream.total_out;
1300     inflateEnd( &d_stream );
1301
1302     *_dst = (unsigned char *)realloc( psz_dst, i_dstsize );
1303
1304     return i_dstsize;
1305 }
1306 #endif
1307
1308
1309 static void FreeSDP( sdp_t *p_sdp )
1310 {
1311     int i;
1312     FREE( p_sdp->psz_sdp );
1313     FREE( p_sdp->psz_sessionname );
1314     FREE( p_sdp->psz_connection );
1315     FREE( p_sdp->psz_media );
1316     FREE( p_sdp->psz_uri );
1317     FREE( p_sdp->psz_username );
1318     FREE( p_sdp->psz_network_type );
1319
1320     FREE( p_sdp->psz_address );
1321     FREE( p_sdp->psz_address_type );
1322
1323     for( i= p_sdp->i_attributes - 1; i >= 0 ; i-- )
1324     {
1325         struct attribute_t *p_attr = p_sdp->pp_attributes[i];
1326         FREE( p_sdp->pp_attributes[i]->psz_field );
1327         FREE( p_sdp->pp_attributes[i]->psz_value );
1328         REMOVE_ELEM( p_sdp->pp_attributes, p_sdp->i_attributes, i);
1329         FREE( p_attr );
1330     }
1331     free( p_sdp );
1332 }
1333
1334 static int RemoveAnnounce( services_discovery_t *p_sd,
1335                            sap_announce_t *p_announce )
1336 {
1337     int i;
1338
1339     if( p_announce->p_sdp ) FreeSDP( p_announce->p_sdp );
1340
1341     if( p_announce->i_item_id > -1 )
1342     {
1343         playlist_LockDelete( p_sd->p_sys->p_playlist, p_announce->i_item_id );
1344     }
1345
1346     for( i = 0; i< p_sd->p_sys->i_announces; i++)
1347     {
1348         if( p_sd->p_sys->pp_announces[i] == p_announce )
1349         {
1350             REMOVE_ELEM( p_sd->p_sys->pp_announces, p_sd->p_sys->i_announces,
1351                          i);
1352             break;
1353         }
1354     }
1355
1356     free( p_announce );
1357
1358     return VLC_SUCCESS;
1359 }
1360
1361 static vlc_bool_t IsSameSession( sdp_t *p_sdp1, sdp_t *p_sdp2 )
1362 {
1363     /* A session is identified by
1364      * username, session_id, network type, address type and address */
1365     if( p_sdp1->psz_username && p_sdp2->psz_username &&
1366         p_sdp1->psz_network_type && p_sdp2->psz_network_type &&
1367         p_sdp1->psz_address_type && p_sdp2->psz_address_type &&
1368         p_sdp1->psz_address &&  p_sdp2->psz_address )
1369     {
1370         if(!strcmp( p_sdp1->psz_username , p_sdp2->psz_username ) &&
1371            !strcmp( p_sdp1->psz_network_type , p_sdp2->psz_network_type ) &&
1372            !strcmp( p_sdp1->psz_address_type , p_sdp2->psz_address_type ) &&
1373            !strcmp( p_sdp1->psz_address , p_sdp2->psz_address ) &&
1374            p_sdp1->i_session_id == p_sdp2->i_session_id )
1375         {
1376             return VLC_TRUE;
1377         }
1378         else
1379         {
1380             return VLC_FALSE;
1381         }
1382     }
1383     else
1384     {
1385         return VLC_FALSE;
1386     }
1387 }
1388
1389
1390 static void CacheLoad( services_discovery_t *p_sd )
1391 {
1392     msg_Warn( p_sd, "Cache not implemented") ;
1393 }
1394
1395 static void CacheSave( services_discovery_t *p_sd )
1396 {
1397     msg_Warn( p_sd, "Cache not implemented") ;
1398 }