my $page = 1;
+my $name = $ARGV[0] || 'page';
+
sub save_pbm;
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
my $data = $comp;
- my $path = "page-Dbc-$color-$page.pbm";
+ my $path = "$name-Dbc-$color-$page.pbm";
$page++;
my $h = int( $len / 128 );