--- 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