printer related modules cleaning :

- create the printer/ hierarchy

- split services related stuff into services.pm & printer::services,

- move things that've nothing to do with printers into common.pm
  (alternatives, permissions, ...)

- move eveything related to cups, gimp-print, detection,
  {star,open}office to the corresponding splited printer:: module

- big consolidation of printer::office (it was obvious there were tons
  of duplication between staroffice and openoffice managment)

- move other stuff into printer::main, printer::common,

status : print.pm has been heavily splited (now one can begin to
understand the little bits).
printerdrake still needs to be splited/cleaned and eventually removed
since printer/printerdrake modules separation is not understandable by
other people

till, in printer::gimp, $lprcommand is neither declared nor setted
nowhere.  idem in mdk9.0 ...

1 files changed, 37 insertions, 0 deletions

diff --git a/perl-install/printer/data.pm b/perl-install/printer/data.pm
new file mode 100644
index 000000000..0c7a29eed
--- /dev/null
+++ b/perl-install/printer/data.pm
@@ -0,0 +1,37 @@
+package printer::data;
+
+use strict;
+use common;
+
+# BUG, FIXME : this was neither declered nor setted anywhere before :
+# maybe this should be swtiched : 
+# $lprcommand{stuff} => $spoolers{stuff}{print_command}
+
+our %lprcommand;
+
+our %spoolers = ('ppq' => {
+                          'help' => "/usr/bin/lphelp %s |",
+					 'print_command' => 'lpr-pdq',
+					 'long_name' =>N("PDQ - Print, Don't Queue"),
+					 'short_name' => N("PDQ")
+                 },
+                'lpd' => {
+                        'help' => "/usr/bin/pdq -h -P %s 2>&1 |",
+                        'print_command' => 'lpr',
+				    'long_name' => N("LPD - Line Printer Daemon"),
+					   'short_name' => N("LPD")
+                 },
+			 'lprng' => {
+				'print_command' => 'lpr-lpd',
+				'long_name' => N("LPRng - LPR New Generation"),
+				'short_name' => N("LPRng")
+			 },
+			 'cups' => {
+				'print_command' => 'lpr-cups',
+				'long_name' => N("CUPS - Common Unix Printing System"),
+				'short_name' => N("CUPS")
+			 }
+            );
+our %spooler_inv = map { $spoolers{$_}{long_name} => $_ } keys %spoolers;
+
+our %shortspooler_inv = map { $spoolers{$_}{short_name} => $_ } keys %spoolers;