From 6313a21d73dcc4ff9b00b0f5cbcb19ed8a400b6c Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sat, 14 Aug 2010 16:35:41 +0200 Subject: [PATCH] create original_file-command-color-page.pbm --- evolis-printer.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/evolis-printer.pl b/evolis-printer.pl index 697f01d..23f431a 100755 --- a/evolis-printer.pl +++ b/evolis-printer.pl @@ -17,6 +17,8 @@ local $/ = "\r"; my $page = 1; +my $name = $ARGV[0] || 'page'; + sub save_pbm; while(<>) { @@ -42,7 +44,7 @@ while(<>) { } elsif ( $c eq 'Db' ) { # XXX not in cups my ( $color, $two, $data ) = @a; $two eq '2' or die '2'; - my $path = "page-Db-$color-$page.pbm"; + my $path = "$name-Db-$color-$page.pbm"; $page++; save_pbm $path, 648, 1015, $data; # FIXME 1016? } elsif ( $c eq 'Dbc' ) { # XXX not in cups @@ -73,7 +75,7 @@ while(<>) { my $data = $comp; - my $path = "page-Dbc-$color-$page.pbm"; + my $path = "$name-Dbc-$color-$page.pbm"; $page++; my $h = int( $len / 128 ); -- 2.20.1