Miscellaneous code that doesn't have a better home.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 

48 lines
1.2 KiB

#!/usr/bin/perl -w
# cups-genppd.5.2 -p /tmp -Z dnp-ds40 dnp-ds620 dnp-ds80 dnp-dsrx1
# for x in /tmp/*ppd ; do perl dnp-mangleppd.pl $x ; done
my ($ppd, %sizes);
$ppd = shift(@ARGV);
open FILE, "<$ppd" || die ("can't open file");
while(<FILE>) {
if ($_ =~ "/\*PageSize (.*)\/(.*):.*/") {
$sizes{$1} = $2;
}
}
close FILE;
foreach my $key (keys(%sizes)) {
open FILE, "<$ppd" || die ("can't open file $ppd");
my $out = $ppd;
$out =~ s/.*stp-dnp-(.*)\.5\.2\.ppd/$1/;
$out =~ tr/a-z/A-Z/;
$out =~ s/DSRX1/RX1/;
$sizes{"$key"} =~ s/(.*)\*(.*)/$1_x$2/;
$sizes{"$key"} =~ s/(.*)\+(.*)/$1_$2/;
print "--> $key = $sizes{$key}\n";
open FILE2, ">$out-$sizes{$key}.ppd";
while(<FILE>) {
s/\*DefaultPageSize: .*/*DefaultPageSize: $key/;
s/\*DefaultPageRegion: .*/*DefaultPageRegion: $key/;
s/\*DefaultImageableArea: .*/*DefaultImageableArea: $key/;
s/\*DefaultPaperDimension: .*/*DefaultPaperDimension: $key/;
s/\*DefaultStpColorCorrection: .*/*DefaultStpColorCorrection: Uncorrected/;
s/\*DefaultStpColorPrecision: .*/*DefaultStpColorPrecision: Best/;
print FILE2 "$_";
}
close FILE;
close FILE2;
}