View | Details | Raw Unified
Collapse All | Expand All

(-) acidrip-0.14.orig/AcidRip/acidrip.pm (-3 / +3 lines)
 Lines 321-327   sub get_parameters { Link Here  
  }
  }

        
  my $frames = $::settings->{'ppc_bug'} ? 100 : 10;
  my $frames = $::settings->{'ppc_bug'} ? 100 : 10;

            

              
  my $sstep = "-sstep " . int $length / ( 3 * $frames ) + 1;

              
  my $sstep = "-sstep 61";

            

        
  $sstep = "-ss " . int $length / 3 if $::settings->{'ppc_bug'};
  $sstep = "-ss " . int $length / 3 if $::settings->{'ppc_bug'};

        
  $menc{'frames'} = "-frames $frames $sstep";
  $menc{'frames'} = "-frames $frames $sstep";

        

  

    

    

       Lines 680-686
      sub find_crop ($) { 
    
  Link Here 
    

  

        
    message( "Running " . get_command("cropdetect") );
    message( "Running " . get_command("cropdetect") );

        
    open( CROP, get_command("cropdetect") . " 2>&1 |" );
    open( CROP, get_command("cropdetect") . " 2>&1 |" );

        
    while (<CROP>) {
    while (<CROP>) {

            

              
      if ( $_ =~ /crop area.*\s(crop=\d*:\d*:\d*:\d*)/ ) { $crop{$1}++ }

              
      if ( $_ =~ /Crop area.*\s(crop=\d*:\d*:\d*:\d*)/ ) { $crop{$1}++ }

            

        
      $crop_output .= $_;
      $crop_output .= $_;

        
      gui_check($_);
      gui_check($_);

        
    }
    }

  

    

    

       Lines 863-869
      sub encode { 
    
  Link Here 
    

  

        
    if ( $::settings->{'mencoder_pid'} = open( MENCODER, "$menc 2>&1 |" ) ) {
    if ( $::settings->{'mencoder_pid'} = open( MENCODER, "$menc 2>&1 |" ) ) {

        
      $/ = "\r";
      $/ = "\r";

        
			while (<MENCODER>) {
			while (<MENCODER>) {

            

              
        if (/^Pos:\s*(\d+).\ds\s+(\d+)f\s+\(\s*(\d+)%\)\s+(\d+fps)\sTrem:\s+(\d+min)\s+(\d+mb).+\[([\d:]+)\]/) {

              
        if (/^Pos:\s*(\d+).\ds\s+(\d+)f\s+\(\s*(\d+)%\)\s+(\d+.\d+fps)\sTrem:\s+(\d+min)\s+(\d+mb).+\[([\d:]+)\]/) {

            

        
          if ( $1 ne $sec )  { $sec  = $1; $::widgets->{'menc_seconds'}->set_text( hhmmss($1) ) }
          if ( $1 ne $sec )  { $sec  = $1; $::widgets->{'menc_seconds'}->set_text( hhmmss($1) ) }

        
          if ( $4 ne $fps )  { $fps  = $4; $::widgets->{'menc_fps'}->set_text($4) }
          if ( $4 ne $fps )  { $fps  = $4; $::widgets->{'menc_fps'}->set_text($4) }

        
          if ( $6 ne $size ) { $size = $6; $::widgets->{'menc_filesize'}->set_text($6) }
          if ( $6 ne $size ) { $size = $6; $::widgets->{'menc_filesize'}->set_text($6) }