#!/usr/bin/perl
#
# hpijs-ppd - Generates all hpijs ppd files from the foomatic database.
#
# Copyright (c) 2003, Hewlett-Packard Co.
# All rights reserved.
#
#    Redistribution and use in source and binary forms, with or without
#    modification, are permitted provided that the following conditions
#    are met:
#    1. Redistributions of source code must retain the above copyright
#       notice, this list of conditions and the following disclaimer.
#    2. Redistributions in binary form must reproduce the above copyright
#       notice, this list of conditions and the following disclaimer in the
#       documentation and/or other materials provided with the distribution.
#    3. Neither the name of the Hewlett-Packard nor the names of its
#       contributors may be used to endorse or promote products derived
#       from this software without specific prior written permission.
#
#    THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
#    IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
#    OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
#    IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
#    INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
#    NOT LIMITED TO, PATENT INFRINGEMENT; PROCUREMENT OF SUBSTITUTE GOODS OR
#    SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
#    HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
#    STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
#    IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
#    POSSIBILITY OF SUCH DAMAGE.
#
# Author: David Suffield <david.suffield@hp.com>
#
# Usage:
#   ./hpijs-ppd 
#
# Description: 
#   This script will generate all the hpijs ppd files from the foomatic
#   database. All ppd files are generated from 
#   foomatic-db-hpijs/data-generators/hpijs/hpijs-printermap which is part
#   of the foomatic system at www.linuxprinting.org.  
#

$foomaticdir = $ENV{HOME};
$inputfile = "$foomaticdir/foomatic-db-hpijs/data-generators/hpijs/hpijs-printermap";
$ppddir = "ppd";
$ppdcmd = "$foomaticdir/foomatic-db-engine/foomatic-ppdfile";
$pat = "Manufacturer:(.*)\"(HEWLETT-PACKARD|Hewlett-Packard)\"";
$new = "Manufacturer: \"HP\"";

if (!defined($ppddir))
{
   die "no package name\n";
}

# Remove any ppd directory.
$cmd = "rm -rf $ppddir";
system($cmd);

# Create ppd directory.
mkdir $ppddir;

open(INPUT, $inputfile) or die "Error while opening $inputfile: $!\n";
while(<INPUT>)
{
   if ($_ =~ /(^HP-)/)
   {
      ($id) = split(/\|/, $_);

      $outputFile = "$ppddir/$id-hpijs.ppd";

      $cmd = "$ppdcmd -d hpijs -p $id >$outputFile";
      print(STDOUT "$cmd\n");

      if (system($cmd) != 0)
      {
         die "system $cmd failed: $?";
      }

      # Change Manufacturer: HEWLETT-PACKARD to HP.
      $docstring = ""; 
      open(PPDFILE, $outputFile) or die "Error while opening $outputFile: $!\n";
      while(<PPDFILE>)
      {
         $docstring = $docstring . $_;
      }
      close PPDFILE;

      if ($docstring =~ s/$pat/$new/)
      {
         print(STDOUT "found pattern in $outputFile\n");
         unlink $outputFile;
         open(PPDFILE, ">$outputFile") or die "Error while opening $outputFile: $!\n";
         print(PPDFILE $docstring);
         close PPDFILE;
      }
   }
}

close INPUT;

print(STDOUT "Done creating hpijs ppd files.\n");



