projects
/
Printer-EVOLIS.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7341ae9
)
create original_file-command-color-page.pbm
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 14 Aug 2010 14:35:41 +0000
(16:35 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 14 Aug 2010 14:35:41 +0000
(16:35 +0200)
evolis-printer.pl
patch
|
blob
|
history
diff --git
a/evolis-printer.pl
b/evolis-printer.pl
index
697f01d
..
23f431a
100755
(executable)
--- a/
evolis-printer.pl
+++ b/
evolis-printer.pl
@@
-17,6
+17,8
@@
local $/ = "\r";
my $page = 1;
my $page = 1;
+my $name = $ARGV[0] || 'page';
+
sub save_pbm;
while(<>) {
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';
} elsif ( $c eq 'Db' ) { # XXX not in cups
my ( $color, $two, $data ) = @a;
$two eq '2' or die '2';
- my $path = "
pag
e-Db-$color-$page.pbm";
+ my $path = "
$nam
e-Db-$color-$page.pbm";
$page++;
save_pbm $path, 648, 1015, $data; # FIXME 1016?
} elsif ( $c eq 'Dbc' ) { # XXX not in cups
$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 $data = $comp;
- my $path = "
pag
e-Dbc-$color-$page.pbm";
+ my $path = "
$nam
e-Dbc-$color-$page.pbm";
$page++;
my $h = int( $len / 128 );
$page++;
my $h = int( $len / 128 );