Changeset 101

Show
Ignore:
Timestamp:
10.12.2006 02:00:29 (2 years ago)
Author:
decoder
Message:

Fixed critical typo bug introduced in revision 98

Added another scanset, now 6 scansets. Should be sufficient.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/devel/FuzzyOcr.pm

    r99 r101  
    151151        my $pdatalen = length($pdata); 
    152152        my $w = 0; my $h = 0; 
     153 
     154        my $blah = substr($pdata,0,3); 
    153155 
    154156        if ( substr($pdata,0,3) eq "\x47\x49\x46" ) { 
    …… 
    218220            } 
    219221            infolog("TIFF: [${h}x${w}] $filename ($worder)"); 
    220             infolog("Cannot determite size of TIFF image, setting to '1x1'") if ($h == 0 and $w == 0); 
     222            infolog("Cannot determine size of TIFF image, setting to '1x1'") if ($h == 0 and $w == 0); 
    221223            $imgfiles{$filename}{ftype}  = 5; 
    222224            $imgfiles{$filename}{width}  = $w ? $w : 1; 
    …… 
    275277        #keep raw email for debugging later 
    276278        my $rawfilename = $imgdir . "/raw.eml"; 
    277         if (open RAW, ">$imgfilename") { 
     279        if (open RAW, ">$rawfilename") { 
    278280            print RAW $pms->{msg}->get_pristine(); 
    279281            close RAW; 

  • trunk/devel/FuzzyOcr.scansets

    r100 r101  
    1919} 
    2020 
    21 # Inverted Ocrad scanset 
    22 scanset ocrad-invert { 
     21# Inverted Ocrad scanset with decolorization 
     22scanset ocrad-decolorize-invert { 
    2323    preprocessors = ppmtopgm, pamthreshold, pamtopnm 
    2424    command = $ocrad 
    2525    args = -s5 -i $input 
     26} 
     27 
     28# Ocrad scanset with decolorization 
     29scanset ocrad-decolorize { 
     30    preprocessors = ppmtopgm, pamthreshold, pamtopnm 
     31    command = $ocrad 
     32    args = -s5 $input 
    2633} 
    2734