Changeset 20344

Show
Ignore:
Timestamp:
20.08.2009 16:50:11 (10 years ago)
Author:
max
Message:

Change ffmpeg_monitor_init to unbuffered_monitor_init and add handbrake_monitor_line that will display some Handbrake feedback

Files:
1 modified

Legend:

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

    r18995 r20344  
    144144    } 
    145145                   
    146     my @ffmpeg_monitor   = ( 'monitor_init'   , "MultimediaConverter::ffmpeg_monitor_init", 
     146    my @ffmpeg_monitor   = ( 'monitor_init'   , "MultimediaConverter::unbuffered_monitor_init", 
    147147                 'monitor_line'   , "MultimediaConverter::ffmpeg_monitor_line", 
    148                  'monitor_deinit' , "MultimediaConverter::ffmpeg_monitor_deinit" ); 
     148                 'monitor_deinit' , "MultimediaConverter::unbuffered_monitor_deinit" ); 
    149149                     
    150150                     
    151151    $self->{'ffmpeg_monitor'} = \@ffmpeg_monitor; 
    152152 
     153  my @handbrake_monitor   = ( 'monitor_init'   , "MultimediaConverter::unbuffered_monitor_init", 
     154                 'monitor_line'   , "MultimediaConverter::handbrake_monitor_line", 
     155                 'monitor_deinit' , "MultimediaConverter::unbuffered_monitor_deinit" ); 
     156                     
     157                     
     158    $self->{'handbrake_monitor'} = \@handbrake_monitor; 
    153159 
    154160} 
     
    238244 
    239245 
    240 sub ffmpeg_monitor_init 
     246sub unbuffered_monitor_init 
    241247{ 
    242248    my $saved_record_sep = $/; 
     
    254260 
    255261 
    256 sub ffmpeg_monitor_deinit 
     262sub unbuffered_monitor_deinit 
    257263{ 
    258264    my ($saved_rec) = @_; 
     
    272278    my $had_error = 0; 
    273279    my $generate_dot = 0; 
    274  
     280     
    275281    if ($line =~ m/^frame=/)  
    276282    { 
     
    282288 
    283289 
    284  
     290sub handbrake_monitor_line 
     291{ 
     292    my ($line) = @_; 
     293     
     294    my $had_error = 0; 
     295    my $generate_dot = 0; 
     296     
     297    if ($line =~ m/^Encoding:/)  
     298    { 
     299        print STDERR $line; 
     300    } 
     301    else { 
     302        $generate_dot = 1; 
     303    } 
     304 
     305    return ($had_error,$generate_dot); 
     306} 
    285307 
    2863081;