git.sesse.net Git - vlc/blob - modules/services_discovery/sap.c

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