Changeset 34

Timestamp:

13.11.2006 16:52:20 (2 years ago)

Author:

jorge

Message:

added optional 'focr_skip_' options to skip ocr processing on the supplied image type

Files:

• trunk/devel/FuzzyOcr.pm (modified) (5 diffs)

trunk/devel/FuzzyOcr.pm

@@ -167 +167 @@
-        if ( substr($$pic{header},0,3) eq "\x47\x49\x46" ) {
-            debuglog("Found GIF header name=\"$$pic{fname}\"");
+            if ($conf->{focr_skip_gif}) {
+                debuglog("Skipping image check");
+                next IMAGE;
+            }
-            $ptype = 1;
-            my $s = (stat($file))[7];
@@ -288 +292 @@
-        elsif ( substr($$pic{header},0,2) eq "\xff\xd8" ) {
-            debuglog("Found JPEG header name=\"$$pic{fname}\"");
+            if ($conf->{focr_skip_jpeg}) {
+                debuglog("Skipping image check");
+                next IMAGE;
+            }
-            $ptype = 2;
-            my $s = (stat($file))[7];
@@ -316 +324 @@
-        elsif ( substr($$pic{header},0,4) eq "\x89\x50\x4e\x47" ) {
-            debuglog("Found PNG header name=\"$$pic{fname}\"");
+            if ($conf->{focr_skip_png}) {
+                debuglog("Skipping image check");
+                next IMAGE;
+            }
-            $ptype = 3;
-            my $s = (stat($file))[7];
@@ -345 +357 @@
-        elsif ( substr($$pic{header},0,2) eq "BM" ) {
-            debuglog("Found BMP header name=\"$$pic{fname}\"");
+            if ($conf->{focr_skip_bmp}) {
+                debuglog("Skipping image check");
+                next IMAGE;
+            }
-            $ptype = 4;
-            my $s = (stat($file))[7];
@@ -376 +392 @@
-                ) {
-            debuglog("Found TIFF header name=\"$$pic{fname}\"");
+            if ($conf->{focr_skip_tiff}) {
+                debuglog("Skipping image check");
+                next IMAGE;
+            }
-            $ptype = 5;
-            my $s = (stat($file))[7];