diff options
Diffstat (limited to 'perl-install/printer/data.pm')
| -rw-r--r-- | perl-install/printer/data.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/printer/data.pm b/perl-install/printer/data.pm index 3a105496a..c5d1a385a 100644 --- a/perl-install/printer/data.pm +++ b/perl-install/printer/data.pm @@ -5,9 +5,15 @@ use common; use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); -@EXPORT = qw(%spoolers %spooler_inv %shortspooler_inv); +@EXPORT = qw(%spoolers %spooler_inv %shortspooler_inv + $kernelversion $usbprintermodule); +our $kernelversion = `uname -r 2>/dev/null`; +$kernelversion =~ s/^(\s*)(\d+\.\d+)(\..*)$/$2/; + +our $usbprintermodule = ($kernelversion eq '2.6' ? "usblp" : "printer"); + our %spoolers = ('pdq' => { 'help' => "/usr/bin/pdq -h -P %s 2>&1 |", 'print_command' => 'lpr-pdq', |