projects
/
Printer-EVOLIS.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
create original_file-command-color-page.pbm
[Printer-EVOLIS.git]
/
evolis-printer.pl
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 );