summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm14
1 files changed, 14 insertions, 0 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index a3fbb7310..bba6d878d 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -5128,6 +5128,15 @@ sub mainwindow_interactive {
1;
},
val => N("CUPS configuration") } : ()),
+ (($printer->{SPOOLER} eq "cups") ?
+ { clicked_may_quit =>
+ sub {
+ # Save the cursor position
+ $cursorpos = $menuchoice;
+ $menuchoice = '@autoadminconfig';
+ 1;
+ },
+ val => N("Configure Auto Administration") } : ()),
($printer->{expert} &&
(files_exist(qw(/usr/bin/pdq)) ||
files_exist("/usr/$lib/filters/lpf",
@@ -5186,6 +5195,11 @@ sub mainwindow_interactive {
config_cups($printer, $security, $in, $upNetwork);
next;
}
+ # Configure auto administration
+ if ($menuchoice eq '@autoadminconfig') {
+ config_auto_admin($printer, $in);
+ next;
+ }
# Call function to switch to another spooler
if ($menuchoice eq '@spooler') {
$printer->{SPOOLER} = setup_default_spooler($printer, $security, $in, $upNetwork) || $printer->{SPOOLER};