Attachment #175916 for bug #251687




use FuzzyOcr::Config qw(get_config set_config get_tmpdir);
use FuzzyOcr::Misc qw(save_execute);
use FuzzyOcr::Logging qw(errorlog warnlog infolog);
use File::Basename qw(dirname);

# Provide functions to deanimate gifs

sub deanimate {
    my $conf = get_config();
    my $imgdir = get_tmpdir();
    my $tfile = shift;
    my $imgdir = dirname($tfile);
    my $efile = $tfile . ".err";
    my $tfile2 = $tfile;
    my $tfile3 = $tfile;


sub gif_info {
    my $conf = get_config();
    my $imgdir = get_tmpdir();
    my $giffile = $_[0];
    my $imgdir = dirname($giffile);
    
    my $fd = new IO::Handle;
    

Lines 1-5 Link Here

(-)FuzzyOcr.orig/Preprocessor.pm (-1 / +3 lines)
1	package FuzzyOcr::Preprocessor;	1	package FuzzyOcr::Preprocessor;
2		2
		3	use File::Basename qw(dirname);
		4
3	sub new {	5	sub new {
4	my ($class, $label, $command, $args) = @_;	6	my ($class, $label, $command, $args) = @_;
5		7
Lines 12-18 Link Here
12		14
13	sub run {	15	sub run {
14	my ($self, $input) = @_;	16	my ($self, $input) = @_;
15	my $tmpdir = FuzzyOcr::Config::get_tmpdir();	17	my $tmpdir = dirname($input);
16	my $label = $self->{label};	18	my $label = $self->{label};
17	my $output = "$tmpdir/prep.$label.out";	19	my $output = "$tmpdir/prep.$label.out";
18	my $stderr = ">$tmpdir/prep.$label.err";	20	my $stderr = ">$tmpdir/prep.$label.err";

Lines 2-7 Link Here

(-)FuzzyOcr.orig/Scanset.pm (-1 / +2 lines)
2		2
3	use lib qw(..);	3	use lib qw(..);
4	use FuzzyOcr::Logging qw(errorlog);	4	use FuzzyOcr::Logging qw(errorlog);
		5	use File::Basename qw(dirname);
5		6
6	sub new {	7	sub new {
7	my ($class, $label, $preprocessors, $command, $args, $output_in) = @_;	8	my ($class, $label, $preprocessors, $command, $args, $output_in) = @_;
Lines 19-25 Link Here
19	sub run {	20	sub run {
20	my ($self, $input) = @_;	21	my ($self, $input) = @_;
21	my $conf = FuzzyOcr::Config::get_config();	22	my $conf = FuzzyOcr::Config::get_config();
22	my $tmpdir = FuzzyOcr::Config::get_tmpdir();	23	my $tmpdir = dirname($input);
23	my $label = $self->{label};	24	my $label = $self->{label};
24	my $output = "$tmpdir/scanset.$label.out";	25	my $output = "$tmpdir/scanset.$label.out";
25	my $stderr = ">$tmpdir/scanset.$label.err";	26	my $stderr = ">$tmpdir/scanset.$label.err";

Return to bug 251687

Lines 8-20 Link Here

(-)FuzzyOcr.orig/Deanimate.pm (-2 / +3 lines)
8	use FuzzyOcr::Config qw(get_config set_config get_tmpdir);	8	use FuzzyOcr::Config qw(get_config set_config get_tmpdir);
9	use FuzzyOcr::Misc qw(save_execute);	9	use FuzzyOcr::Misc qw(save_execute);
10	use FuzzyOcr::Logging qw(errorlog warnlog infolog);	10	use FuzzyOcr::Logging qw(errorlog warnlog infolog);
		11	use File::Basename qw(dirname);
11		12
12	# Provide functions to deanimate gifs	13	# Provide functions to deanimate gifs
13		14
14	sub deanimate {	15	sub deanimate {
15	my $conf = get_config();	16	my $conf = get_config();
16	my $imgdir = get_tmpdir();
17	my $tfile = shift;	17	my $tfile = shift;
		18	my $imgdir = dirname($tfile);
18	my $efile = $tfile . ".err";	19	my $efile = $tfile . ".err";
19	my $tfile2 = $tfile;	20	my $tfile2 = $tfile;
20	my $tfile3 = $tfile;	21	my $tfile3 = $tfile;
Lines 58-65 Link Here
58		59
59	sub gif_info {	60	sub gif_info {
60	my $conf = get_config();	61	my $conf = get_config();
61	my $imgdir = get_tmpdir();
62	my $giffile = $_[0];	62	my $giffile = $_[0];
		63	my $imgdir = dirname($giffile);
63		64
64	my $fd = new IO::Handle;	65	my $fd = new IO::Handle;
65		66