diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/printer.pm | 537 |
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; # |