printer

1 files changed, 537 insertions, 0 deletions

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
new file mode 100644
index 000000000..0ece8d811
--- /dev/null
+++ b/perl-install/printer.pm
@@ -0,0 +1,537 @@
+package printer;
+
+use diagnostics;
+use strict;
+
+use vars qw(%thedb %printer_type %printer_type_inv);
+
+########################################################################################
+# misc imports
+########################################################################################
+use Data::Dumper;
+use File::Copy;
+
+########################################################################################
+# pixel imports
+########################################################################################
+#
+########################################################################################
+# EXAMPLES AND TYPES
+########################################################################################
+
+# An entry in the 'printerdb' file, which describes each type of 
+# supported printer                                              
+
+#ex:
+#StartEntry: DeskJet550
+#  GSDriver: cdj550 
+#  Description: {HP DeskJet 550C/560C/6xxC series}
+#  About: { \
+#	    This driver supports the HP inkjet printers which have \
+#	    color capability using both black and color cartridges \
+#	    simultaneously. Known to work with the 682C and the 694C. \
+#	    Other 600 and 800 series printers may work \
+#	    if they have this feature. \
+#	    If your printer seems to be saturating the paper with ink, \
+#	    try added an extra GS option of '-dDepletion=2'. \
+#	    Ghostscript supports several optional parameters for \
+#	    this driver: see the document 'devices.doc' \
+#	    in the ghostscript directory under /usr/doc. \
+#	  }
+#  Resolution: {300} {300} {}
+#  BitsPerPixel:  {3} {Normal color printing with color cartridge}
+#  BitsPerPixel:  {8} {Floyd-Steinberg B&W printing for better greys}
+#  BitsPerPixel: {24} {Floyd-Steinberg Color printing (best, but slow)}
+#  BitsPerPixel: {32} {Sometimes provides better output than 24}
+#EndEntry
+
+my %ex_printerdb_entry = 
+  (
+   ENTRY    => "DeskJet550",                               #Human-readable name of the entry
+   GSDRIVER => "cdj550",                                   #gs driver used by this printer
+   DESCR    => "HP DeskJet 550C/560C/6xxC series",         #Single line description of printer
+   ABOUT    => "
+   This driver supports the HP inkjet printers which have 
+   color capability using both black and color cartridges 
+        ...",                                             #Lengthy description of printer
+   RESOLUTION   => [                                       #List of resolutions supported
+		    {
+		     XDPI    => 300,
+		     YDPI    => 300,
+		     DESCR   => "commentaire",
+		    },
+		   ],
+   BITSPERPIXEL => [                                       #List of color depths supported
+		    {
+		     DEPTH => 3,
+		     DESCR => "Normal color printing with color cartridge",
+		    },
+		   ],
+  )
+;
+  
+
+
+# A printcap entry 
+# Only represents a subset of possible options available 
+# Sufficient for the simple configuration we are interested in 
+
+# there is also some text in the template (.in) file in the spooldir
+
+#ex:
+## /etc/printcap
+##
+## Please don't edit this file directly unless you know what you are doing!
+## Be warned that the control-panel printtool requires a very strict format!
+## Look at the printcap(5) man page for more info.
+##
+## This file can be edited with the printtool in the control-panel.
+#
+###PRINTTOOL3## LOCAL uniprint NAxNA letter {} U_NECPrinwriter2X necp2x6 1
+#lpname:\
+#	 :sd=/var/spool/lpd/lpnamespool:\
+#	 :mx#45:\
+#	 :sh:\
+#	 :lp=/dev/device:\
+#	 :if=/var/spool/lpd/lpnamespool/filter:
+###PRINTTOOL3## REMOTE st800 360x180 a4 {} EpsonStylus800 Default 1
+#remote:\
+#	 :sd=/var/spool/lpd/remotespool:\
+#	 :mx#47:\
+#	 :sh:\
+#	 :rm=remotehost:\
+#	 :rp=remotequeue:\
+#	 :if=/var/spool/lpd/remotespool/filter:
+###PRINTTOOL3## SMB la75plus 180x180 letter {} DECLA75P Default {}
+#smb:\
+#	 :sd=/var/spool/lpd/smbspool:\
+#	 :mx#46:\
+#	 :sh:\
+#	 :if=/var/spool/lpd/smbspool/filter:\
+#	 :af=/var/spool/lpd/smbspool/acct:\
+#	 :lp=/dev/null:
+###PRINTTOOL3## NCP ap3250 180x180 letter {} EpsonAP3250 Default {}
+#ncp:\
+#	 :sd=/var/spool/lpd/ncpspool:\
+#	 :mx#46:\
+#	 :sh:\
+#	 :if=/var/spool/lpd/ncpspool/filter:\
+#	 :af=/var/spool/lpd/ncpspool/acct:\
+#	 :lp=/dev/null:
+
+
+my %ex_printcap_entry = 
+  (
+   QUEUE    => "lpname",                            #Queue name, can have multi separated by '|'
+
+   #if you want something different from the default
+   SPOOLDIR => "/var/spool/lpd/lpnamespool/",        #Spool directory
+   IF       => "/var/spool/lpd/lpnamespool/filter", #input filter
+   
+   # commentaire inserer dans le printcap pour que printtool retrouve ses petits
+   DBENTRY      => "DeskJet670",                    #entry in printer database for this printer  
+
+   RESOLUTION   => "NAxNA",                         #ghostscript resolution to use
+   PAPERSIZE    => "letter",                        #Papersize
+   BITSPERPIXEL => "necp2x6",                       #ghostscript color option                    
+   CRLF         => "YES" ,                            #Whether or not to do CR/LF xlation         
+
+   TYPE         => "LOCAL",
+
+   # LOCAL
+   DEVICE   => "/dev/device",                       #Print device
+   
+   # REMOTE (lpd) printers only 
+   REMOTEHOST   => "remotehost",                     #Remote host (not used for all entries)
+   REMOTEQUEUE  => "remotequeue",                    #Queue on the remote machine                
+
+
+   #SMB (LAN Manager) only 
+   # in spooldir/.config
+   #share='\\hostname\printername'
+   #hostip=1.2.3.4
+   #user='user'
+   #password='passowrd'
+   #workgroup='AS3'
+   SMBHOST   => "hostname",                              #Server name (NMB name, can have spaces)
+   SMBHOSTIP => "1.2.3.4",                               #Can optional specify and IP address for host
+   SMBSHARE  => "printername",                           #Name of share on the SMB server             
+   SMBUSER   => "user",                                  #User to log in as on SMB server             
+   SMBPASSWD => "passowrd",                              #Corresponding password                      
+   SMBWORKGROUP => "AS3",                                #SMB workgroup name                          
+   AF        => "/var/spool/lpd/smbspool/acct",           #accounting filter (needed for smbprint)
+
+   # NCP (NetWare) only 
+   # in spooldir/.config
+   #server=printerservername
+   #queue=queuename
+   #user=user
+   #password=pass
+   NCPHOST   => "printerservername",            #Server name (NCP name)                      
+   NCPQUEUE  => "queuename",                    #Queue on server                             
+   NCPUSER   => "user",                         #User to log in as on NCP server             
+   NCPPASSWD => "pass",                         #Corresponding password                      
+		
+  )
+;
+
+########################################################################################
+# INTERN CONSTANT
+########################################################################################
+my $PRINTER_NONE   = "NONE";
+my $PRINTER_LOCAL  = "LOCAL";
+my $PRINTER_LPRREM = "REMOTE";
+my $PRINTER_SMB    = "SMB";
+my $PRINTER_NCP    = "NCP";   
+
+########################################################################################
+# EXPORTED CONSTANT
+########################################################################################
+
+
+%printer_type = ("local"             => $PRINTER_LOCAL,
+		    "Remote lpd"        => $PRINTER_LPRREM,
+		    "SMB/Windows 95/NT" => $PRINTER_SMB,
+		    "NetWare"           => $PRINTER_NCP,   
+		   );                                 
+
+%printer_type_inv = reverse %printer_type;
+
+
+########################################################################################
+# GLOBALS
+########################################################################################
+
+#db of all entries in the printerdb file
+
+#if we are in an panoramix config
+my $prefix = "";
+
+# location of the printer database in an installed system
+my $PRINTER_DB_FILE    = "/usr/lib/rhs/rhs-printfilters/printerdb";
+my $PRINTER_FILTER_DIR = "/usr/lib/rhs/rhs-printfilters/";
+my $SPOOLDIR           = "/var/spool/lpd/";
+
+########################################################################################
+# FUNCTIONS
+########################################################################################
+
+sub set_prefix($) {
+    $prefix = shift;
+}
+#******************************************************************************
+# read function
+#******************************************************************************
+#------------------------------------------------------------------------------
+#Read the printer database from dbpath into memory
+#------------------------------------------------------------------------------
+sub read_printer_db(;$) {
+    my ($dbpath) = @_;
+    
+    #$dbpath = $dbpath ? $dbpath : $DB_PRINTER_FILTER;
+    $dbpath ||= $PRINTER_DB_FILE;
+    $dbpath = "${prefix}$dbpath";
+      
+
+    %thedb and return;
+
+    local *DBPATH;		#don't have to do close
+    open DBPATH, "<$dbpath" or die "An error has occurred on $dbpath : $!";
+      
+    while (<DBPATH>) {
+	if (/^StartEntry:\s(\w*)/) {
+	    my $entryname = $1;
+	    my $entry = {};
+	      
+	    $entry->{ENTRY} = $entryname;
+	      
+	  WHILE : 
+	      while (<DBPATH>) {
+		SWITCH: {
+		      /GSDriver:\s*(\w*)/      and do { $entry->{GSDRIVER} = $1; last SWITCH};
+		      /Description:\s*{(.*)}/  and do { $entry->{DESCR}    = $1; last SWITCH};
+		      /About:\s*{(.*)}/        and do { $entry->{ABOUT}    = $1; last SWITCH};
+		      /About:\s*{(.*)/ 
+			and do 
+			  {
+			      my $string = "$1\n";
+			      while (<DBPATH>) {
+				  /(.*)}/ and do { $entry->{ABOUT} = $string; last SWITCH};
+				  $string .= $_;
+			      }
+			  };
+		      /Resolution:\s*{(.*)}\s*{(.*)}\s*{(.*)}/ 
+			and do { push @{$entry->{RESOLUTION}}, {XDPI => $1, YDPI => $2, DESCR => $3}; last SWITCH};
+		      /BitsPerPixel:\s*{(.*)}\s*{(.*)}/ 
+			and do { push @{$entry->{BITSPERPIXEL}}, {DEPTH => $1, DESCR => $2};last SWITCH;};
+		      /EndEntry/          and do { last WHILE;};
+		  }
+	      }
+	    $thedb{$entryname} = $entry;
+	}
+    }
+}
+
+
+#******************************************************************************
+# write functions 
+#******************************************************************************
+
+#------------------------------------------------------------------------------
+# given the path queue_path, we create all the required spool directory
+#------------------------------------------------------------------------------
+sub create_spool_dir($) {
+    my ($queue_path) = @_;
+    my $complete_path = "${prefix}$queue_path";
+
+    unless ($::testing) {
+	mkdir "$complete_path", 0755
+	  or die "An error has occurred - can't create $complete_path : $!";
+	
+	#redhat want that "drwxr-xr-x root lp"
+	my $gid_lp = (getpwnam("lp"))[3];
+	chown 0, $gid_lp, $complete_path 
+	  or die "An error has occurred - can't chgrp $complete_path to lp $!";
+    }
+}
+
+#------------------------------------------------------------------------------
+#given the input spec file 'input', and the target output file 'output'
+#we set the fields specified by fieldname to the values in fieldval    
+#nval  is the number of fields to set                                  
+#Doesnt currently catch error exec'ing sed yet                         
+#------------------------------------------------------------------------------
+sub create_config_file($$%) {
+    my ($inputfile, $outpufile, %toreplace) = @_;
+    my ($in, $out) = ("${prefix}$inputfile", "${prefix}$outpufile");
+    local *OUT;
+    local *IN;
+    
+    #TODO my $oldmask = umask 0755;
+
+    open IN , "<$in"  or die "Can't open $in $!";
+    if ($::testing) {
+	open OUT, ">$out" or die "Can't open $out $!";
+    } else {
+	*OUT = *STDOUT
+    }
+    
+    while ((<IN>)) {
+	if (/@@@(.*)@@@/) {
+	    my $chaine = $1;
+	    if (!defined($toreplace{$chaine})) {
+		die "I can't replace $chaine";
+	    }
+	    s/@@@(.*)@@@/$toreplace{$1}/g;
+	}
+	print OUT;
+    }
+   
+    
+}
+
+
+#------------------------------------------------------------------------------
+#copy master filter to the spool dir
+#------------------------------------------------------------------------------
+sub copy_master_filter($) {
+    my ($queue_path) = @_;
+    my $complete_path = "${prefix}${queue_path}filter";
+    my $master_filter = "${prefix}${PRINTER_FILTER_DIR}master-filter";
+
+
+    unless ($::testing) {
+	copy($master_filter, $complete_path) or die "Can't copy $master_filter to $complete_path $!";
+    } 
+    
+    
+}
+
+#------------------------------------------------------------------------------
+# given a PrintCap Entry, create the spool dir and special 
+# rhs-printfilters related config files which are required
+#------------------------------------------------------------------------------
+my $intro_printcap_test="
+#
+# Please don't edit this file directly unless you know what you are doing!
+# Look at the printcap(5) man page for more info.
+# Be warned that the control-panel printtool requires a very strict format!
+# Look at the printcap(5) man page for more info.
+#
+# This file can be edited with the printtool in the control-panel.
+#
+
+";
+
+
+sub configure_queue($) {
+    my ($entry) = @_;
+
+    $entry->{SPOOLDIR} ||= "$SPOOLDIR";
+    $entry->{IF}       ||= "$SPOOLDIR$entry->{QUEUE}/filter";
+    $entry->{AF}       ||= "$SPOOLDIR$entry->{QUEUE}/acct";
+    
+    my $queue_path      = "$entry->{SPOOLDIR}";
+    create_spool_dir($queue_path);
+
+    my $get_name_file = sub { 
+	my ($name) = @_; 
+	("${PRINTER_FILTER_DIR}$name.in)", "$entry->{SPOOLDIR}$name")
+    };
+    my ($filein, $file);
+    my %fieldname = ();
+    my $dbentry = $thedb{($entry->{DBENTRY})} or die "no dbentry";
+
+
+    ($filein, $file) = &$get_name_file("general.cfg");
+    $fieldname{desiredto}   = ($entry->{GSDRIVER} eq "TEXT") ? "ps" : "asc";
+    $fieldname{papersize}   = ($entry->{PAPERSIZES}) ? $entry->{PAPERSIZES} : "letter";
+    $fieldname{printertype} = ($entry)->{TYPE};
+    $fieldname{ascps_trans} = ($dbentry->{GSDRIVER} eq "POSTSCRIPT") ? 
+      "NO" : "YES";
+    create_config_file($filein,$file, %fieldname);
+
+    # successfully created general.cfg, now do postscript.cfg 
+    ($filein, $file) = &$get_name_file("postscript.cfg");
+    %fieldname = ();
+    $fieldname{gsdevice}       = $dbentry->{GSDRIVER};
+    $fieldname{papersize}      = ($entry->{PAPERSIZES}) ? $entry->{PAPERSIZES} : "letter";
+    $fieldname{resolution}     = ($entry->{RESOLUTION} eq "Default") ? "Default" : "";
+    $fieldname{color}          = 
+      do {
+	  if ($dbentry->{GSDRIVER} eq "uniprint") {
+	      ($entry->{BITSPERPIXEL} eq "Default") ? "-dBitsPerPixel=Default" : "";
+	  } else {
+	      $entry->{BITSPERPIXEL};
+	  }
+      };
+    $fieldname{reversepages}   = "NO";
+    $fieldname{extragsoptions} = "";
+    $fieldname{pssendeof}      = ($dbentry->{GSDRIVER} eq "POSTSCRIPT") ?
+      "NO" : "YES";
+    $fieldname{nup}            = "1";
+    $fieldname{rtlftmar}       = "18";
+    $fieldname{topbotmar}      = "18";
+    create_config_file($filein, $file, %fieldname);
+	
+    # finally, make textonly.cfg
+    ($filein, $file) = &$get_name_file("textonly.cfg");
+    %fieldname = ();
+    $fieldname{textonlyoptions} = "";
+    $fieldname{crlftrans}       = $entry->{CRLF};
+    $fieldname{textsendeof}     = "1";
+    create_config_file($filein, $file, %fieldname);
+
+	
+    unless ($::testing) {
+	if ($entry->{TYPE} eq $PRINTER_SMB) {
+	    # simple config file required if SMB printer
+	    my $config_file = "${prefix}${queue_path}.config";
+	    local *CONFFILE;
+	    open CONFFILE, ">$config_file" or die "Can't create $config_file $!";
+	    print CONFFILE "share='\\\\$entry->{SMBHOST}\\$entry->{SMBSHARE}'\n";
+	    print CONFFILE "hostip='$entry->{SMBHOSTIP}'\n";
+	    print CONFFILE "user='$entry->{SMBUSER}'\n";
+	    print CONFFILE "password='$entry->{SMBPASSWD}'\n";
+	    print CONFFILE "workgroup='$entry->{SMBWORKGROUP}'\n";
+	} elsif ($entry->{TYPE} eq $PRINTER_NCP) {
+	    # same for NCP printer
+	    my $config_file = "${prefix}${queue_path}.config";
+	    local *CONFFILE;
+	    open CONFFILE, ">$config_file" or die "Can't create $config_file $!";
+	    print CONFFILE "server=$entry->{NCPHOST}\n";
+	    print CONFFILE "queue=$entry->{NCPQUEUE}\n";
+	    print CONFFILE "user=$entry->{NCPUSER}\n";
+	    print CONFFILE "password=$entry->{NCPPASSWD}\n";
+	}
+    }
+
+    copy_master_filter($queue_path);
+
+    #now the printcap file
+    local *PRINTCAP;
+    if ($::testing) {
+	open PRINTCAP, ">${prefix}etc/printcap" or die "Can't open printcap file $!";
+    } else {
+	*PRINTCAP = *STDOUT;
+    }
+    
+    print PRINTCAP $intro_printcap_test;
+    printf PRINTCAP "##PRINTTOOL3##  %s %s %s %s %s %s %s \n",
+      $entry->{TYPE},
+	$dbentry->{GSDRIVER},
+	  $entry->{RESOLUTION},
+	    $entry->{PAPERSIZE},
+	      "{}",
+		$dbentry->{ENTRY},
+		  $entry->{BITSPERPIXEL},
+		    ($entry->{CRLF} eq "YES") ? "1" : "";
+
+	
+    print PRINTCAP "$entry->{QUEUE}:\\\n";
+    print PRINTCAP "\t:sd=$entry->{SPOOLDIR}:\\\n";
+    print PRINTCAP "\t:mx#0:\\\n\t:sh:\\\n";
+	   
+    if ($entry->{TYPE} eq $PRINTER_LOCAL) {
+	print PRINTCAP "\t:lp=$entry->{DEVICE}:\\\n";
+    } elsif ($entry->{TYPE} eq $PRINTER_LPRREM) { 
+	print PRINTCAP "\t:rm=$entry->{REMOTEHOST}:\\\n";
+	print PRINTCAP "\t:rp=$entry->{REMOTEQUEUE}:\\\n";
+    } else {
+	# (pcentry->Type == (PRINTER_SMB | PRINTER_NCP))
+	print PRINTCAP "\t:lp=/dev/null:\\\n";
+	print PRINTCAP "\t:af=$entry->{SPOOLDIR}acct\\\n";
+    }
+
+    # cheating to get the input filter!
+    print PRINTCAP "\t:if=$entry->{SPOOLDIR}filter:\n";
+	
+}
+
+
+#------------------------------------------------------------------------------
+#interface function 
+#------------------------------------------------------------------------------
+
+sub 
+#pixel stuff
+my ($o, $in);
+    
+
+#------------------------------------------------------------------------------
+#fonction de test
+#------------------------------------------------------------------------------
+sub test {
+    $::testing = 1;
+    $printer::prefix="";
+
+    read_printer_db();
+
+    print "the dump\n";
+    print Dumper(%thedb);
+
+
+    #
+    #eval { printer::create_spool_dir("/tmp/titi/", ".") };
+    #print $@;
+    #eval { printer::copy_master_filter("/tmp/titi/", ".") };
+    #print $@;
+    #
+    #
+    #eval { printer::create_config_file("files/postscript.cfg.in", "files/postscript.cfg","./",
+    #				    (
+    #				     gsdevice   => "titi",
+    #				     resolution => "tata",
+    #				    ));
+    #   };
+    #print $@;
+    #
+    #
+    #
+    #printer::configure_queue(\%printer::ex_printcap_entry, "/");
+}
+
+########################################################################################
+# Wonderful perl :(
+########################################################################################
+1; #