stream/asf_streaming.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <string.h>
   4 #include <unistd.h>
   5 #include <errno.h>
   6 #include <limits.h>
   7
   8 #include "config.h"
   9 #include "mp_msg.h"
  10 #include "help_mp.h"
  11 #include "options.h"
  12
  13 #if HAVE_WINSOCK2_H
  14 #include <winsock2.h>
  15 #endif
  16
  17 #include "url.h"
  18 #include "http.h"
  19 #include "libmpdemux/asf.h"
  20
  21 #include "stream.h"
  22 #include "libmpdemux/demuxer.h"
  23
  24 #include "network.h"
  25 #include "tcp.h"
  26
  27 #include "ffmpeg_files/intreadwrite.h"
  28
  29 #include "libmpdemux/asfguid.h"
  30
  31 extern int network_bandwidth;
  32
  33 int asf_mmst_streaming_start( stream_t *stream );
  34 static int asf_http_streaming_start(stream_t *stream, int *demuxer_type);
  35
  36 static int asf_read_wrapper(int fd, void *buffer, int len, streaming_ctrl_t *stream_ctrl) {
  37     uint8_t *buf = buffer;
  38     while (len > 0) {
  39         int got = nop_streaming_read(fd, buf, len, stream_ctrl);
  40         if (got <= 0) {
  41             mp_tmsg(MSGT_NETWORK, MSGL_ERR, "Error while reading network stream.\n");
  42             return got;
  43         }
  44         buf += got;
  45         len -= got;
  46     }
  47     return 1;
  48 }
  49
  50 // We can try several protocol for asf streaming
  51 // * first the UDP protcol, if there is a firewall, UDP
  52 //   packets will not come back, so the mmsu will fail.
  53 // * Then we can try TCP, but if there is a proxy for
  54 //   internet connection, the TCP connection will not get
  55 //   through
  56 // * Then we can try HTTP.
  57 //
  58 // Note: Using  WMP sequence  MMSU then MMST and then HTTP.
  59
  60 static int asf_streaming_start( stream_t *stream, int *demuxer_type) {
  61     char *proto = stream->streaming_ctrl->url->protocol;
  62     int fd = -1;
  63     int port = stream->streaming_ctrl->url->port;
  64
  65     // Is protocol mms or mmsu?
  66     if (!strcasecmp(proto, "mmsu") || !strcasecmp(proto, "mms"))
  67     {
  68                 mp_msg(MSGT_NETWORK,MSGL_V,"Trying ASF/UDP...\n");
  69                 //fd = asf_mmsu_streaming_start( stream );
  70                 if( fd>-1 ) return fd; //mmsu support is not implemented yet - using this code
  71                 mp_msg(MSGT_NETWORK,MSGL_V,"  ===> ASF/UDP failed\n");
  72                 if( fd==-2 ) return -1;
  73         }
  74
  75     //Is protocol mms or mmst?
  76     if (!strcasecmp(proto, "mmst") || !strcasecmp(proto, "mms"))
  77     {
  78                 mp_msg(MSGT_NETWORK,MSGL_V,"Trying ASF/TCP...\n");
  79                 fd = asf_mmst_streaming_start( stream );
  80                 stream->streaming_ctrl->url->port = port;
  81                 if( fd>-1 ) return fd;
  82                 mp_msg(MSGT_NETWORK,MSGL_V,"  ===> ASF/TCP failed\n");
  83                 if( fd==-2 ) return -1;
  84         }
  85
  86     //Is protocol http, http_proxy, or mms?
  87     if (!strcasecmp(proto, "http_proxy") || !strcasecmp(proto, "http") ||
  88         !strcasecmp(proto, "mms") || !strcasecmp(proto, "mmsh") ||
  89         !strcasecmp(proto, "mmshttp"))
  90     {
  91                 mp_msg(MSGT_NETWORK,MSGL_V,"Trying ASF/HTTP...\n");
  92                 fd = asf_http_streaming_start( stream, demuxer_type );
  93                 stream->streaming_ctrl->url->port = port;
  94                 if( fd>-1 ) return fd;
  95                 mp_msg(MSGT_NETWORK,MSGL_V,"  ===> ASF/HTTP failed\n");
  96                 if( fd==-2 ) return -1;
  97         }
  98
  99     //everything failed
 100         return -1;
 101 }
 102
 103 static int asf_streaming(ASF_stream_chunck_t *stream_chunck, int *drop_packet ) {
 104 /*
 105 printf("ASF stream chunck size=%d\n", stream_chunck->size);
 106 printf("length: %d\n", length );
 107 printf("0x%02X\n", stream_chunck->type );
 108 */
 109         if( drop_packet!=NULL ) *drop_packet = 0;
 110
 111         if( stream_chunck->size<8 ) {
 112                 mp_tmsg(MSGT_NETWORK,MSGL_ERR,"Ahhhh, stream_chunck size is too small: %d\n", stream_chunck->size);
 113                 return -1;
 114         }
 115         if( stream_chunck->size!=stream_chunck->size_confirm ) {
 116                 mp_tmsg(MSGT_NETWORK,MSGL_ERR,"size_confirm mismatch!: %d %d\n", stream_chunck->size, stream_chunck->size_confirm);
 117                 return -1;
 118         }
 119 /*
 120         printf("  type: 0x%02X\n", stream_chunck->type );
 121         printf("  size: %d (0x%02X)\n", stream_chunck->size, stream_chunck->size );
 122         printf("  sequence_number: 0x%04X\n", stream_chunck->sequence_number );
 123         printf("  unknown: 0x%02X\n", stream_chunck->unknown );
 124         printf("  size_confirm: 0x%02X\n", stream_chunck->size_confirm );
 125 */
 126         switch(stream_chunck->type) {
 127                 case ASF_STREAMING_CLEAR:       // $C   Clear ASF configuration
 128                         mp_msg(MSGT_NETWORK,MSGL_V,"=====> Clearing ASF stream configuration!\n");
 129                         if( drop_packet!=NULL ) *drop_packet = 1;
 130                         return stream_chunck->size;
 131                         break;
 132                 case ASF_STREAMING_DATA:        // $D   Data follows
 133 //                      printf("=====> Data follows\n");
 134                         break;
 135                 case ASF_STREAMING_END_TRANS:   // $E   Transfer complete
 136                         mp_msg(MSGT_NETWORK,MSGL_V,"=====> Transfer complete\n");
 137                         if( drop_packet!=NULL ) *drop_packet = 1;
 138                         return stream_chunck->size;
 139                         break;
 140                 case ASF_STREAMING_HEADER:      // $H   ASF header chunk follows
 141                         mp_msg(MSGT_NETWORK,MSGL_V,"=====> ASF header chunk follows\n");
 142                         break;
 143                 default:
 144                         mp_msg(MSGT_NETWORK,MSGL_V,"=====> Unknown stream type 0x%x\n", stream_chunck->type );
 145         }
 146         return stream_chunck->size+4;
 147 }
 148
 149 static void close_s(stream_t *stream) {
 150         closesocket(stream->fd);
 151         stream->fd=-1;
 152 }
 153
 154 static int max_idx(int s_count, int *s_rates, int bound) {
 155   int i, best = -1, rate = -1;
 156   for (i = 0; i < s_count; i++) {
 157     if (s_rates[i] > rate && s_rates[i] <= bound) {
 158       rate = s_rates[i];
 159       best = i;
 160     }
 161   }
 162   return best;
 163 }
 164
 165 static int asf_streaming_parse_header(int fd, streaming_ctrl_t* streaming_ctrl) {
 166   ASF_stream_chunck_t chunk;
 167   asf_http_streaming_ctrl_t* asf_ctrl = streaming_ctrl->data;
 168   char* buffer=NULL, *chunk_buffer=NULL;
 169   int i,r,size,pos = 0;
 170   int start;
 171   int buffer_size = 0;
 172   int chunk_size2read = 0;
 173   int bw = streaming_ctrl->bandwidth;
 174   int *v_rates = NULL, *a_rates = NULL;
 175   int v_rate = 0, a_rate = 0, a_idx = -1, v_idx = -1;
 176
 177   if(asf_ctrl == NULL) return -1;
 178
 179         // The ASF header can be in several network chunks. For example if the content description
 180         // is big, the ASF header will be split in 2 network chunk.
 181         // So we need to retrieve all the chunk before starting to parse the header.
 182   do {
 183           if (asf_read_wrapper(fd, &chunk, sizeof(ASF_stream_chunck_t), streaming_ctrl) <= 0)
 184             return -1;
 185           // Endian handling of the stream chunk
 186           le2me_ASF_stream_chunck_t(&chunk);
 187           size = asf_streaming( &chunk, &r) - sizeof(ASF_stream_chunck_t);
 188           if(r) mp_tmsg(MSGT_NETWORK,MSGL_WARN,"Warning: drop header ????\n");
 189           if(size < 0){
 190             mp_tmsg(MSGT_NETWORK,MSGL_ERR,"Error while parsing chunk header\n");
 191                 return -1;
 192           }
 193           if (chunk.type != ASF_STREAMING_HEADER) {
 194             mp_tmsg(MSGT_NETWORK,MSGL_ERR,"Didn't get a header as first chunk !!!!\n");
 195             return -1;
 196           }
 197
 198           // audit: do not overflow buffer_size
 199           if (size > SIZE_MAX - buffer_size) return -1;
 200           buffer = malloc(size+buffer_size);
 201           if(buffer == NULL) {
 202             mp_tmsg(MSGT_NETWORK,MSGL_FATAL,"Error: Can't allocate %d bytes buffer.\n",size+buffer_size);
 203             return -1;
 204           }
 205           if( chunk_buffer!=NULL ) {
 206                 memcpy( buffer, chunk_buffer, buffer_size );
 207                 free( chunk_buffer );
 208           }
 209           chunk_buffer = buffer;
 210           buffer += buffer_size;
 211           buffer_size += size;
 212
 213           if (asf_read_wrapper(fd, buffer, size, streaming_ctrl) <= 0)
 214             return -1;
 215
 216           if( chunk_size2read==0 ) {
 217                 ASF_header_t *asfh = (ASF_header_t *)buffer;
 218                 if(size < (int)sizeof(ASF_header_t)) {
 219                     mp_tmsg(MSGT_NETWORK,MSGL_ERR,"Error: Chunk is too small.\n");
 220                     return -1;
 221                 } else mp_msg(MSGT_NETWORK,MSGL_DBG2,"Got chunk\n");
 222                 chunk_size2read = AV_RL64(&asfh->objh.size);
 223                 mp_msg(MSGT_NETWORK,MSGL_DBG2,"Size 2 read=%d\n", chunk_size2read);
 224           }
 225   } while( buffer_size<chunk_size2read);
 226   buffer = chunk_buffer;
 227   size = buffer_size;
 228
 229   start = sizeof(ASF_header_t);
 230
 231   pos = find_asf_guid(buffer, asf_file_header_guid, start, size);
 232   if (pos >= 0) {
 233     ASF_file_header_t *fileh = (ASF_file_header_t *) &buffer[pos];
 234     pos += sizeof(ASF_file_header_t);
 235     if (pos > size) goto len_err_out;
 236 /*
 237       if(fileh.packetsize != fileh.packetsize2) {
 238         printf("Error packetsize check don't match\n");
 239         return -1;
 240       }
 241 */
 242       asf_ctrl->packet_size = AV_RL32(&fileh->max_packet_size);
 243       // before playing.
 244       // preroll: time in ms to bufferize before playing
 245       streaming_ctrl->prebuffer_size = (unsigned int)(((double)fileh->preroll/1000.0)*((double)fileh->max_bitrate/8.0));
 246   }
 247
 248   pos = start;
 249   while ((pos = find_asf_guid(buffer, asf_stream_header_guid, pos, size)) >= 0)
 250   {
 251     ASF_stream_header_t *streamh = (ASF_stream_header_t *)&buffer[pos];
 252     pos += sizeof(ASF_stream_header_t);
 253     if (pos > size) goto len_err_out;
 254       switch(ASF_LOAD_GUID_PREFIX(streamh->type)) {
 255       case 0xF8699E40 : // audio stream
 256         if(asf_ctrl->audio_streams == NULL){
 257           asf_ctrl->audio_streams = malloc(sizeof(int));
 258           asf_ctrl->n_audio = 1;
 259         } else {
 260           asf_ctrl->n_audio++;
 261           asf_ctrl->audio_streams = realloc(asf_ctrl->audio_streams,
 262                                                      asf_ctrl->n_audio*sizeof(int));
 263         }
 264         asf_ctrl->audio_streams[asf_ctrl->n_audio-1] = AV_RL16(&streamh->stream_no);
 265         break;
 266       case 0xBC19EFC0 : // video stream
 267         if(asf_ctrl->video_streams == NULL){
 268           asf_ctrl->video_streams = malloc(sizeof(int));
 269           asf_ctrl->n_video = 1;
 270         } else {
 271           asf_ctrl->n_video++;
 272           asf_ctrl->video_streams = realloc(asf_ctrl->video_streams,
 273                                                      asf_ctrl->n_video*sizeof(int));
 274         }
 275         asf_ctrl->video_streams[asf_ctrl->n_video-1] = AV_RL16(&streamh->stream_no);
 276         break;
 277       }
 278   }
 279
 280   // always allocate to avoid lots of ifs later
 281   v_rates = calloc(asf_ctrl->n_video, sizeof(int));
 282   a_rates = calloc(asf_ctrl->n_audio, sizeof(int));
 283
 284   pos = find_asf_guid(buffer, asf_stream_group_guid, start, size);
 285   if (pos >= 0) {
 286     // stream bitrate properties object
 287         int stream_count;
 288         char *ptr = &buffer[pos];
 289         char *end = &buffer[size];
 290
 291         mp_msg(MSGT_NETWORK, MSGL_V, "Stream bitrate properties object\n");
 292                 if (ptr + 2 > end) goto len_err_out;
 293                 stream_count = AV_RL16(ptr);
 294                 ptr += 2;
 295                 mp_msg(MSGT_NETWORK, MSGL_V, " stream count=[0x%x][%u]\n",
 296                         stream_count, stream_count );
 297                 for( i=0 ; i<stream_count ; i++ ) {
 298                         uint32_t rate;
 299                         int id;
 300                         int j;
 301                         if (ptr + 6 > end) goto len_err_out;
 302                         id = AV_RL16(ptr);
 303                         ptr += 2;
 304                         rate = AV_RL32(ptr);
 305                         ptr += 4;
 306                         mp_msg(MSGT_NETWORK, MSGL_V,
 307                                 "  stream id=[0x%x][%u]\n", id, id);
 308                         mp_msg(MSGT_NETWORK, MSGL_V,
 309                                 "  max bitrate=[0x%x][%u]\n", rate, rate);
 310                         for (j = 0; j < asf_ctrl->n_video; j++) {
 311                           if (id == asf_ctrl->video_streams[j]) {
 312                             mp_msg(MSGT_NETWORK, MSGL_V, "  is video stream\n");
 313                             v_rates[j] = rate;
 314                             break;
 315                           }
 316                         }
 317                         for (j = 0; j < asf_ctrl->n_audio; j++) {
 318                           if (id == asf_ctrl->audio_streams[j]) {
 319                             mp_msg(MSGT_NETWORK, MSGL_V, "  is audio stream\n");
 320                             a_rates[j] = rate;
 321                             break;
 322                           }
 323                         }
 324                 }
 325   }
 326   free(buffer);
 327
 328   // automatic stream selection based on bandwidth
 329   if (bw == 0) bw = INT_MAX;
 330   mp_msg(MSGT_NETWORK, MSGL_V, "Max bandwidth set to %d\n", bw);
 331
 332   if (asf_ctrl->n_audio) {
 333     // find lowest-bitrate audio stream
 334     a_rate = a_rates[0];
 335     a_idx = 0;
 336     for (i = 0; i < asf_ctrl->n_audio; i++) {
 337       if (a_rates[i] < a_rate) {
 338         a_rate = a_rates[i];
 339         a_idx = i;
 340       }
 341     }
 342     if (max_idx(asf_ctrl->n_video, v_rates, bw - a_rate) < 0) {
 343       // both audio and video are not possible, try video only next
 344       a_idx = -1;
 345       a_rate = 0;
 346     }
 347   }
 348   // find best video stream
 349   v_idx = max_idx(asf_ctrl->n_video, v_rates, bw - a_rate);
 350   if (v_idx >= 0)
 351     v_rate = v_rates[v_idx];
 352
 353   // find best audio stream
 354   a_idx = max_idx(asf_ctrl->n_audio, a_rates, bw - v_rate);
 355
 356   free(v_rates);
 357   free(a_rates);
 358
 359   if (a_idx < 0 && v_idx < 0) {
 360     mp_tmsg(MSGT_NETWORK, MSGL_FATAL, "Bandwidth too small, file cannot be played!\n");
 361     return -1;
 362   }
 363
 364   if (*streaming_ctrl->audio_id_ptr > 0)
 365     // a audio stream was forced
 366     asf_ctrl->audio_id = *streaming_ctrl->audio_id_ptr;
 367   else if (a_idx >= 0)
 368     asf_ctrl->audio_id = asf_ctrl->audio_streams[a_idx];
 369   else if (asf_ctrl->n_audio) {
 370     mp_tmsg(MSGT_NETWORK, MSGL_WARN, "Bandwidth too small, deselected audio stream.\n");
 371     *streaming_ctrl->audio_id_ptr = -2;
 372   }
 373
 374   if (*streaming_ctrl->video_id_ptr > 0)
 375     // a video stream was forced
 376     asf_ctrl->video_id = *streaming_ctrl->video_id_ptr;
 377   else if (v_idx >= 0)
 378     asf_ctrl->video_id = asf_ctrl->video_streams[v_idx];
 379   else if (asf_ctrl->n_video) {
 380     mp_tmsg(MSGT_NETWORK, MSGL_WARN, "Bandwidth too small, deselected video stream.\n");
 381     *streaming_ctrl->video_id_ptr = -2;
 382   }
 383
 384   return 1;
 385
 386 len_err_out:
 387   mp_tmsg(MSGT_NETWORK, MSGL_FATAL, "Invalid length in ASF header!\n");
 388   if (buffer) free(buffer);
 389   if (v_rates) free(v_rates);
 390   if (a_rates) free(a_rates);
 391   return -1;
 392 }
 393
 394 static int asf_http_streaming_read( int fd, char *buffer, int size, streaming_ctrl_t *streaming_ctrl ) {
 395   static ASF_stream_chunck_t chunk;
 396   int read,chunk_size = 0;
 397   static int rest = 0, drop_chunk = 0, waiting = 0;
 398   asf_http_streaming_ctrl_t *asf_http_ctrl = (asf_http_streaming_ctrl_t*)streaming_ctrl->data;
 399
 400   while(1) {
 401     if (rest == 0 && waiting == 0) {
 402       if (asf_read_wrapper(fd, &chunk, sizeof(ASF_stream_chunck_t), streaming_ctrl) <= 0)
 403         return -1;
 404
 405       // Endian handling of the stream chunk
 406       le2me_ASF_stream_chunck_t(&chunk);
 407       chunk_size = asf_streaming( &chunk, &drop_chunk );
 408       if(chunk_size < 0) {
 409         mp_tmsg(MSGT_NETWORK,MSGL_ERR,"Error while parsing chunk header\n");
 410         return -1;
 411       }
 412       chunk_size -= sizeof(ASF_stream_chunck_t);
 413
 414       if(chunk.type != ASF_STREAMING_HEADER && (!drop_chunk)) {
 415         if (asf_http_ctrl->packet_size < chunk_size) {
 416           mp_tmsg(MSGT_NETWORK,MSGL_ERR,"Error: chunk_size > packet_size\n");
 417           return -1;
 418         }
 419         waiting = asf_http_ctrl->packet_size;
 420       } else {
 421         waiting = chunk_size;
 422       }
 423
 424     } else if (rest){
 425       chunk_size = rest;
 426       rest = 0;
 427     }
 428
 429     read = 0;
 430     if ( waiting >= chunk_size) {
 431       if (chunk_size > size){
 432         rest = chunk_size - size;
 433         chunk_size = size;
 434       }
 435       if (asf_read_wrapper(fd, buffer, chunk_size, streaming_ctrl) <= 0)
 436         return -1;
 437       read = chunk_size;
 438       waiting -= read;
 439       if (drop_chunk) continue;
 440     }
 441     if (rest == 0 && waiting > 0 && size-read > 0) {
 442       int s = FFMIN(waiting,size-read);
 443       memset(buffer+read,0,s);
 444       waiting -= s;
 445       read += s;
 446     }
 447     break;
 448   }
 449
 450   return read;
 451 }
 452
 453 static int asf_http_streaming_seek( int fd, off_t pos, streaming_ctrl_t *streaming_ctrl ) {
 454         return -1;
 455         // to shut up gcc warning
 456         fd++;
 457         pos++;
 458         streaming_ctrl=NULL;
 459 }
 460
 461 static int asf_header_check( HTTP_header_t *http_hdr ) {
 462         ASF_obj_header_t *objh;
 463         if( http_hdr==NULL ) return -1;
 464         if( http_hdr->body==NULL || http_hdr->body_size<sizeof(ASF_obj_header_t) ) return -1;
 465
 466         objh = (ASF_obj_header_t*)http_hdr->body;
 467         if( ASF_LOAD_GUID_PREFIX(objh->guid)==0x75B22630 ) return 0;
 468         return -1;
 469 }
 470
 471 static int asf_http_streaming_type(char *content_type, char *features, HTTP_header_t *http_hdr ) {
 472         if( content_type==NULL ) return ASF_Unknown_e;
 473         if(     !strcasecmp(content_type, "application/octet-stream") ||
 474                 !strcasecmp(content_type, "application/vnd.ms.wms-hdr.asfv1") ||        // New in Corona, first request
 475                 !strcasecmp(content_type, "application/x-mms-framed") ||                // New in Corana, second request
 476                 !strcasecmp(content_type, "video/x-ms-wmv") ||
 477                 !strcasecmp(content_type, "video/x-ms-asf")) {
 478
 479                 if( strstr(features, "broadcast") ) {
 480                         mp_msg(MSGT_NETWORK,MSGL_V,"=====> ASF Live stream\n");
 481                         return ASF_Live_e;
 482                 } else {
 483                         mp_msg(MSGT_NETWORK,MSGL_V,"=====> ASF Prerecorded\n");
 484                         return ASF_Prerecorded_e;
 485                 }
 486         } else {
 487                 // Ok in a perfect world, web servers should be well configured
 488                 // so we could used mime type to know the stream type,
 489                 // but guess what? All of them are not well configured.
 490                 // So we have to check for an asf header :(, but it works :p
 491                 if( http_hdr->body_size>sizeof(ASF_obj_header_t) ) {
 492                         if( asf_header_check( http_hdr )==0 ) {
 493                                 mp_msg(MSGT_NETWORK,MSGL_V,"=====> ASF Plain text\n");
 494                                 return ASF_PlainText_e;
 495                         } else if( (!strcasecmp(content_type, "text/html")) ) {
 496                                 mp_msg(MSGT_NETWORK,MSGL_V,"=====> HTML, MPlayer is not a browser...yet!\n");
 497                                 return ASF_Unknown_e;
 498                         } else {
 499                                 mp_msg(MSGT_NETWORK,MSGL_V,"=====> ASF Redirector\n");
 500                                 return ASF_Redirector_e;
 501                         }
 502                 } else {
 503                         if(     (!strcasecmp(content_type, "audio/x-ms-wax")) ||
 504                                 (!strcasecmp(content_type, "audio/x-ms-wma")) ||
 505                                 (!strcasecmp(content_type, "video/x-ms-asf")) ||
 506                                 (!strcasecmp(content_type, "video/x-ms-afs")) ||
 507                                 (!strcasecmp(content_type, "video/x-ms-wmv")) ||
 508                                 (!strcasecmp(content_type, "video/x-ms-wma")) ) {
 509                                 mp_tmsg(MSGT_NETWORK,MSGL_ERR,"=====> ASF Redirector\n");
 510                                 return ASF_Redirector_e;
 511                         } else if( !strcasecmp(content_type, "text/plain") ) {
 512                                 mp_msg(MSGT_NETWORK,MSGL_V,"=====> ASF Plain text\n");
 513                                 return ASF_PlainText_e;
 514                         } else {
 515                                 mp_msg(MSGT_NETWORK,MSGL_V,"=====> ASF unknown content-type: %s\n", content_type );
 516                                 return ASF_Unknown_e;
 517                         }
 518                 }
 519         }
 520         return ASF_Unknown_e;
 521 }
 522
 523 static HTTP_header_t *asf_http_request(streaming_ctrl_t *streaming_ctrl) {
 524         HTTP_header_t *http_hdr;
 525         URL_t *url = NULL;
 526         URL_t *server_url = NULL;
 527         asf_http_streaming_ctrl_t *asf_http_ctrl;
 528         char str[250];
 529         char *ptr;
 530         int i, enable;
 531
 532         int offset_hi=0, offset_lo=0, length=0;
 533         int asf_nb_stream=0, stream_id;
 534
 535         // Sanity check
 536         if( streaming_ctrl==NULL ) return NULL;
 537         url = streaming_ctrl->url;
 538         asf_http_ctrl = (asf_http_streaming_ctrl_t*)streaming_ctrl->data;
 539         if( url==NULL || asf_http_ctrl==NULL ) return NULL;
 540
 541         // Common header for all requests.
 542         http_hdr = http_new_header();
 543         http_set_field( http_hdr, "Accept: */*" );
 544         http_set_field( http_hdr, "User-Agent: NSPlayer/4.1.0.3856" );
 545         http_add_basic_authentication( http_hdr, url->username, url->password );
 546
 547         // Check if we are using a proxy
 548         if( !strcasecmp( url->protocol, "http_proxy" ) ) {
 549                 server_url = url_new( (url->file)+1 );
 550                 if( server_url==NULL ) {
 551                         mp_tmsg(MSGT_NETWORK,MSGL_ERR,"invalid proxy URL\n");
 552                         http_free( http_hdr );
 553                         return NULL;
 554                 }
 555                 http_set_uri( http_hdr, server_url->url );
 556                 sprintf( str, "Host: %.220s:%d", server_url->hostname, server_url->port );
 557                 url_free( server_url );
 558         } else {
 559                 http_set_uri( http_hdr, url->file );
 560                 sprintf( str, "Host: %.220s:%d", url->hostname, url->port );
 561         }
 562
 563         http_set_field( http_hdr, str );
 564         http_set_field( http_hdr, "Pragma: xClientGUID={c77e7400-738a-11d2-9add-0020af0a3278}" );
 565         sprintf(str,
 566                 "Pragma: no-cache,rate=1.000000,stream-time=0,stream-offset=%u:%u,request-context=%d,max-duration=%u",
 567                 offset_hi, offset_lo, asf_http_ctrl->request, length );
 568         http_set_field( http_hdr, str );
 569
 570         switch( asf_http_ctrl->streaming_type ) {
 571                 case ASF_Live_e:
 572                 case ASF_Prerecorded_e:
 573                         http_set_field( http_hdr, "Pragma: xPlayStrm=1" );
 574                         ptr = str;
 575                         ptr += sprintf( ptr, "Pragma: stream-switch-entry=");
 576                         if(asf_http_ctrl->n_audio > 0) {
 577                                 for( i=0; i<asf_http_ctrl->n_audio ; i++ ) {
 578                                         stream_id = asf_http_ctrl->audio_streams[i];
 579                                         if(stream_id == asf_http_ctrl->audio_id) {
 580                                                 enable = 0;
 581                                         } else {
 582                                                 enable = 2;
 583                                                 continue;
 584                                         }
 585                                         asf_nb_stream++;
 586                                         ptr += sprintf(ptr, "ffff:%x:%d ", stream_id, enable);
 587                                 }
 588                         }
 589                         if(asf_http_ctrl->n_video > 0) {
 590                                 for( i=0; i<asf_http_ctrl->n_video ; i++ ) {
 591                                         stream_id = asf_http_ctrl->video_streams[i];
 592                                         if(stream_id == asf_http_ctrl->video_id) {
 593                                                 enable = 0;
 594                                         } else {
 595                                                 enable = 2;
 596                                                 continue;
 597                                         }
 598                                         asf_nb_stream++;
 599                                         ptr += sprintf(ptr, "ffff:%x:%d ", stream_id, enable);
 600                                 }
 601                         }
 602                         http_set_field( http_hdr, str );
 603                         sprintf( str, "Pragma: stream-switch-count=%d", asf_nb_stream );
 604                         http_set_field( http_hdr, str );
 605                         break;
 606                 case ASF_Redirector_e:
 607                         break;
 608                 case ASF_Unknown_e:
 609                         // First request goes here.
 610                         break;
 611                 default:
 612                         mp_tmsg(MSGT_NETWORK,MSGL_ERR,"unknown ASF stream type\n");
 613         }
 614
 615         http_set_field( http_hdr, "Connection: Close" );
 616         http_build_request( http_hdr );
 617
 618         return http_hdr;
 619 }
 620
 621 static int asf_http_parse_response(asf_http_streaming_ctrl_t *asf_http_ctrl, HTTP_header_t *http_hdr ) {
 622         char *content_type, *pragma;
 623         char features[64] = "\0";
 624         size_t len;
 625         if( http_response_parse(http_hdr)<0 ) {
 626                 mp_tmsg(MSGT_NETWORK,MSGL_ERR,"Failed to parse HTTP response.\n");
 627                 return -1;
 628         }
 629         switch( http_hdr->status_code ) {
 630                 case 200:
 631                         break;
 632                 case 401: // Authentication required
 633                         return ASF_Authenticate_e;
 634                 default:
 635                         mp_tmsg(MSGT_NETWORK,MSGL_ERR,"Server returned %d:%s\n", http_hdr->status_code, http_hdr->reason_phrase);
 636                         return -1;
 637         }
 638
 639         content_type = http_get_field( http_hdr, "Content-Type");
 640 //printf("Content-Type: [%s]\n", content_type);
 641
 642         pragma = http_get_field( http_hdr, "Pragma");
 643         while( pragma!=NULL ) {
 644                 char *comma_ptr=NULL;
 645                 char *end;
 646 //printf("Pragma: [%s]\n", pragma );
 647                 // The pragma line can get severals attributes
 648                 // separeted with a comma ','.
 649                 do {
 650                         if( !strncasecmp( pragma, "features=", 9) ) {
 651                                 pragma += 9;
 652                                 end = strstr( pragma, "," );
 653                                 if( end==NULL ) {
 654                                   len = strlen(pragma);
 655                                 } else {
 656                                   len = (unsigned int)(end-pragma);
 657                                 }
 658                                 if(len > sizeof(features) - 1) {
 659                                   mp_tmsg(MSGT_NETWORK,MSGL_WARN,"ASF HTTP PARSE WARNING : Pragma %s cut from %d bytes to %d\n",pragma,len,sizeof(features) - 1);
 660                                   len = sizeof(features) - 1;
 661                                 }
 662                                 strncpy( features, pragma, len );
 663                                 features[len]='\0';
 664                                 break;
 665                         }
 666                         comma_ptr = strstr( pragma, "," );
 667                         if( comma_ptr!=NULL ) {
 668                                 pragma = comma_ptr+1;
 669                                 if( pragma[0]==' ' ) pragma++;
 670                         }
 671                 } while( comma_ptr!=NULL );
 672                 pragma = http_get_next_field( http_hdr );
 673         }
 674         asf_http_ctrl->streaming_type = asf_http_streaming_type( content_type, features, http_hdr );
 675         return 0;
 676 }
 677
 678 static int asf_http_streaming_start( stream_t *stream, int *demuxer_type ) {
 679         HTTP_header_t *http_hdr=NULL;
 680         URL_t *url = stream->streaming_ctrl->url;
 681         asf_http_streaming_ctrl_t *asf_http_ctrl;
 682         char buffer[BUFFER_SIZE];
 683         int i, ret;
 684         int fd = stream->fd;
 685         int done;
 686         int auth_retry = 0;
 687
 688         asf_http_ctrl = malloc(sizeof(asf_http_streaming_ctrl_t));
 689         if( asf_http_ctrl==NULL ) {
 690                 mp_tmsg(MSGT_NETWORK,MSGL_FATAL,"Memory allocation failed.\n");
 691                 return -1;
 692         }
 693         asf_http_ctrl->streaming_type = ASF_Unknown_e;
 694         asf_http_ctrl->request = 1;
 695         asf_http_ctrl->audio_streams = asf_http_ctrl->video_streams = NULL;
 696         asf_http_ctrl->n_audio = asf_http_ctrl->n_video = 0;
 697         stream->streaming_ctrl->data = (void*)asf_http_ctrl;
 698
 699         do {
 700                 done = 1;
 701                 if( fd>0 ) closesocket( fd );
 702
 703                 if( !strcasecmp( url->protocol, "http_proxy" ) ) {
 704                         if( url->port==0 ) url->port = 8080;
 705                 } else {
 706                         if( url->port==0 ) url->port = 80;
 707                 }
 708                 fd = connect2Server( url->hostname, url->port, 1);
 709                 if( fd<0 ) return fd;
 710
 711                 http_hdr = asf_http_request( stream->streaming_ctrl );
 712                 mp_msg(MSGT_NETWORK,MSGL_DBG2,"Request [%s]\n", http_hdr->buffer );
 713                 for(i=0; i < (int)http_hdr->buffer_size ; ) {
 714                         int r = send( fd, http_hdr->buffer+i, http_hdr->buffer_size-i, 0 );
 715                         if(r <0) {
 716                                 mp_tmsg(MSGT_NETWORK,MSGL_ERR,"socket write error: %s\n",strerror(errno));
 717                                 goto err_out;
 718                         }
 719                         i += r;
 720                 }
 721                 http_free( http_hdr );
 722                 http_hdr = http_new_header();
 723                 do {
 724                         i = recv( fd, buffer, BUFFER_SIZE, 0 );
 725 //printf("read: %d\n", i );
 726                         if( i<=0 ) {
 727                                 perror("read");
 728                                 goto err_out;
 729                         }
 730                         http_response_append( http_hdr, buffer, i );
 731                 } while( !http_is_header_entire( http_hdr ) );
 732                 if( mp_msg_test(MSGT_NETWORK,MSGL_V) ) {
 733                         http_hdr->buffer[http_hdr->buffer_size]='\0';
 734                         mp_msg(MSGT_NETWORK,MSGL_DBG2,"Response [%s]\n", http_hdr->buffer );
 735                 }
 736                 ret = asf_http_parse_response(asf_http_ctrl, http_hdr);
 737                 if( ret<0 ) {
 738                         mp_tmsg(MSGT_NETWORK,MSGL_ERR,"Failed to parse header.\n");
 739                         goto err_out;
 740                 }
 741                 switch( asf_http_ctrl->streaming_type ) {
 742                         case ASF_Live_e:
 743                         case ASF_Prerecorded_e:
 744                         case ASF_PlainText_e:
 745                                 if( http_hdr->body_size>0 ) {
 746                                         if( streaming_bufferize( stream->streaming_ctrl, http_hdr->body, http_hdr->body_size )<0 ) {
 747                                                 goto err_out;
 748                                         }
 749                                 }
 750                                 if( asf_http_ctrl->request==1 ) {
 751                                         if( asf_http_ctrl->streaming_type!=ASF_PlainText_e ) {
 752                                                 // First request, we only got the ASF header.
 753                                                 ret = asf_streaming_parse_header(fd,stream->streaming_ctrl);
 754                                                 if(ret < 0) goto err_out;
 755                                                 if(asf_http_ctrl->n_audio == 0 && asf_http_ctrl->n_video == 0) {
 756                                                         mp_tmsg(MSGT_NETWORK,MSGL_ERR,"No stream found.\n");
 757                                                         goto err_out;
 758                                                 }
 759                                                 asf_http_ctrl->request++;
 760                                                 done = 0;
 761                                         } else {
 762                                                 done = 1;
 763                                         }
 764                                 }
 765                                 break;
 766                         case ASF_Redirector_e:
 767                                 if( http_hdr->body_size>0 ) {
 768                                         if( streaming_bufferize( stream->streaming_ctrl, http_hdr->body, http_hdr->body_size )<0 ) {
 769                                                 goto err_out;
 770                                         }
 771                                 }
 772                                 *demuxer_type = DEMUXER_TYPE_PLAYLIST;
 773                                 done = 1;
 774                                 break;
 775                         case ASF_Authenticate_e:
 776                                 if( http_authenticate( http_hdr, url, &auth_retry)<0 ) return -1;
 777                                 asf_http_ctrl->streaming_type = ASF_Unknown_e;
 778                                 done = 0;
 779                                 break;
 780                         case ASF_Unknown_e:
 781                         default:
 782                                 mp_tmsg(MSGT_NETWORK,MSGL_ERR,"unknown ASF streaming type\n");
 783                                 goto err_out;
 784                 }
 785         // Check if we got a redirect.
 786         } while(!done);
 787
 788         stream->fd = fd;
 789         if( asf_http_ctrl->streaming_type==ASF_PlainText_e || asf_http_ctrl->streaming_type==ASF_Redirector_e ) {
 790                 stream->streaming_ctrl->streaming_read = nop_streaming_read;
 791                 stream->streaming_ctrl->streaming_seek = nop_streaming_seek;
 792         } else {
 793                 stream->streaming_ctrl->streaming_read = asf_http_streaming_read;
 794                 stream->streaming_ctrl->streaming_seek = asf_http_streaming_seek;
 795                 stream->streaming_ctrl->buffering = 1;
 796         }
 797         stream->streaming_ctrl->status = streaming_playing_e;
 798         stream->close = close_s;
 799
 800         http_free( http_hdr );
 801         return 0;
 802
 803 err_out:
 804         if (fd > 0)
 805                 closesocket(fd);
 806         stream->fd = -1;
 807         http_free(http_hdr);
 808         return -1;
 809 }
 810
 811 static int open_s(stream_t *stream,int mode, void* opts, int* file_format) {
 812         URL_t *url;
 813
 814         stream->streaming_ctrl = streaming_ctrl_new();
 815         if( stream->streaming_ctrl==NULL ) {
 816                 return STREAM_ERROR;
 817         }
 818         stream->streaming_ctrl->audio_id_ptr = &stream->opts->audio_id;
 819         stream->streaming_ctrl->video_id_ptr = &stream->opts->video_id;
 820         stream->streaming_ctrl->bandwidth = network_bandwidth;
 821         url = url_new(stream->url);
 822         stream->streaming_ctrl->url = check4proxies(url);
 823         url_free(url);
 824
 825         mp_tmsg(MSGT_OPEN, MSGL_INFO, "STREAM_ASF, URL: %s\n", stream->url);
 826         if((!strncmp(stream->url, "http", 4)) && (*file_format!=DEMUXER_TYPE_ASF && *file_format!=DEMUXER_TYPE_UNKNOWN)) {
 827                 streaming_ctrl_free(stream->streaming_ctrl);
 828                 stream->streaming_ctrl = NULL;
 829                 return STREAM_UNSUPPORTED;
 830         }
 831
 832         if(asf_streaming_start(stream, file_format) < 0) {
 833                 mp_tmsg(MSGT_OPEN, MSGL_ERR, "Failed, exiting.\n");
 834                 streaming_ctrl_free(stream->streaming_ctrl);
 835                 stream->streaming_ctrl = NULL;
 836                 return STREAM_UNSUPPORTED;
 837         }
 838
 839         if (*file_format != DEMUXER_TYPE_PLAYLIST)
 840                 *file_format = DEMUXER_TYPE_ASF;
 841         stream->type = STREAMTYPE_STREAM;
 842         fixup_network_stream_cache(stream);
 843         return STREAM_OK;
 844 }
 845
 846 const stream_info_t stream_info_asf = {
 847   "mms and mms over http streaming",
 848   "null",
 849   "Bertrand, Reimar Doeffinger, Albeu",
 850   "originally based on work by Majormms (is that code still there?)",
 851   open_s,
 852   {"mms", "mmsu", "mmst", "http", "http_proxy", "mmsh", "mmshttp", NULL},
 853   NULL,
 854   0 // Urls are an option string
 855 };