summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2003-09-08 01:22:26 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2003-09-08 01:22:26 +0000
commit46067f935cbb0ac99449fe2eac7d72acec2e2065 (patch)
tree93302bcf37e6578ce866ccd87356571b59d6bf58 /perl-install
parent8b404d3394a1812d7bc01ff6fcec1c39b59d6c97 (diff)
downloaddrakx-backup-do-not-use-46067f935cbb0ac99449fe2eac7d72acec2e2065.tar
drakx-backup-do-not-use-46067f935cbb0ac99449fe2eac7d72acec2e2065.tar.gz
drakx-backup-do-not-use-46067f935cbb0ac99449fe2eac7d72acec2e2065.tar.bz2
drakx-backup-do-not-use-46067f935cbb0ac99449fe2eac7d72acec2e2065.tar.xz
drakx-backup-do-not-use-46067f935cbb0ac99449fe2eac7d72acec2e2065.zip
- Use a field in the $printer data structure and no a global variable
for the expert mode. - Fixed bug of database not being re-read when switching between normal and expert mode with the new GTK2 main window.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/cups.pm2
-rw-r--r--perl-install/printer/main.pm27
-rw-r--r--perl-install/printer/printerdrake.pm110
-rwxr-xr-xperl-install/standalone/printerdrake20
4 files changed, 83 insertions, 76 deletions
diff --git a/perl-install/printer/cups.pm b/perl-install/printer/cups.pm
index d0b89eabf..468625d65 100644
--- a/perl-install/printer/cups.pm
+++ b/perl-install/printer/cups.pm
@@ -96,7 +96,7 @@ sub get_formatted_remote_queues {
# CUPS daemon knows due to broadcasting of remote servers or
# "BrowsePoll" entries in the local /etc/cups/cupsd.conf/
map {
- join('!', if_($::expert, N("CUPS")), N("Configured on other machines"), $_);
+ join('!', if_($printer->{expert}, N("CUPS")), N("Configured on other machines"), $_);
} map {
my $comment = N("On CUPS server \"%s\"", $_->{ipp}) . ($_->{queuename} eq $printer->{DEFAULT} ? N(" (Default)") : "");
"$_->{queuename}: $comment";
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 36e24806e..d236adbd6 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -63,10 +63,10 @@ sub spooler() {
sub printer_type($) {
my ($printer) = @_;
for ($printer->{SPOOLER}) {
- /cups/ and return @printer_type_inv{qw(LOCAL LPD SOCKET SMB), if_($::expert, qw(URI))};
- /lpd/ and return @printer_type_inv{qw(LOCAL LPD SOCKET SMB NCP), if_($::expert, qw(POSTPIPE URI))};
- /lprng/ and return @printer_type_inv{qw(LOCAL LPD SOCKET SMB NCP), if_($::expert, qw(POSTPIPE URI))};
- /pdq/ and return @printer_type_inv{qw(LOCAL LPD SOCKET), if_($::expert, qw(URI))};
+ /cups/ and return @printer_type_inv{qw(LOCAL LPD SOCKET SMB), if_($printer->{expert}, qw(URI))};
+ /lpd/ and return @printer_type_inv{qw(LOCAL LPD SOCKET SMB NCP), if_($printer->{expert}, qw(POSTPIPE URI))};
+ /lprng/ and return @printer_type_inv{qw(LOCAL LPD SOCKET SMB NCP), if_($printer->{expert}, qw(POSTPIPE URI))};
+ /pdq/ and return @printer_type_inv{qw(LOCAL LPD SOCKET), if_($printer->{expert}, qw(URI))};
}
}
@@ -371,11 +371,11 @@ sub make_menuentry {
} elsif ($connect =~ m!^postpipe:(.+)$!) {
$connection = N(", using command %s", $1);
} else {
- $connection = ($::expert ? ", URI: $connect" : "");
+ $connection = ($printer->{expert} ? ", URI: $connect" : "");
}
my $sep = "!";
$printer->{configured}{$queue}{queuedata}{menuentry} =
- ($::expert ? "$spooler$sep" : "") .
+ ($printer->{expert} ? "$spooler$sep" : "") .
"$localremote$sep$queue: $make $model$connection";
}
@@ -427,9 +427,9 @@ sub connectionstr {
return $connection;
}
-sub read_printer_db(;$) {
+sub read_printer_db {
- my $spooler = $_[0];
+ my ($printer, $spooler) = @_;
local *DBPATH; #- don't have to do close ... and don't modify globals at least
# Generate the Foomatic printer/driver overview, read it from the
@@ -503,7 +503,7 @@ sub read_printer_db(;$) {
# Expert mode:
# Make one database entry per driver with the entry name
# manufacturer|model|driver
- if ($::expert) {
+ if ($printer->{expert}) {
foreach my $driver (@{$entry->{drivers}}) {
my $driverstr;
if ($driver eq "Postscript") {
@@ -575,7 +575,7 @@ sub read_printer_db(;$) {
#- Load CUPS driver database if CUPS is used as spooler
if ($spooler && $spooler eq "cups") {
- poll_ppd_base();
+ poll_ppd_base($printer);
}
#my @entries_db_short = sort keys %printer::thedb;
@@ -669,7 +669,7 @@ sub set_usermode {
return $usermode;
}
-sub get_usermode() { $::expert = $sysconfig{USER_MODE} eq 'expert' ? 1 : 0 }
+sub get_usermode() { $sysconfig{USER_MODE} eq 'expert' ? 1 : 0 }
sub set_jap_textmode {
my $textmode = ($_[0] ? 'cjk' : '');
@@ -1528,7 +1528,7 @@ sub get_descr_from_ppd {
my $make = $ppd{Manufacturer};
my $lang = $ppd{LanguageVersion};
my $entry = ppd_entry_str($make, $descr, $lang);
- if (!$::expert) {
+ if (!$printer->{expert}) {
# Remove driver from printer list entry when in recommended mode
$entry =~ s/^([^\|]+\|[^\|]+)\|.*$/$1/;
}
@@ -1553,6 +1553,7 @@ sub ppd_devid_data {
}
sub poll_ppd_base() {
+ my ($printer) = @_;
#- Before trying to poll the ppd database available to cups, we have
#- to make sure the file /etc/cups/ppds.dat is no more modified.
#- If cups continue to modify it (because it reads the ppd files
@@ -1605,7 +1606,7 @@ sub poll_ppd_base() {
# Foomatic
$key = $keynolang;
}
- if (!$::expert) {
+ if (!$printer->{expert}) {
# Remove driver from printer list entry when in
# recommended mode
$key =~ s/^([^\|]+\|[^\|]+)\|.*$/$1/;
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index b61ab9675..d8ce1472d 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -96,7 +96,7 @@ sub config_cups {
help => N("Turning on this allows to print plain text files in japanese language. Only use this function if you really want to print text in japanese, if it is activated you cannot print accentuated characters in latin fonts any more and you will not be able to adjust the margins, the character size, etc. This setting only affects printers defined on this machine. If you want to print japanese text on a printer set up on a remote machine, you have to activate this function on that remote machine."),
type => 'bool',
val => \$jap_textmode },
- if_($::expert,
+ if_($printer->{expert},
{ text => N("Automatic correction of CUPS configuration"),
type => 'bool',
help => N("When this option is turned on, on every startup of CUPS it is automatically made sure that
@@ -606,7 +606,7 @@ sub configure_new_printers {
# Experts can have weird things as self-made CUPS backends, so do not
# automatically pollute the system with unwished queues in expert
# mode
- return 1 if $::expert;
+ return 1 if $printer->{expert};
# Wait message
my $w = $in->wait_message(N("Printerdrake"),
@@ -792,7 +792,7 @@ sub wizard_welcome {
# If networking is configured, start it, but don't ask the user to
# configure networking.
my $havelocalnetworks;
- if ($::expert) {
+ if ($printer->{expert}) {
$havelocalnetworks = 0;
undef $printer->{AUTODETECTNETWORK};
undef $printer->{AUTODETECTSMB};
@@ -809,7 +809,7 @@ sub wizard_welcome {
}
if ($in) {
eval {
- if ($::expert) {
+ if ($printer->{expert}) {
if ($::isWizard) {
$ret = $in->ask_okcancel(
N("Add a new printer"),
@@ -895,7 +895,7 @@ If you want to add, remove, or rename a printer, or if you want to change the de
sub setup_local_autoscan {
my ($printer, $in, $upNetwork) = @_;
my $queue = $printer->{OLD_QUEUE};
- my $expert_or_modify = $::expert || !$printer->{NEW};
+ my $expert_or_modify = $printer->{expert} || !$printer->{NEW};
my $do_auto_detect =
($expert_or_modify &&
$printer->{AUTODETECT} ||
@@ -944,7 +944,7 @@ sub setup_local_autoscan {
} elsif ($p->{port} =~ m!^smb://([^/:]+)/([^/:]+)$!) {
$menustr .= N(", printer \"%s\" on SMB/Windows server \"%s\"", $2, $1);
}
- $menustr .= " ($p->{port})" if $::expert;
+ $menustr .= " ($p->{port})" if $printer->{expert};
$menuentries->{$menustr} = $p->{port};
push @str, N("Detected %s", $menustr);
} else {
@@ -958,12 +958,12 @@ sub setup_local_autoscan {
} elsif ($p->{port} =~ m!^smb://([^/:]+)/([^/:]+)$!) {
$menustr .= N("Printer \"%s\" on SMB/Windows server \"%s\"", $2, $1);
}
- $menustr .= " ($p->{port})" if $::expert;
+ $menustr .= " ($p->{port})" if $printer->{expert};
$menuentries->{$menustr} = $p->{port};
}
}
my @port;
- if ($::expert) {
+ if ($printer->{expert}) {
@port = printer::detect::whatPrinterPort();
LOOP: foreach my $q (@port) {
if (@str) {
@@ -977,7 +977,7 @@ sub setup_local_autoscan {
} elsif ($q =~ m!^/dev/usb/lp(\d+)$!) {
$menustr = N("USB printer #%s", $1);
}
- $menustr .= " ($q)" if $::expert;
+ $menustr .= " ($q)" if $printer->{expert};
$menuentries->{$menustr} = $q;
}
}
@@ -991,10 +991,10 @@ sub setup_local_autoscan {
my $m;
for ($m = 0; $m <= 2; $m++) {
my $menustr = N("Printer on parallel port #%s", $m);
- $menustr .= " (/dev/lp$m)" if $::expert;
+ $menustr .= " (/dev/lp$m)" if $printer->{expert};
$menuentries->{$menustr} = "/dev/lp$m";
$menustr = N("USB printer #%s", $m);
- $menustr .= " (/dev/usb/lp$m)" if $::expert;
+ $menustr .= " (/dev/usb/lp$m)" if $printer->{expert};
$menuentries->{$menustr} = "/dev/usb/lp$m";
}
}
@@ -1028,12 +1028,12 @@ sub setup_local_autoscan {
$device = $menuentries->{$menuchoice} if $device eq "";
}
if ($in) {
-# $::expert or $in->set_help('configurePrinterDev') if $::isInstall;
+# $printer->{expert} or $in->set_help('configurePrinterDev') if $::isInstall;
if ($#menuentrieslist < 0) { # No menu entry
# auto-detection has failed, we must do all manually
$do_auto_detect = 0;
$printer->{MANUAL} = 1;
- if ($::expert) {
+ if ($printer->{expert}) {
$device = $in->ask_from_entry(
N("Local Printer"),
N("No local printer found! To manually install a printer enter a device name/file name in the input line (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1st USB printer: /dev/usb/lp0, 2nd USB printer: /dev/usb/lp1, ...)."),
@@ -1060,7 +1060,7 @@ sub setup_local_autoscan {
N("Local Printers") :
N("Available printers")),
messages => (($do_auto_detect ?
- ($::expert ?
+ ($printer->{expert} ?
($#menuentrieslist == 0 ?
(N("The following printer was auto-detected. ") .
($printer->{NEW} ?
@@ -1079,10 +1079,10 @@ sub setup_local_autoscan {
($printer->{NEW} ?
N("Please choose the printer you want to set up. The configuration of the printer will work fully automatically. If your printer was not correctly detected or if you prefer a customized printer configuration, turn on \"Manual configuration\".") :
N("Please choose the printer to which the print jobs should go."))))) :
- ($::expert ?
+ ($printer->{expert} ?
N("Please choose the port that your printer is connected to or enter a device name/file name in the input line") :
N("Please choose the port that your printer is connected to."))) .
- if_($::expert,
+ if_($printer->{expert},
N(" (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1st USB printer: /dev/usb/lp0, 2nd USB printer: /dev/usb/lp1, ...)."))),
callbacks => {
complete => sub {
@@ -1101,11 +1101,11 @@ sub setup_local_autoscan {
}
} },
[
- if_($::expert, { val => \$device }),
+ if_($printer->{expert}, { val => \$device }),
{ val => \$menuchoice, list => \@menuentrieslist,
- not_edit => !$::expert, format => \&translate,
+ not_edit => !$printer->{expert}, format => \&translate,
allow_empty_list => 1, type => 'list' },
- if_(!$::expert && $do_auto_detect && $printer->{NEW},
+ if_(!$printer->{expert} && $do_auto_detect && $printer->{NEW},
{ text => N("Manual configuration"), type => 'bool',
val => \$manualconf }),
]
@@ -1361,7 +1361,7 @@ Use a password-less account on your Windows server, as the \"GUEST\" account or
Set up your Windows server to make the printer available under the LPD protocol. Then set up printing from this machine with the \"%s\" connection type in Printerdrake.
", N("Printer on remote lpd server")) .
- ($::expert ?
+ ($printer->{expert} ?
N("Set up your Windows server to make the printer available under the IPP protocol and set up printing from this machine with the \"%s\" connection type in Printerdrake.
", N("Enter a printer device URI")) : "") .
@@ -1928,7 +1928,7 @@ sub setup_common {
my $_w = $in->wait_message
(N("Printerdrake"), N("Reading printer database..."))
if !$printer->{noninteractive};
- printer::main::read_printer_db($printer->{SPOOLER});
+ printer::main::read_printer_db($printer, $printer->{SPOOLER});
}
#- Search the database entry which matches the detected printer best
@@ -2041,7 +2041,7 @@ sub setup_common {
# Try to match the (human-readable) make and model of the
# Foomatic database or of thr PPD file
my $dbmakemodel;
- if ($::expert) {
+ if ($printer->{expert}) {
$dbmakemodel = $1 if $entry =~ m/^(.*)\|[^\|]*$/;
} else {
$dbmakemodel = $entry;
@@ -2167,7 +2167,7 @@ sub get_db_entry {
my $_w = $in->wait_message(N("Printerdrake"),
N("Reading printer database..."))
if $printer->{noninteractive};
- printer::main::read_printer_db($printer->{SPOOLER});
+ printer::main::read_printer_db($printer, $printer->{SPOOLER});
}
my $_w = $in->wait_message(N("Printerdrake"),
N("Preparing printer database..."))
@@ -2185,7 +2185,7 @@ sub get_db_entry {
}
my $make = uc($printer->{configured}{$queue}{queuedata}{make});
my $model = $printer->{configured}{$queue}{queuedata}{model};
- if ($::expert) {
+ if ($printer->{expert}) {
$printer->{DBENTRY} = "$make|$model|$driverstr";
# database key contains the "(recommended)" for the
# recommended driver, so add it if necessary
@@ -2225,9 +2225,9 @@ sub get_db_entry {
}
}
foreach my $key (keys %printer::main::thedb) {
- if ($::expert &&
+ if ($printer->{expert} &&
$key =~ /^$make\|$model\|.*\(recommended\)$/ ||
- !$::expert && $key =~ /^$make\|$model$/) {
+ !$printer->{expert} && $key =~ /^$make\|$model$/) {
$printer->{DBENTRY} = $key;
}
}
@@ -2239,8 +2239,8 @@ sub get_db_entry {
$model =~ s/PostScript//i;
$model =~ s/Series//i;
foreach my $key (keys %printer::main::thedb) {
- if ($::expert && $key =~ /^$make\|$model\|.*\(recommended\)$/ ||
- !$::expert && $key =~ /^$make\|$model$/) {
+ if ($printer->{expert} && $key =~ /^$make\|$model\|.*\(recommended\)$/ ||
+ !$printer->{expert} && $key =~ /^$make\|$model$/) {
$printer->{DBENTRY} = $key;
}
}
@@ -2263,7 +2263,7 @@ sub get_db_entry {
$printer->{OLD_CHOICE} = "XXX";
}
} else {
- if ($::expert && $printer->{DBENTRY} !~ /(recommended)/) {
+ if ($printer->{expert} && $printer->{DBENTRY} !~ /(recommended)/) {
my ($make, $model) = $printer->{DBENTRY} =~ /^([^\|]+)\|([^\|]+)\|/;
foreach my $key (keys %printer::main::thedb) {
if ($key =~ /^$make\|$model\|.*\(recommended\)$/) {
@@ -2310,7 +2310,7 @@ sub choose_model {
if (keys %printer::main::thedb == 0) {
my $_w = $in->wait_message(N("Printerdrake"),
N("Reading printer database..."));
- printer::main::read_printer_db($printer->{SPOOLER});
+ printer::main::read_printer_db($printer, $printer->{SPOOLER});
}
if (!member($printer->{DBENTRY}, keys(%printer::main::thedb))) {
$printer->{DBENTRY} = N("Raw printer (No driver)");
@@ -2686,7 +2686,7 @@ You should make sure that the page size and the ink type/printing mode (if avail
# Show the options dialog. The call-back function does a
# range check of the numerical options.
my $windowtitle = "$printer->{currentqueue}{make} $printer->{currentqueue}{model}";
- if ($::expert) {
+ if ($printer->{expert}) {
my $driver;
if ($driver = $printer->{currentqueue}{driver}) {
if ($printer->{currentqueue}{foomatic}) {
@@ -2714,7 +2714,7 @@ You should make sure that the page size and the ink type/printing mode (if avail
}
# Do not show the options setup dialog when installing a new printer
# in recommended mode without "Manual configuration" turned on.
- if ((!$printer->{NEW} || $::expert || $printer->{MANUAL}) &&
+ if ((!$printer->{NEW} || $printer->{expert} || $printer->{MANUAL}) &&
!$printer->{noninteractive}) {
return 0 if !$in->ask_from(
$windowtitle,
@@ -2829,10 +2829,10 @@ Note: the photo test page can take a rather long time to get printed and on lase
[
{ text => N("Standard test page"), type => 'bool',
val => \$options{standard} },
- if_($::expert,
+ if_($printer->{expert},
{ text => N("Alternative test page (Letter)"), type => 'bool',
val => \$options{altletter} }),
- if_($::expert,
+ if_($printer->{expert},
{ text => N("Alternative test page (A4)"), type => 'bool',
val => \$options{alta4} }),
{ text => N("Photo test page"), type => 'bool', val => \$options{photo} },
@@ -3564,7 +3564,7 @@ sub init {
# Save the user mode, so that the same one is used on the next start
# of Printerdrake
- printer::main::set_usermode($::expert);
+ printer::main::set_usermode($printer->{expert});
# printerdrake does not work without foomatic, and for more
# convenience we install some more stuff
@@ -3592,7 +3592,7 @@ sub init {
}
# only experts should be asked for the spooler
- $printer->{SPOOLER} ||= 'cups' if !$::expert;
+ $printer->{SPOOLER} ||= 'cups' if !$printer->{expert};
}
@@ -3653,7 +3653,7 @@ sub mainwindow_interactive {
# have a local network, to suppress some buttons in the
# recommended mode
my $havelocalnetworks_or_expert =
- $::expert ||
+ $printer->{expert} ||
check_network($printer, $in, $upNetwork, 1) &&
printer::detect::getIPsInLocalNetworks() != ();
# $in->set_help('mainMenu') if $::isInstall;
@@ -3722,7 +3722,7 @@ sub mainwindow_interactive {
1;
},
val => N("CUPS configuration") }) : ()),
- ($::expert &&
+ ($printer->{expert} &&
(files_exist(qw(/usr/bin/pdq)) ||
files_exist(qw(/usr/lib/filters/lpf
/usr/sbin/lpd))) ?
@@ -3742,7 +3742,7 @@ sub mainwindow_interactive {
$menuchoice = "\@usermode";
1
},
- val => ($::expert ? N("Normal Mode") :
+ val => ($printer->{expert} ? N("Normal Mode") :
N("Expert Mode")) },
{ clicked_may_quit =>
sub { $menuchoice = "\@quit"; 1 },
@@ -3751,14 +3751,14 @@ sub mainwindow_interactive {
]);
# Toggle expert mode and standard mode
if ($menuchoice eq "\@usermode") {
- $::expert = printer::main::set_usermode(!$::expert);
+ $printer->{expert} = printer::main::set_usermode(!$printer->{expert});
# Read printer database for the new user mode
%printer::main::thedb = ();
# Modify menu entries to switch the tree
# structure between expert/normal mode.
my $spooler =
$spoolers{$printer->{SPOOLER}}{short_name};
- if ($::expert) {
+ if ($printer->{expert}) {
foreach (keys(%{$printer->{configured}})) {
$printer->{configured}{$_}{queuedata}{menuentry} =~
s/^/$spooler!/;
@@ -3897,25 +3897,25 @@ sub add_printer {
# eval to catch wizard cancel. The wizard stuff
# should be in a separate function with steps. see
# drakgw.
- $::expert or $printer->{TYPE} = "LOCAL";
+ $printer->{expert} or $printer->{TYPE} = "LOCAL";
step_1:
- !$::expert or choose_printer_type($printer, $in) or
+ !$printer->{expert} or choose_printer_type($printer, $in) or
goto step_0;
step_2:
setup_printer_connection($printer, $in, $upNetwork) or
do {
- goto step_1 if $::expert;
+ goto step_1 if $printer->{expert};
goto step_0;
};
step_3:
- if ($::expert || $printer->{MANUAL} ||
+ if ($printer->{expert} || $printer->{MANUAL} ||
$printer->{MORETHANONE}) {
choose_printer_name($printer, $in) or
goto step_2;
}
get_db_entry($printer, $in);
step_3_9:
- if (!$::expert && !$printer->{MANUAL}) {
+ if (!$printer->{expert} && !$printer->{MANUAL}) {
is_model_correct($printer, $in) or do {
goto step_3 if $printer->{MORETHANONE};
goto step_2;
@@ -3924,7 +3924,7 @@ sub add_printer {
step_4:
# Remember DB entry for "Previous" button in wizard
my $dbentry = $printer->{DBENTRY};
- if ($::expert || $printer->{MANUAL} ||
+ if ($printer->{expert} || $printer->{MANUAL} ||
$printer->{MANUALMODEL}) {
choose_model($printer, $in) or do {
# Restore DB entry
@@ -3962,19 +3962,19 @@ sub add_printer {
};
wizard_close($in, 0) if $@ =~ /wizcancel/;
} else {
- $::expert or $printer->{TYPE} = "LOCAL";
+ $printer->{expert} or $printer->{TYPE} = "LOCAL";
wizard_welcome($printer, $in, $upNetwork) or return 0;
- !$::expert or choose_printer_type($printer, $in) or return 0;
+ !$printer->{expert} or choose_printer_type($printer, $in) or return 0;
setup_printer_connection($printer, $in, $upNetwork) or return 0;
- if ($::expert || $printer->{MANUAL} ||
+ if ($printer->{expert} || $printer->{MANUAL} ||
$printer->{MORETHANONE}) {
choose_printer_name($printer, $in) or return 0;
}
get_db_entry($printer, $in);
- if (!$::expert && !$printer->{MANUAL}) {
+ if (!$printer->{expert} && !$printer->{MANUAL}) {
is_model_correct($printer, $in) or return 0;
}
- if ($::expert || $printer->{MANUAL} ||
+ if ($printer->{expert} || $printer->{MANUAL} ||
$printer->{MANUALMODEL}) {
choose_model($printer, $in) or return 0;
}
@@ -4038,7 +4038,7 @@ sub edit_printer {
", Descr.: $printer->{configured}{$queue}{queuedata}{desc}" : '') .
($printer->{configured}{$queue}{queuedata}{loc} ?
", Loc.: $printer->{configured}{$queue}{queuedata}{loc}" : '') .
- ($::expert ?
+ ($printer->{expert} ?
", Driver: $printer->{configured}{$queue}{queuedata}{driver}" : '');
}
} else {
@@ -4063,7 +4063,7 @@ What do you want to modify on this printer?",
list => [ ($printer->{configured}{$queue} ?
(N("Printer connection type"),
N("Printer name, description, location"),
- ($::expert ?
+ ($printer->{expert} ?
N("Printer manufacturer, model, driver") :
N("Printer manufacturer, model")),
if_($printer->{configured}{$queue}{queuedata}{make} ne "" &&
@@ -4268,7 +4268,7 @@ sub final_cleanup {
}
delete($printer->{configured}{$queue}{queuedata}{menuentry});
}
- foreach (qw(Old_queue OLD_QUEUE QUEUE TYPE str_type currentqueue DBENTRY ARGS complete OLD_CHOICE NEW MORETHANONE MANUALMODEL AUTODETECT AUTODETECTLOCAL AUTODETECTNETWORK AUTODETECTSMB noninteractive))
+ foreach (qw(Old_queue OLD_QUEUE QUEUE TYPE str_type currentqueue DBENTRY ARGS complete OLD_CHOICE NEW MORETHANONE MANUALMODEL AUTODETECT AUTODETECTLOCAL AUTODETECTNETWORK AUTODETECTSMB noninteractive expert))
{ delete $printer->{$_} };
}
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index c392ba991..81c5d16e9 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -41,8 +41,6 @@ my $pixdir = '/usr/share/libDrakX/pixmaps/';
local $_ = join '', @ARGV;
-printer::main::get_usermode();
-
my $printer;
my $in = 'interactive'->vnew('su', if_(!$::isEmbedded, 'printer-mdk'));
@@ -78,14 +76,19 @@ if (0 && !$::isInstall && !$::isEmbedded) {
#gtkflush();
# Check whether Foomatic is installed and install it if necessary
-printer::printerdrake::install_foomatic($in);
+#printer::printerdrake::install_foomatic($in);
my $_w = $in->wait_message(N("Printerdrake"),
N("Reading data of installed printers..."));
# Get what was installed before
eval { $printer = printer::main::getinfo('') };
+
+# Were we in expert mode last time?
+$printer->{expert} = printer::main::get_usermode();
+
# Choose the spooler by command line options
+$commandline =~ /-expert/ and $printer->{expert} = 1;
$commandline =~ /-cups/ and
$printer->{SPOOLER} = 'cups' and printer::main::read_configured_queues($printer);
$commandline =~ /-lpr/ and
@@ -152,12 +155,15 @@ my ($menu, $factory) = create_factory_menu($::isEmbedded ? $::Plug : $us->{wnd}{
[ N("/_Actions") . N("/_Configure CUPS"), undef, \&ConfigCUPS, undef, '<StockItem>', 'gtk-config' ],
[ N("/_Options"), undef, undef, undef, '<Branch>' ],
[ join('', @{$options{expert}}), undef, sub {
- $::expert = $buttorcheck{expert}->get_active;
+ $printer->{expert} = $buttorcheck{expert}->get_active;
# Remember state of expert
# mode for next
# printerdrake session
- printer::main::set_usermode($::expert);
-
+ printer::main::set_usermode($printer->{expert});
+ # Read printer database
+ # for the new user mode
+ %printer::main::thedb =
+ ();
}, undef, '<CheckItem>' ],
[ N("/_Help"), undef, undef, undef, '<Branch>' ],
[ N("/_Help").N("/_Help"), undef, \&HelpSystem, undef, '<StockItem>', 'gtk-help' ],
@@ -170,7 +176,7 @@ my ($menu, $factory) = create_factory_menu($::isEmbedded ? $::Plug : $us->{wnd}{
}('default', 'edit', 'delete', 'expert');
if (defined $buttorcheck{expert}) {
- $buttorcheck{expert}->set_active($::expert);
+ $buttorcheck{expert}->set_active($printer->{expert});
} else {
print STDERR "BUG with LANGUAGE $ENV{LANGUAGE}\n";
}