diff options
Diffstat (limited to 'FS/FS/Misc.pm')
| -rw-r--r-- | FS/FS/Misc.pm | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/FS/FS/Misc.pm b/FS/FS/Misc.pm index fe8ac60..0e8d92b 100644 --- a/FS/FS/Misc.pm +++ b/FS/FS/Misc.pm @@ -20,7 +20,6 @@ use Tie::IxHash; pkg_freqs generate_ps generate_pdf do_print csv_from_fixed - ocr_image ); $DEBUG = 0; @@ -851,41 +850,6 @@ sub csv_from_fixed { ''; } -=item ocr_image IMAGE_SCALAR - -Runs OCR on the provided image data and returns a list of text lines. - -=cut - -sub ocr_image { - my $logo_data = shift; - - #XXX use conf dir location from Makefile - my $dir = $FS::UID::conf_dir. "/cache.". $FS::UID::datasrc; - my $fh = new File::Temp( - TEMPLATE => 'bizcard.XXXXXXXX', - SUFFIX => '.png', #XXX assuming, but should handle jpg, gif, etc. too - DIR => $dir, - UNLINK => 0, - ) or die "can't open temp file: $!\n"; - - my $filename = $fh->filename; - - print $fh $logo_data; - close $fh; - - run( [qw(ocroscript recognize), $filename], '>'=>"$filename.hocr" ) - or die "ocroscript recognize failed\n"; - - run( [qw(ocroscript hocr-to-text), "$filename.hocr"], '>pipe'=>\*OUT ) - or die "ocroscript hocr-to-text failed\n"; - - my @lines = split(/\n/, <OUT> ); - - foreach (@lines) { s/\.c0m\s*$/.com/; } - - @lines; -} =back |