Changeset 125 for tags

Show
Ignore:
Timestamp:
07.01.2007 14:13:19 (2 years ago)
Author:
decoder
Message:

FuzzyOcr? 3.5.1 tag dir and tarball

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • tags/FuzzyOcr-3.4.3/FuzzyOcr.pm

    r56 r125  
    445445    (my $retcode, @stdout_data) = save_execute("$App{gifsicle} --info $giffile", ">$imgdir/gifsicle.info", ">$imgdir/gifsicle.info.err", 1, $t); 
    446446 
    447     if ($retcode) { 
     447    if ($retcode < 0) { 
    448448        #FIXME: WARN HERE 
    449449    } 
    …… 
    658658        #$rcode = $?; 
    659659    #}); 
    660     if ($rcode) { 
     660    if ($rcode < 0) { 
    661661        chomp $rcode; 
    662662        debuglog("$App{pamfile}: Timed out [$rcode], skipping..."); 
    663663        return (1, ''); 
    664     } 
     664    } elsif ($rcode > 0) { 
     665        chomp $rcode; 
     666        debuglog("$App{pamfile}: Error [$rcode], skipping..."); 
     667        return (1, ''); 
     668    } 
     669 
    665670    if ($stdout_data[0] =~ m/(\d+) by (\d+)/) { 
    666671        $w = $1; $h = $2; 
    …… 
    673678        #$rcode = $?; 
    674679   # }); 
    675     if ($rcode) { 
     680 
     681    if ($rcode < 0) { 
    676682        chomp $rcode; 
    677683        debuglog("$App{ppmhist}: Timed out [$rcode], skipping..."); 
    678684        return (1, ''); 
    679     } 
     685    } elsif ($rcode > 0) { 
     686        chomp $rcode; 
     687        debuglog("$App{ppmhist}: Error [$rcode], skipping..."); 
     688        return (1, ''); 
     689    } 
     690 
    680691    my $cnt = 0; 
    681692    my $c = scalar(@stdout_data); 
    …… 
    930941            ($retcode, @stdout_data) = save_execute("$App{giftext} $file", ">$imgdir/giftext.info", ">/dev/null", 1, $t); 
    931942 
    932             if ($retcode) { 
     943            if ($retcode < 0) { 
    933944                chomp $retcode; 
    934945                debuglog("$App{giftext} Timed out [$retcode], skipping..."); 
    …… 
    955966                $retcode = save_execute("$App{giffix} $file", ">$tfile", ">>$efile", 0, $t); 
    956967 
    957                 if ($retcode) { 
     968                if ($retcode < 0) { 
    958969                    chomp $retcode; 
    959970                    debuglog("$App{giffix}: Timed out [$retcode], skipping..."); 
    …… 
    10271038                $retcode = save_execute("$App{gifinter} $cfile", ">$tfile", ">>$efile", 0, $t); 
    10281039 
    1029                 if ($retcode) { 
     1040                if ($retcode < 0) { 
    10301041                    chomp $retcode; 
    10311042                    debuglog("$App{gifinter}: Timed out [$retcode], skipping..."); 
    …… 
    10381049            $retcode = save_execute("$App{giftopnm} $tfile", ">$pfile", ">>$efile", 0, $t); 
    10391050 
    1040             if ($retcode) { 
     1051            if ($retcode < 0) { 
    10411052                chomp $retcode; 
    10421053                debuglog("$App{giftopnm}: Timed out [$retcode], skipping..."); 
    …… 
    10601071            $retcode = save_execute("$App{jpegtopnm} $file", ">$pfile", ">>$efile", 0, $t); 
    10611072 
    1062             if ($retcode) { 
     1073            if ($retcode < 0) { 
    10631074                chomp $retcode; 
    10641075                debuglog("$App{jpegtopnm}: Timed out [$retcode], skipping..."); 
    …… 
    10811092            $retcode = save_execute("$App{pngtopnm} $file", ">$pfile", ">>$efile", 0, $t); 
    10821093 
    1083             if ($retcode) { 
     1094            if ($retcode < 0) { 
    10841095                chomp $retcode; 
    10851096                debuglog("$App{pngtopnm}: Timed out [$retcode], skipping..."); 
    …… 
    11031114                $retcode = save_execute("$App{bmptopnm} $file", ">$pfile", ">>$efile", 0, $t); 
    11041115 
    1105             if ($retcode) { 
     1116            if ($retcode < 0) { 
    11061117                chomp $retcode; 
    11071118                debuglog("$App{bmptopnm}: Timed out [$retcode], skipping..."); 
    …… 
    11231134                $retcode = save_execute("$App{tifftopnm} $file", ">$pfile", ">>$efile", 0, $t); 
    11241135 
    1125             if ($retcode) { 
     1136            if ($retcode < 0) { 
    11261137                chomp $retcode; 
    11271138                debuglog("$App{tifftopnm}: Timed out [$retcode], skipping..."); 
    …… 
    11751186            ($retcode, @ocrdata) = save_execute("$scan", ">$imgdir/ocr.temp", ">>$efile", 1, $t); 
    11761187 
    1177             if ($retcode) { 
     1188            if ($retcode < 0) { 
     1189                debuglog("Timeout: \"$scanset\" took more than $Option{timeout} sec."); 
     1190                debuglog("Skipping scanset due to timeout, trying next..."); 
     1191                printf RAWERR qq(Timeout[$Option{timeout}]: $scanset\n) if ($haserr>0); 
     1192                next; 
     1193            } elsif ($retcode > 0) { 
    11781194                chomp $retcode; 
    11791195                open ERR,$efile;