Changeset 20182

Show
Ignore:
Timestamp:
07.08.2009 11:15:31 (10 years ago)
Author:
davidb
Message:

Shifting to using concatenated VOB files

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • extensions/gsdl-video/trunk/perllib/plugins/TimedHTMLPlugin.pm

    r19828 r20182  
    553553 
    554554    if ($media_type eq "video") { 
    555     $src_file = "$media_root\_01_$tape_num.VOB"; 
     555    # $src_file = "$media_root\_01_$tape_num.VOB"; 
     556    $src_file = "$media_root\_01.VOB"; 
    556557    $src_filename  
    557558        = &util::filename_cat($media_base_dir, $src_file); 
    558559    } 
    559560    elsif ($media_type =~ m/^audio$/) { 
    560     $src_file = "$media_root\_Tape$tape_num.mp3"; 
     561    # $src_file = "$media_root\_Tape$tape_num.mp3"; 
     562    $src_file = "$media_root.mp3"; 
    561563    $src_filename  
    562564        = &util::filename_cat($media_base_dir, $src_file); 
     
    569571    $self->{'file_blocks'}->{$src_filename} = 1; 
    570572 
    571     my $re_file_block = $src_filename; 
    572     $re_file_block =~ s/_01_$tape_num.VOB$/_\\d+_\\d+.VOB\$/; 
    573      
    574      
    575     push(@{$self->{'re_file_block'}},$re_file_block); 
     573#   my $re_file_block = $src_filename; 
     574#   $re_file_block =~ s/_01_$tape_num.VOB$/_\\d+_\\d+.VOB\$/; 
     575         
     576#   push(@{$self->{'re_file_block'}},$re_file_block); 
    576577    } 
    577578