foomatic/foomatic-ppdload.patch

--- foomatic-db-engine-3.0-20031217/foomatic-ppdload.in.ppdload	2003-12-19 15:26:40.360620848 +0000
+++ foomatic-db-engine-3.0-20031217/foomatic-ppdload.in	2003-12-19 15:26:56.289725866 +0000
@@ -0,0 +1,118 @@
+#!@PERL@
+
+use Getopt::Std;
+getopts("hdR:");
+help() if $opt_h;
+
+use Foomatic::PPD;
+use Foomatic::Defaults;
+
+my $file;
+my $printer;
+
+if ($opt_R) { # Remove entry
+    $printer = $opt_R;
+} else { # Add entry
+    $file = $ARGV[0];
+    $printer = $ARGV[1];
+}
+
+if (!$opt_R) { # Add entry
+
+    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;
+
+    if ($opt_d) {
+	# Parser PPD structure dump
+	use Data::Dumper;
+	local $Data::Dumper::Purity=1;
+	local $Data::Dumper::Indent=1;
+	print Dumper($p);
+    } else {
+	# 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";
+	    open TMP, ">$ofile" or die "Cannot write $ofile!\n";
+	    print STDERR "Writing $ofile\n";
+	    print TMP join('',@{$xml});
+	    close TMP;
+	}
+	
+	# Add this printer to the ppd driver
+
+	# Read the driver entry file
+	open PPDENTRY, "< $libdir/db/source/driver/ppd.xml" or
+	    die "Cannot read $libdir/db/source/driver/ppd.xml!\n";
+	print STDERR "Reading $libdir/db/source/driver/ppd.xml\n";
+	$ppdentry = join('', <PPDENTRY>);
+	close PPDENTRY;
+	
+	# Either we've got it already
+	my $found =
+	    ($ppdentry =~ m!<id>[\s\n]*printer/$printer[\s\n]*</id>!s);
+	
+	# Or we need to append a new item and write the file
+	if (! $found) {
+	    $ppdentry =~ s!^(\s*)</printers>!$1  <printer>\n$1    <id>printer/$printer</id>\n$1  </printer>\n$1</printers>!m;
+	    open PPDENTRY, "> $libdir/db/source/driver/ppd.xml" or
+		die "Cannot write $libdir/db/source/driver/ppd.xml!\n";
+	    print STDERR "Writing $libdir/db/source/driver/ppd.xml\n";
+	    print PPDENTRY $ppdentry;
+	    close PPDENTRY;
+	} else {
+	    print STDERR "Printer $printer already registered as supported by the \"ppd\" driver!\n";
+	}
+    }
+} else { # Remove entry
+    # Read the driver entry file
+    open PPDENTRY, "< $libdir/db/source/driver/ppd.xml" or
+	die "Cannot read $libdir/db/source/driver/ppd.xml!\n";
+    print STDERR "Reading $libdir/db/source/driver/ppd.xml\n";
+    $ppdentry = join('', <PPDENTRY>);
+    close PPDENTRY;
+	
+    # Do we have the requested entry?
+    my $found =
+	($ppdentry =~ m!<id>[\s\n]*printer/$printer[\s\n]*</id>!s);
+    
+    # Then we have to remove it and to write the file
+    if ($found) {
+	$ppdentry =~ s!\n+\s*<printer>[\s\n]*<id>printer/$printer</id>[\s\n]*</printer>\s*\n+!\n!sg;
+	open PPDENTRY, "> $libdir/db/source/driver/ppd.xml" or
+	    die "Cannot write $libdir/db/source/driver/ppd.xml!\n";
+	print STDERR "Writing $libdir/db/source/driver/ppd.xml\n";
+	print PPDENTRY $ppdentry;
+	close PPDENTRY;
+    } else {
+	print STDERR "Printer $printer not registered as supported by the \"ppd\" driver!\n";
+    }
+    # Remove the option entries
+    system("rm -f $libdir/db/source/opt/ppd-${printer}-*.xml");
+}
+
+exit(0);
+
+sub help {
+    select STDERR;
+    print "\n";
+    print "Usage: foomatic-ppdload filename.ppd printer-id\n";
+    print "       foomatic-ppdload -R printer-id\n";
+    print "\n";
+    print "       The first form adds the printer with the ID printer-id\n";
+    print "       and the PPD file filename.ppd to the \"ppd\" driver,\n";
+    print "       the second form removes the printer with the ID\n";
+    print "       printer-id from the \"ppd\" driver.\n";
+    print "\n";
+    exit(1);
+}
--- foomatic-db-engine-3.0-20031217/foomatic-ppdload.8.in.ppdload	2003-12-19 15:26:45.290034426 +0000
+++ foomatic-db-engine-3.0-20031217/foomatic-ppdload.8.in	2003-12-19 15:26:56.034756198 +0000
@@ -0,0 +1,47 @@
+.\" This -*- nroff -*- source file is part of foomatic.
+.\"
+.TH FOOMATIC-PPDLOAD 8 "2001-05-07" "Foomatic Project"
+.SH NAME
+foomatic-ppdload \- <put a short description here>
+.SH SYNOPSIS
+.B foomatic-ppdload \-h
+
+.B foomatic-ppdload
+\fIfilename.ppd printer-id\fR
+
+.B foomatic-ppdload \-R
+\fIprinter-id\fR
+
+.SH DESCRIPTION
+.B foomatic-ppdload
+takes a ppd filename and a printer ID as arguments.  It
+parses a PPD file and writes option data into the foomatic database
+for use with the foomatic "ppd" driver and that printer.
+
+With the \fB-R\fR option you can remove a printer from the "ppd"
+driver, and with \fB-h\fR a short help text is shown.
+
+Right now, it will handle Boolean and PickOne options that go in the
+Prolog, DocumentSetup, or PageSetup spots.  Also, PPD interoption
+constraints (not to be confused with foomatic option to printer and
+driver mapping constraints) are not supported by foomatic.  And of
+course, the interesting color and font information from the PPD has
+no place in the current foomatic schema.  All this will change over
+time.
+
+
+.\".SH SEE ALSO
+.\".IR foomatic-XXX (1),
+
+.SH EXIT STATUS
+.B foomatic-ppdload
+returns ...
+
+.SH AUTHOR
+Manfred Wassmann <\fImanolo@NCC-1701.B.Shuttle.de\fR> for the foomatic
+project using output from the associated binary.
+
+.SH BUGS
+There are several limitations, but it's an interesting experiment.
+
+Please send bug reports to foomatic-devel@linuxprinting.org.
--- foomatic-db-engine-3.0-20031217/configure.in.ppdload	2003-12-19 15:27:03.188905120 +0000
+++ foomatic-db-engine-3.0-20031217/configure.in	2003-12-19 15:27:21.165766554 +0000
@@ -280,7 +280,7 @@
 foomatic-configure foomatic-printjob foomatic-kitload
 foomatic-ppdfile foomatic-preferred-driver foomatic-cleanupdrivers
 foomatic-getpjloptions foomatic-addpjloptions
-foomatic-compiledb foomatic-fix-xml
+foomatic-compiledb foomatic-fix-xml foomatic-ppdload
 foomatic-nonumericalids foomatic-replaceoldprinterids
 foomatic-ppd-options
 )
--- foomatic-db-engine-3.0-20031217/Makefile.in.ppdload	2003-12-19 15:27:25.217284580 +0000
+++ foomatic-db-engine-3.0-20031217/Makefile.in	2003-12-19 15:28:09.349034667 +0000
@@ -145,6 +145,7 @@
 	foomatic-kitload foomatic-ppdfile foomatic-preferred-driver \
 	foomatic-cleanupdrivers foomatic-getpjloptions \
 	foomatic-addpjloptions foomatic-compiledb foomatic-fix-xml \
+	foomatic-ppdload \
 	foomatic-nonumericalids foomatic-replaceoldprinterids \
 	foomatic-ppd-options
 
@@ -155,7 +156,7 @@
 	foomatic-ppd-options
 
 # Administrative commands, only useful for admins
-SBINFILES:=foomatic-kitload \
+SBINFILES:=foomatic-kitload foomatic-ppdload \
 	foomatic-getpjloptions foomatic-addpjloptions \
 	foomatic-preferred-driver foomatic-fix-xml \
 	foomatic-nonumericalids foomatic-replaceoldprinterids