rpms/foomatic
7
0
Fork 0
Code Issues Pull Requests Releases Activity

No longer need foomatic-ppdopts.

Browse Source
This commit is contained in:
Tim Waugh 2008-09-05 14:49:35 +00:00
parent f9204a46ae
commit 5b0c3e4ef7
1 changed files with 0 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
foomatic-ppdopts
View File

@ -1,46 +0,0 @@
#!/usr/bin/perl
use Getopt::Std;
getopts("hr:");
help() if $opt_h;
$libdir=$opt_r if $opt_r;
use Foomatic::PPD;
use Foomatic::Defaults;
my $file = $ARGV[0];
my $printer = $ARGV[1];
my $driver = $ARGV[2];
if (! -f "$libdir/db/source/printer/$printer.xml") {
die "Printer $printer does not seem to exist in the database!\n";
}
if (! -f $file) {
die "The PPD file you specified, $file, does not seem to exist!\n";
}
# Load the PPD
my $p = new Foomatic::PPD $file, $printer;
# Normal behavior, save as various option files by ID
my @opts = $p->foo_options();
for (@opts) {
my ($id, $xml) = ($_->{'id'}, $_->{'xml'});
my $ofile = "$libdir/db/source/opt/$id.xml";
if (-f "$ofile") { die "Output file $ofile already exists\n"; }
open TMP, ">$ofile" or die "Cannot write $ofile!\n";
print STDERR "Writing $ofile\n";
# Fix <driver> section>
print TMP join('',@{$xml});
close TMP;
}
exit(0);
sub help {
select STDERR;
print "\n";
print "Usage: foomatic-ppdopts filename.ppd printer-id\n";
print "\n";
exit(1);
}