diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-11-03 17:16:06 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-11-03 17:16:06 +0000 |
| commit | d48d8570000ed98e72d8dc7827167741e5142a4f (patch) | |
| tree | c64f51d4f907e8513c4d742a95763893808e9e76 /perl-install/printer.pm | |
| parent | b58392362e2ddf85271dae90c15d48215921d224 (diff) | |
| download | drakx-backup-do-not-use-d48d8570000ed98e72d8dc7827167741e5142a4f.tar drakx-backup-do-not-use-d48d8570000ed98e72d8dc7827167741e5142a4f.tar.gz drakx-backup-do-not-use-d48d8570000ed98e72d8dc7827167741e5142a4f.tar.bz2 drakx-backup-do-not-use-d48d8570000ed98e72d8dc7827167741e5142a4f.tar.xz drakx-backup-do-not-use-d48d8570000ed98e72d8dc7827167741e5142a4f.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/printer.pm')
| -rw-r--r-- | perl-install/printer.pm | 35 |
1 files changed, 18 insertions, 17 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm index 6b659a4dc..d46002c6c 100644 --- a/perl-install/printer.pm +++ b/perl-install/printer.pm @@ -427,9 +427,9 @@ sub configure_queue($) { ($filein, $file) = &$get_name_file("general.cfg"); - $fieldname{ascps_trans} = ($dbentry->{GSDRIVER} eq "POSTSCRIPT") ? "NO" : "YES"; - $fieldname{desiredto} = ($entry->{GSDRIVER} eq "TEXT") ? "ps" : "asc"; - $fieldname{papersize} = $entry->{PAPERSIZES} ? $entry->{PAPERSIZES} : "letter"; + $fieldname{ascps_trans} = ($dbentry->{GSDRIVER} eq "POSTSCRIPT") ? "YES" : "NO"; + $fieldname{desiredto} = ($dbentry->{GSDRIVER} ne "TEXT") ? "ps" : "asc"; + $fieldname{papersize} = $entry->{PAPERSIZE} ? $entry->{PAPERSIZE} : "letter"; $fieldname{printertype} = $entry->{TYPE}; create_config_file($filein, $file, %fieldname); @@ -437,19 +437,20 @@ sub configure_queue($) { ($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{papersize} = $entry->{PAPERSIZE} ? $entry->{PAPERSIZE} : "letter"; + $fieldname{resolution} = $entry->{RESOLUTION}; #-($entry->{RESOLUTION} eq "Default") ? "Default" : ""; + $fieldname{color} = $entry->{BITSPERPIXEL} ne "Default" && + (($dbentry->{GSDRIVER} ne "uniprint" && "-dBitsPerPixel=") . $entry->{BITSPERPIXEL}); +#- do { +#- if ($dbentry->{GSDRIVER} ne "uniprint") { +#- ($entry->{BITSPERPIXEL} eq "Default") ? "-dBitsPerPixel=Default" : ""; +#- } else { +#- $entry->{BITSPERPIXEL}; +#- } +#- }; $fieldname{reversepages} = "NO"; $fieldname{extragsoptions} = ""; - $fieldname{pssendeof} = ($dbentry->{GSDRIVER} eq "POSTSCRIPT") ? "NO" : "YES"; + $fieldname{pssendeof} = ($dbentry->{GSDRIVER} ne "POSTSCRIPT") ? "NO" : "YES"; $fieldname{nup} = "1"; $fieldname{rtlftmar} = "18"; $fieldname{topbotmar} = "18"; @@ -460,7 +461,7 @@ sub configure_queue($) { %fieldname = (); $fieldname{textonlyoptions} = ""; $fieldname{crlftrans} = $entry->{CRLF} ? "YES" : ""; - $fieldname{textsendeof} = "1"; + $fieldname{textsendeof} = ($dbentry->{GSDRIVER} eq "POSTSCRIPT") ? "NO" : "YES"; create_config_file($filein, $file, %fieldname); if ($entry->{TYPE} eq "SMB") { @@ -495,7 +496,7 @@ sub configure_queue($) { } print PRINTCAP $intro_printcap_test; - printf PRINTCAP "##PRINTTOOL3## %s %s %s %s %s %s %s \n", + printf PRINTCAP "##PRINTTOOL3## %s %s %s %s %s %s %s%s\n", $entry->{TYPE}, $dbentry->{GSDRIVER}, $entry->{RESOLUTION}, @@ -503,7 +504,7 @@ sub configure_queue($) { "{}", $dbentry->{ENTRY}, $entry->{BITSPERPIXEL}, - $entry->{CRLF} ? "1" : ""; + $entry->{CRLF} ? " 1" : ""; print PRINTCAP "$entry->{QUEUE}:\\\n"; |