url: remove vlc_UrlParse() option parameter
[vlc.git] / modules / access / mms / mmsh.c
1 /*****************************************************************************
2  * mmsh.c:
3  *****************************************************************************
4  * Copyright (C) 2001, 2002 VLC authors and VideoLAN
5  * $Id$
6  *
7  * Authors: Laurent Aimar <fenrir@via.ecp.fr>
8  *
9  * This program is free software; you can redistribute it and/or modify it
10  * under the terms of the GNU Lesser General Public License as published by
11  * the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details.
18  *
19  * You should have received a copy of the GNU Lesser General Public License
20  * along with this program; if not, write to the Free Software Foundation,
21  * Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
22  *****************************************************************************/
23
24 /*****************************************************************************
25  * Preamble
26  *****************************************************************************/
27
28 #ifdef HAVE_CONFIG_H
29 # include "config.h"
30 #endif
31
32 #include <vlc_common.h>
33 #include <vlc_access.h>
34 #include <vlc_strings.h>
35 #include <vlc_input.h>
36
37 #include <vlc_network.h>
38 #include <vlc_url.h>
39 #include "asf.h"
40 #include "buffer.h"
41
42 #include "mms.h"
43 #include "mmsh.h"
44
45 #include "assert.h"
46 /* TODO:
47  *  - authentication
48  */
49
50 /*****************************************************************************
51  * Local prototypes
52  *****************************************************************************/
53 int  MMSHOpen  ( access_t * );
54 void MMSHClose ( access_t * );
55
56 static block_t *Block( access_t *p_access );
57 static ssize_t ReadRedirect( access_t *, uint8_t *, size_t );
58 static int  Seek( access_t *, uint64_t );
59 static int  Control( access_t *, int, va_list );
60
61 static int  Describe( access_t  *, char **ppsz_location );
62 static int  Start( access_t *, uint64_t );
63 static void Stop( access_t * );
64
65 static int  GetPacket( access_t *, chunk_t * );
66 static void GetHeader( access_t *p_access, int i_content_length );
67
68 static int Restart( access_t * );
69 static int Reset( access_t * );
70
71 //#define MMSH_USER_AGENT "NSPlayer/4.1.0.3856"
72 #define MMSH_USER_AGENT "NSPlayer/7.10.0.3059"
73
74 /****************************************************************************
75  * Open: connect to ftp server and ask for file
76  ****************************************************************************/
77 int MMSHOpen( access_t *p_access )
78 {
79     access_sys_t    *p_sys;
80     char            *psz_location = NULL;
81     char            *psz_proxy;
82
83     STANDARD_BLOCK_ACCESS_INIT
84
85     p_sys->i_proto= MMS_PROTO_HTTP;
86     p_sys->fd     = -1;
87
88     /* Handle proxy */
89     p_sys->b_proxy = false;
90     memset( &p_sys->proxy, 0, sizeof(p_sys->proxy) );
91
92     /* Check proxy */
93     /* TODO reuse instead http-proxy from http access ? */
94     psz_proxy = var_CreateGetNonEmptyString( p_access, "mmsh-proxy" );
95     if( !psz_proxy )
96     {
97         char *psz_http_proxy = var_InheritString( p_access, "http-proxy" );
98         if( psz_http_proxy )
99         {
100             psz_proxy = psz_http_proxy;
101             var_SetString( p_access, "mmsh-proxy", psz_proxy );
102         }
103     }
104
105     if( psz_proxy )
106     {
107         p_sys->b_proxy = true;
108         vlc_UrlParse( &p_sys->proxy, psz_proxy );
109         free( psz_proxy );
110     }
111     else
112     {
113         const char *http_proxy = getenv( "http_proxy" );
114         if( http_proxy )
115         {
116             p_sys->b_proxy = true;
117             vlc_UrlParse( &p_sys->proxy, http_proxy );
118         }
119     }
120
121     if( p_sys->b_proxy )
122     {
123         if( ( p_sys->proxy.psz_host == NULL ) ||
124             ( *p_sys->proxy.psz_host == '\0' ) )
125         {
126             msg_Warn( p_access, "invalid proxy host" );
127             vlc_UrlClean( &p_sys->proxy );
128             free( p_sys );
129             return VLC_EGENERIC;
130         }
131
132         if( p_sys->proxy.i_port <= 0 )
133             p_sys->proxy.i_port = 80;
134         msg_Dbg( p_access, "Using http proxy %s:%d",
135                  p_sys->proxy.psz_host, p_sys->proxy.i_port );
136     }
137
138     /* open a tcp connection */
139     vlc_UrlParse( &p_sys->url, p_access->psz_location );
140     if( ( p_sys->url.psz_host == NULL ) ||
141         ( *p_sys->url.psz_host == '\0' ) )
142     {
143         msg_Err( p_access, "invalid host" );
144         goto error;
145     }
146     if( p_sys->url.i_port <= 0 )
147         p_sys->url.i_port = 80;
148
149     if( Describe( p_access, &psz_location ) )
150         goto error;
151
152     /* Handle redirection */
153     if( psz_location && *psz_location )
154     {
155         msg_Dbg( p_access, "redirection to %s", psz_location );
156
157         input_thread_t * p_input = p_access->p_input;
158         input_item_t * p_new_loc;
159
160         if( !p_input )
161         {
162             free( psz_location );
163             goto error;
164         }
165         /** \bug we do not autodelete here */
166         p_new_loc = input_item_New( psz_location, psz_location );
167         input_item_t *p_item = input_GetItem( p_input );
168         input_item_PostSubItem( p_item, p_new_loc );
169
170         vlc_gc_decref( p_new_loc );
171
172         free( psz_location );
173
174         p_access->pf_block = NULL;
175         p_access->pf_read = ReadRedirect;
176         return VLC_SUCCESS;
177     }
178     free( psz_location );
179
180     /* Start playing */
181     if( Start( p_access, 0 ) )
182     {
183         msg_Err( p_access, "cannot start stream" );
184         free( p_sys->p_header );
185         goto error;
186     }
187
188     return VLC_SUCCESS;
189
190 error:
191     vlc_UrlClean( &p_sys->proxy );
192     vlc_UrlClean( &p_sys->url );
193     free( p_sys );
194     return VLC_EGENERIC;
195 }
196
197 /*****************************************************************************
198  * Close: free unused data structures
199  *****************************************************************************/
200 void  MMSHClose ( access_t *p_access )
201 {
202     access_sys_t *p_sys = p_access->p_sys;
203
204     Stop( p_access );
205
206     free( p_sys->p_header );
207
208     vlc_UrlClean( &p_sys->proxy );
209     vlc_UrlClean( &p_sys->url );
210     free( p_sys );
211 }
212
213 /*****************************************************************************
214  * Control:
215  *****************************************************************************/
216 static int Control( access_t *p_access, int i_query, va_list args )
217 {
218     access_sys_t *p_sys = p_access->p_sys;
219     bool   *pb_bool;
220     bool    b_bool;
221     int64_t      *pi_64;
222     int          i_int;
223
224     switch( i_query )
225     {
226         case ACCESS_CAN_SEEK:
227             pb_bool = (bool*)va_arg( args, bool* );
228             *pb_bool = !p_sys->b_broadcast;
229             break;
230
231         case ACCESS_CAN_FASTSEEK:
232             pb_bool = (bool*)va_arg( args, bool* );
233             *pb_bool = false;
234             break;
235
236         case ACCESS_CAN_PAUSE:
237         case ACCESS_CAN_CONTROL_PACE:
238             pb_bool = (bool*)va_arg( args, bool* );
239             *pb_bool = true;
240             break;
241
242         case ACCESS_GET_SIZE:
243         {
244             uint64_t *s = va_arg( args, uint64_t * );
245             if (p_sys->b_broadcast)
246                 return VLC_EGENERIC;
247             *s = p_sys->asfh.i_file_size;
248             return VLC_SUCCESS;
249         }
250
251         case ACCESS_GET_PTS_DELAY:
252             pi_64 = (int64_t*)va_arg( args, int64_t * );
253             *pi_64 = INT64_C(1000)
254                    * var_InheritInteger( p_access, "network-caching" );
255             break;
256
257         case ACCESS_GET_PRIVATE_ID_STATE:
258             i_int = (int)va_arg( args, int );
259             pb_bool = (bool *)va_arg( args, bool * );
260
261             if( (i_int < 0) || (i_int > 127) )
262                 return VLC_EGENERIC;
263             *pb_bool =  p_sys->asfh.stream[i_int].i_selected ? true : false;
264             break;
265
266         case ACCESS_SET_PRIVATE_ID_STATE:
267         {
268             i_int = (int)va_arg( args, int );
269             b_bool = (bool)va_arg( args, int );
270             int i_cat;
271             if( i_int > 127 )
272                 return VLC_EGENERIC;
273             else if ( i_int < 0 )
274             {
275                 /* Deselecting all ES in this category */
276                 assert( !b_bool );
277                 i_cat = -1 * i_int;
278                 if ( i_cat > ES_CATEGORY_COUNT )
279                     return VLC_EGENERIC;
280             }
281             else
282             {
283                 /* Chose another ES */
284                 assert( b_bool );
285                 i_cat = p_sys->asfh.stream[i_int].i_cat;
286             }
287
288             for ( int i=0; i< 128; i++ )
289             {
290                 /* First unselect all streams from the same cat */
291                 if ( i_cat == p_sys->asfh.stream[i].i_cat )
292                     p_sys->asfh.stream[i].i_selected = false;
293             }
294
295             if ( i_int > 0 )
296                 p_sys->asfh.stream[i_int].i_selected = true;
297
298             Stop( p_access );
299             Seek( p_access, p_access->info.i_pos );
300             return VLC_SUCCESS;
301         }
302
303         case ACCESS_SET_PAUSE_STATE:
304             b_bool = (bool)va_arg( args, int );
305             if( b_bool )
306                 Stop( p_access );
307             else
308                 Seek( p_access, p_access->info.i_pos );
309             break;
310
311         default:
312             return VLC_EGENERIC;
313     }
314     return VLC_SUCCESS;
315 }
316
317 /*****************************************************************************
318  * Seek: try to go at the right place
319  *****************************************************************************/
320 static int Seek( access_t *p_access, uint64_t i_pos )
321 {
322     access_sys_t *p_sys = p_access->p_sys;
323     chunk_t      ck;
324     uint64_t     i_offset;
325     uint64_t     i_packet;
326
327     msg_Dbg( p_access, "seeking to %"PRId64, i_pos );
328
329     i_packet = ( i_pos - p_sys->i_header ) / p_sys->asfh.i_min_data_packet_size;
330     i_offset = ( i_pos - p_sys->i_header ) % p_sys->asfh.i_min_data_packet_size;
331
332     Stop( p_access );
333     Start( p_access, i_packet * p_sys->asfh.i_min_data_packet_size );
334
335     for( ;; )
336     {
337         if( GetPacket( p_access, &ck ) )
338             break;
339
340         /* skip headers */
341         if( ck.i_type != 0x4824 )
342             break;
343
344         msg_Warn( p_access, "skipping header" );
345     }
346
347     p_access->info.i_pos = i_pos;
348     p_access->info.b_eof = false;
349     p_sys->i_packet_used += i_offset;
350
351     return VLC_SUCCESS;
352 }
353
354 /*****************************************************************************
355  * ReadRedirect:
356  *****************************************************************************/
357 static ssize_t ReadRedirect( access_t *p_access, uint8_t *p, size_t i_len )
358 {
359     VLC_UNUSED(p_access); VLC_UNUSED(p); VLC_UNUSED(i_len);
360     return 0;
361 }
362
363 /*****************************************************************************
364  * Block:
365  *****************************************************************************/
366 static block_t *Block( access_t *p_access )
367 {
368     access_sys_t *p_sys = p_access->p_sys;
369     const unsigned i_packet_min = p_sys->asfh.i_min_data_packet_size;
370
371     if( p_access->info.i_pos < p_sys->i_start + p_sys->i_header )
372     {
373         const size_t i_offset = p_access->info.i_pos - p_sys->i_start;
374         const size_t i_copy = p_sys->i_header - i_offset;
375
376         block_t *p_block = block_Alloc( i_copy );
377         if( !p_block )
378             return NULL;
379
380         memcpy( p_block->p_buffer, &p_sys->p_header[i_offset], i_copy );
381         p_access->info.i_pos += i_copy;
382         return p_block;
383     }
384     else if( p_sys->i_packet_length > 0 &&
385              p_sys->i_packet_used < __MAX( p_sys->i_packet_length, i_packet_min ) )
386     {
387         size_t i_copy = 0;
388         size_t i_padding = 0;
389
390         if( p_sys->i_packet_used < p_sys->i_packet_length )
391             i_copy = p_sys->i_packet_length - p_sys->i_packet_used;
392         if( __MAX( p_sys->i_packet_used, p_sys->i_packet_length ) < i_packet_min )
393             i_padding = i_packet_min - __MAX( p_sys->i_packet_used, p_sys->i_packet_length );
394
395         block_t *p_block = block_Alloc( i_copy + i_padding );
396         if( !p_block )
397             return NULL;
398
399         if( i_copy > 0 )
400             memcpy( &p_block->p_buffer[0], &p_sys->p_packet[p_sys->i_packet_used], i_copy );
401         if( i_padding > 0 )
402             memset( &p_block->p_buffer[i_copy], 0, i_padding );
403
404         p_sys->i_packet_used += i_copy + i_padding;
405         p_access->info.i_pos += i_copy + i_padding;
406         return p_block;
407
408     }
409
410     chunk_t ck;
411     if( GetPacket( p_access, &ck ) )
412     {
413         int i_ret = -1;
414         if( p_sys->b_broadcast )
415         {
416             if( (ck.i_type == 0x4524) && (ck.i_sequence != 0) )
417                 i_ret = Restart( p_access );
418             else if( ck.i_type == 0x4324 )
419                 i_ret = Reset( p_access );
420         }
421         if( i_ret )
422         {
423             p_access->info.b_eof = true;
424             return 0;
425         }
426     }
427     if( ck.i_type != 0x4424 )
428     {
429         p_sys->i_packet_used = 0;
430         p_sys->i_packet_length = 0;
431     }
432
433     return NULL;
434 }
435
436 /* */
437 static int Restart( access_t *p_access )
438 {
439     access_sys_t *p_sys = p_access->p_sys;
440     char *psz_location = NULL;
441
442     msg_Dbg( p_access, "Restart the stream" );
443     p_sys->i_start = p_access->info.i_pos;
444
445     /* */
446     msg_Dbg( p_access, "stoping the stream" );
447     Stop( p_access );
448
449     /* */
450     msg_Dbg( p_access, "describe the stream" );
451     if( Describe( p_access, &psz_location ) )
452     {
453         msg_Err( p_access, "describe failed" );
454         return VLC_EGENERIC;
455     }
456     free( psz_location );
457
458     /* */
459     if( Start( p_access, 0 ) )
460     {
461         msg_Err( p_access, "Start failed" );
462         return VLC_EGENERIC;
463     }
464     return VLC_SUCCESS;
465 }
466 static int Reset( access_t *p_access )
467 {
468     access_sys_t *p_sys = p_access->p_sys;
469     asf_header_t old_asfh = p_sys->asfh;
470     int i;
471
472     msg_Dbg( p_access, "Reset the stream" );
473     p_sys->i_start = p_access->info.i_pos;
474
475     /* */
476     p_sys->i_packet_sequence = 0;
477     p_sys->i_packet_used = 0;
478     p_sys->i_packet_length = 0;
479     p_sys->p_packet = NULL;
480
481     /* Get the next header FIXME memory loss ? */
482     GetHeader( p_access, -1 );
483     if( p_sys->i_header <= 0 )
484         return VLC_EGENERIC;
485
486     asf_HeaderParse ( &p_sys->asfh,
487                        p_sys->p_header, p_sys->i_header );
488     msg_Dbg( p_access, "packet count=%"PRId64" packet size=%d",
489              p_sys->asfh.i_data_packets_count,
490              p_sys->asfh.i_min_data_packet_size );
491
492     asf_StreamSelect( &p_sys->asfh,
493                        var_InheritInteger( p_access, "mms-maxbitrate" ),
494                        var_InheritBool( p_access, "mms-all" ),
495                        var_InheritBool( p_access, "audio" ),
496                        var_InheritBool( p_access, "video" ) );
497
498     /* Check we have comptible asfh */
499     for( i = 1; i < 128; i++ )
500     {
501         asf_stream_t *p_old = &old_asfh.stream[i];
502         asf_stream_t *p_new = &p_sys->asfh.stream[i];
503
504         if( p_old->i_cat != p_new->i_cat || p_old->i_selected != p_new->i_selected )
505             break;
506     }
507     if( i < 128 )
508     {
509         msg_Warn( p_access, "incompatible asf header, restart" );
510         return Restart( p_access );
511     }
512
513     /* */
514     p_sys->i_packet_used = 0;
515     p_sys->i_packet_length = 0;
516     return VLC_SUCCESS;
517 }
518
519 static int OpenConnection( access_t *p_access )
520 {
521     access_sys_t *p_sys = p_access->p_sys;
522     vlc_url_t    srv = p_sys->b_proxy ? p_sys->proxy : p_sys->url;
523
524     if( ( p_sys->fd = net_ConnectTCP( p_access,
525                                       srv.psz_host, srv.i_port ) ) < 0 )
526     {
527         msg_Err( p_access, "cannot connect to %s:%d",
528                  srv.psz_host, srv.i_port );
529         return VLC_EGENERIC;
530     }
531
532     if( p_sys->b_proxy )
533     {
534         net_Printf( p_access, p_sys->fd, "GET http://%s:%d%s%s%s HTTP/1.0\r\n",
535                     p_sys->url.psz_host, p_sys->url.i_port,
536                     ( (p_sys->url.psz_path == NULL) ||
537                       (*p_sys->url.psz_path == '\0') ) ?
538                          "/" : p_sys->url.psz_path,
539                     p_sys->url.psz_option ? "?" : "",
540                     p_sys->url.psz_option ? p_sys->url.psz_option : "" );
541
542         /* Proxy Authentication */
543         if( p_sys->proxy.psz_username && *p_sys->proxy.psz_username )
544         {
545             char *buf;
546             char *b64;
547
548             if( asprintf( &buf, "%s:%s", p_sys->proxy.psz_username,
549                        p_sys->proxy.psz_password ? p_sys->proxy.psz_password : "" ) == -1 )
550                 return VLC_ENOMEM;
551
552             b64 = vlc_b64_encode( buf );
553             free( buf );
554
555             net_Printf( p_access, p_sys->fd,
556                         "Proxy-Authorization: Basic %s\r\n", b64 );
557             free( b64 );
558         }
559     }
560     else
561     {
562         net_Printf( p_access, p_sys->fd, "GET %s%s%s HTTP/1.0\r\n"
563                     "Host: %s:%d\r\n",
564                     ( (p_sys->url.psz_path == NULL) ||
565                       (*p_sys->url.psz_path == '\0') ) ?
566                             "/" : p_sys->url.psz_path,
567                     p_sys->url.psz_option ? "?" : "",
568                     p_sys->url.psz_option ? p_sys->url.psz_option : "",
569                     p_sys->url.psz_host, p_sys->url.i_port );
570     }
571     return VLC_SUCCESS;
572 }
573
574 /*****************************************************************************
575  * Describe:
576  *****************************************************************************/
577 static int Describe( access_t  *p_access, char **ppsz_location )
578 {
579     access_sys_t *p_sys = p_access->p_sys;
580     char         *psz_location = NULL;
581     int          i_content_length = -1;
582     bool         b_keepalive = false;
583     char         *psz;
584     int          i_code;
585
586     /* Reinit context */
587     p_sys->b_broadcast = true;
588     p_sys->i_request_context = 1;
589     p_sys->i_packet_sequence = 0;
590     p_sys->i_packet_used = 0;
591     p_sys->i_packet_length = 0;
592     p_sys->p_packet = NULL;
593
594     GenerateGuid ( &p_sys->guid );
595
596     if( OpenConnection( p_access ) )
597         return VLC_EGENERIC;
598
599     net_Printf( p_access, p_sys->fd,
600                 "Accept: */*\r\n"
601                 "User-Agent: "MMSH_USER_AGENT"\r\n"
602                 "Pragma: no-cache,rate=1.000000,stream-time=0,stream-offset=0:0,request-context=%d,max-duration=0\r\n"
603                 "Pragma: xClientGUID={"GUID_FMT"}\r\n"
604                 "Connection: Close\r\n",
605                 p_sys->i_request_context++,
606                 GUID_PRINT( p_sys->guid ) );
607
608     if( net_Printf( p_access, p_sys->fd, "\r\n" ) < 0 )
609     {
610         msg_Err( p_access, "failed to send request" );
611         goto error;
612     }
613
614     /* Receive the http header */
615     if( ( psz = net_Gets( p_access, p_sys->fd ) ) == NULL )
616     {
617         msg_Err( p_access, "failed to read answer" );
618         goto error;
619     }
620
621     if( strncmp( psz, "HTTP/1.", 7 ) )
622     {
623         msg_Err( p_access, "invalid HTTP reply '%s'", psz );
624         free( psz );
625         goto error;
626     }
627     i_code = atoi( &psz[9] );
628     if( i_code >= 400 )
629     {
630         msg_Err( p_access, "error: %s", psz );
631         free( psz );
632         goto error;
633     }
634
635     msg_Dbg( p_access, "HTTP reply '%s'", psz );
636     free( psz );
637     for( ;; )
638     {
639         char *psz = net_Gets( p_access, p_sys->fd );
640         char *p;
641
642         if( psz == NULL )
643         {
644             msg_Err( p_access, "failed to read answer" );
645             free( psz_location );
646             goto error;
647         }
648
649         if( *psz == '\0' )
650         {
651             free( psz );
652             break;
653         }
654
655         if( ( p = strchr( psz, ':' ) ) == NULL )
656         {
657             msg_Err( p_access, "malformed header line: %s", psz );
658             free( psz );
659             free( psz_location );
660             goto error;
661         }
662         *p++ = '\0';
663         while( *p == ' ' ) p++;
664
665         /* FIXME FIXME test Content-Type to see if it's a plain stream or an
666          * asx FIXME */
667         if( !strcasecmp( psz, "Pragma" ) )
668         {
669             if( strstr( p, "features" ) )
670             {
671                 /* FIXME, it is a bit badly done here ..... */
672                 if( strstr( p, "broadcast" ) )
673                 {
674                     msg_Dbg( p_access, "stream type = broadcast" );
675                     p_sys->b_broadcast = true;
676                 }
677                 else if( strstr( p, "seekable" ) )
678                 {
679                     msg_Dbg( p_access, "stream type = seekable" );
680                     p_sys->b_broadcast = false;
681                 }
682                 else
683                 {
684                     msg_Warn( p_access, "unknow stream types (%s)", p );
685                     p_sys->b_broadcast = false;
686                 }
687             }
688         }
689         else if( !strcasecmp( psz, "Location" ) )
690         {
691             free( psz_location );
692             psz_location = strdup( p );
693         }
694         else if( !strcasecmp( psz, "Content-Length" ) )
695         {
696             i_content_length = atoi( p );
697             msg_Dbg( p_access, "content-length = %d", i_content_length );
698         }
699         else if( !strcasecmp( psz, "Connection" ) )
700         {
701             if( strcasestr( p, "Keep-Alive" ) )
702             {
703                 msg_Dbg( p_access, "Keep-Alive header found" );
704                 b_keepalive = true;
705             }
706         }
707
708
709         free( psz );
710     }
711
712     /* Handle the redirection */
713     if( ( (i_code == 301) || (i_code == 302) ||
714           (i_code == 303) || (i_code == 307) ) &&
715         psz_location && *psz_location )
716     {
717         msg_Dbg( p_access, "redirection to %s", psz_location );
718         net_Close( p_sys->fd ); p_sys->fd = -1;
719
720         *ppsz_location = psz_location;
721         return VLC_SUCCESS;
722     }
723     free( psz_location );
724
725     /* Read the asf header */
726     GetHeader( p_access, b_keepalive ? i_content_length : -1);
727     if( p_sys->i_header <= 0 )
728     {
729         msg_Err( p_access, "header size == 0" );
730         goto error;
731     }
732     /* close this connection */
733     net_Close( p_sys->fd );
734     p_sys->fd = -1;
735
736     /* *** parse header and get stream and their id *** */
737     /* get all streams properties,
738      *
739      * TODO : stream bitrates properties(optional)
740      *        and bitrate mutual exclusion(optional) */
741     asf_HeaderParse ( &p_sys->asfh,
742                        p_sys->p_header, p_sys->i_header );
743     msg_Dbg( p_access, "packet count=%"PRId64" packet size=%d",
744              p_sys->asfh.i_data_packets_count,
745              p_sys->asfh.i_min_data_packet_size );
746
747     if( p_sys->asfh.i_min_data_packet_size <= 0 )
748         goto error;
749
750     asf_StreamSelect( &p_sys->asfh,
751                        var_InheritInteger( p_access, "mms-maxbitrate" ),
752                        var_InheritBool( p_access, "mms-all" ),
753                        var_InheritBool( p_access, "audio" ),
754                        var_InheritBool( p_access, "video" ) );
755     return VLC_SUCCESS;
756
757 error:
758     if( p_sys->fd > 0 )
759     {
760         net_Close( p_sys->fd  );
761         p_sys->fd = -1;
762     }
763     return VLC_EGENERIC;
764 }
765
766 static void GetHeader( access_t *p_access, int i_content_length )
767 {
768     access_sys_t *p_sys = p_access->p_sys;
769     int i_read_content = 0;
770
771     /* Read the asf header */
772     p_sys->i_header = 0;
773     free( p_sys->p_header  );
774     p_sys->p_header = NULL;
775     for( ;; )
776     {
777         chunk_t ck;
778         if( (i_content_length >= 0 && i_read_content >= i_content_length) || GetPacket( p_access, &ck ) || ck.i_type != 0x4824 )
779             break;
780
781         i_read_content += (4+ck.i_size);
782
783         if( ck.i_data > 0 )
784         {
785             p_sys->i_header += ck.i_data;
786             p_sys->p_header = xrealloc( p_sys->p_header, p_sys->i_header );
787             memcpy( &p_sys->p_header[p_sys->i_header - ck.i_data],
788                     ck.p_data, ck.i_data );
789         }
790     }
791     msg_Dbg( p_access, "complete header size=%d", p_sys->i_header );
792 }
793
794
795 /*****************************************************************************
796  * Start stream
797  ****************************************************************************/
798 static int Start( access_t *p_access, uint64_t i_pos )
799 {
800     access_sys_t *p_sys = p_access->p_sys;
801     int  i_streams = 0;
802     int  i_streams_selected = 0;
803     int  i;
804     char *psz = NULL;
805
806     msg_Dbg( p_access, "starting stream" );
807
808     for( i = 1; i < 128; i++ )
809     {
810         if( p_sys->asfh.stream[i].i_cat == ASF_CODEC_TYPE_UNKNOWN )
811             continue;
812         i_streams++;
813         if( p_sys->asfh.stream[i].i_selected )
814             i_streams_selected++;
815     }
816     if( i_streams_selected <= 0 )
817     {
818         msg_Err( p_access, "no stream selected" );
819         return VLC_EGENERIC;
820     }
821
822     if( OpenConnection( p_access ) )
823         return VLC_EGENERIC;
824
825     net_Printf( p_access, p_sys->fd,
826                 "Accept: */*\r\n"
827                 "User-Agent: "MMSH_USER_AGENT"\r\n" );
828     if( p_sys->b_broadcast )
829     {
830         net_Printf( p_access, p_sys->fd,
831                     "Pragma: no-cache,rate=1.000000,request-context=%d\r\n",
832                     p_sys->i_request_context++ );
833     }
834     else
835     {
836         net_Printf( p_access, p_sys->fd,
837                     "Pragma: no-cache,rate=1.000000,stream-time=0,stream-offset=%u:%u,request-context=%d,max-duration=0\r\n",
838                     (uint32_t)((i_pos >> 32)&0xffffffff),
839                     (uint32_t)(i_pos&0xffffffff),
840                     p_sys->i_request_context++ );
841     }
842     net_Printf( p_access, p_sys->fd,
843                 "Pragma: xPlayStrm=1\r\n"
844                 "Pragma: xClientGUID={"GUID_FMT"}\r\n"
845                 "Pragma: stream-switch-count=%d\r\n"
846                 "Pragma: stream-switch-entry=",
847                 GUID_PRINT( p_sys->guid ),
848                 i_streams);
849
850     for( i = 1; i < 128; i++ )
851     {
852         if( p_sys->asfh.stream[i].i_cat != ASF_CODEC_TYPE_UNKNOWN )
853         {
854             int i_select = 2;
855             if( p_sys->asfh.stream[i].i_selected )
856             {
857                 i_select = 0;
858             }
859             net_Printf( p_access, p_sys->fd, "ffff:%x:%d ", i, i_select );
860         }
861     }
862     net_Printf( p_access, p_sys->fd, "\r\n" );
863     net_Printf( p_access, p_sys->fd, "Connection: Close\r\n" );
864
865     if( net_Printf( p_access, p_sys->fd, "\r\n" ) < 0 )
866     {
867         msg_Err( p_access, "failed to send request" );
868         return VLC_EGENERIC;
869     }
870
871     psz = net_Gets( p_access, p_sys->fd );
872     if( psz == NULL )
873     {
874         msg_Err( p_access, "cannot read data 0" );
875         return VLC_EGENERIC;
876     }
877
878     if( atoi( &psz[9] ) >= 400 )
879     {
880         msg_Err( p_access, "error: %s", psz );
881         free( psz );
882         return VLC_EGENERIC;
883     }
884     msg_Dbg( p_access, "HTTP reply '%s'", psz );
885     free( psz );
886
887     /* FIXME check HTTP code */
888     for( ;; )
889     {
890         char *psz = net_Gets( p_access, p_sys->fd );
891         if( psz == NULL )
892         {
893             msg_Err( p_access, "cannot read data 1" );
894             return VLC_EGENERIC;
895         }
896         if( *psz == '\0' )
897         {
898             free( psz );
899             break;
900         }
901         msg_Dbg( p_access, "%s", psz );
902         free( psz );
903     }
904
905     p_sys->i_packet_used   = 0;
906     p_sys->i_packet_length = 0;
907
908     return VLC_SUCCESS;
909 }
910
911 /*****************************************************************************
912  * closing stream
913  *****************************************************************************/
914 static void Stop( access_t *p_access )
915 {
916     access_sys_t *p_sys = p_access->p_sys;
917
918     msg_Dbg( p_access, "closing stream" );
919     if( p_sys->fd > 0 )
920     {
921         net_Close( p_sys->fd );
922         p_sys->fd = -1;
923     }
924 }
925
926 /*****************************************************************************
927  * get packet
928  *****************************************************************************/
929 static int GetPacket( access_t * p_access, chunk_t *p_ck )
930 {
931     access_sys_t *p_sys = p_access->p_sys;
932     int restsize;
933
934     /* chunk_t */
935     memset( p_ck, 0, sizeof( chunk_t ) );
936
937     /* Read the chunk header */
938     /* Some headers are short, like 0x4324. Reading 12 bytes will cause us
939      * to lose synchronization with the stream. Just read to the length
940      * (4 bytes), decode and then read up to 8 additional bytes to get the
941      * entire header.
942      */
943     if( net_Read( p_access, p_sys->fd, p_sys->buffer, 4 ) < 4 )
944     {
945        msg_Err( p_access, "cannot read data 2" );
946        return VLC_EGENERIC;
947     }
948
949     p_ck->i_type = GetWLE( p_sys->buffer);
950     p_ck->i_size = GetWLE( p_sys->buffer + 2);
951
952     restsize = p_ck->i_size;
953     if( restsize > 8 )
954         restsize = 8;
955
956     if( net_Read( p_access, p_sys->fd, p_sys->buffer + 4, restsize ) < restsize )
957     {
958         msg_Err( p_access, "cannot read data 3" );
959         return VLC_EGENERIC;
960     }
961     p_ck->i_sequence  = GetDWLE( p_sys->buffer + 4);
962     p_ck->i_unknown   = GetWLE( p_sys->buffer + 8);
963
964     /* Set i_size2 to 8 if this header was short, since a real value won't be
965      * present in the buffer. Using 8 avoid reading additional data for the
966      * packet.
967      */
968     if( restsize < 8 )
969         p_ck->i_size2 = 8;
970     else
971         p_ck->i_size2 = GetWLE( p_sys->buffer + 10);
972
973     p_ck->p_data      = p_sys->buffer + 12;
974     p_ck->i_data      = p_ck->i_size2 - 8;
975
976     if( p_ck->i_type == 0x4524 )   // $E (End-of-Stream Notification) Packet
977     {
978         if( p_ck->i_sequence == 0 )
979         {
980             msg_Warn( p_access, "EOF" );
981             return VLC_EGENERIC;
982         }
983         else
984         {
985             msg_Warn( p_access, "next stream following" );
986             return VLC_EGENERIC;
987         }
988     }
989     else if( p_ck->i_type == 0x4324 ) // $C (Stream Change Notification) Packet
990     {
991         /* 0x4324 is CHUNK_TYPE_RESET: a new stream will follow with a sequence of 0 */
992         msg_Warn( p_access, "next stream following (reset) seq=%d", p_ck->i_sequence  );
993         return VLC_EGENERIC;
994     }
995     else if( (p_ck->i_type != 0x4824) && (p_ck->i_type != 0x4424) )
996     {
997         /* Unsupported so far:
998          * $M (Metadata) Packet               0x4D24
999          * $P (Packet-Pair) Packet            0x5024
1000          * $T (Test Data Notification) Packet 0x5424
1001          */
1002         msg_Err( p_access, "unrecognized chunk FATAL (0x%x)", p_ck->i_type );
1003         return VLC_EGENERIC;
1004     }
1005
1006     if( (p_ck->i_data > 0) &&
1007         (net_Read( p_access, p_sys->fd, &p_sys->buffer[12],
1008                    p_ck->i_data ) < p_ck->i_data) )
1009     {
1010         msg_Err( p_access, "cannot read data 4" );
1011         return VLC_EGENERIC;
1012     }
1013
1014 #if 0
1015     if( (p_sys->i_packet_sequence != 0) &&
1016         (p_ck->i_sequence != p_sys->i_packet_sequence) )
1017     {
1018         msg_Warn( p_access, "packet lost ? (%d != %d)", p_ck->i_sequence, p_sys->i_packet_sequence );
1019     }
1020 #endif
1021
1022     p_sys->i_packet_sequence = p_ck->i_sequence + 1;
1023     p_sys->i_packet_used   = 0;
1024     p_sys->i_packet_length = p_ck->i_data;
1025     p_sys->p_packet        = p_ck->p_data;
1026
1027     return VLC_SUCCESS;
1028 }