summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer.pm537
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; #