summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2001-09-15 20:21:15 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2001-09-15 20:21:15 +0000
commit5c9a77b9408ded330cf00b68783cd33fa4132b66 (patch)
treea707fe2fd904dec09bd616df9b29af077cfb22ca /perl-install/printer.pm
parent725e01513324f031fed590a7507643ea030a40b7 (diff)
downloaddrakx-5c9a77b9408ded330cf00b68783cd33fa4132b66.tar
drakx-5c9a77b9408ded330cf00b68783cd33fa4132b66.tar.gz
drakx-5c9a77b9408ded330cf00b68783cd33fa4132b66.tar.bz2
drakx-5c9a77b9408ded330cf00b68783cd33fa4132b66.tar.xz
drakx-5c9a77b9408ded330cf00b68783cd33fa4132b66.zip
Added the PDQ panic button.
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 454909cda..4bc8962f3 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -223,6 +223,12 @@ sub set_alternative {
return 1;
}
+sub pdq_panic_button {
+ my $setting = @_[0];
+ run_program::rooted($prefix, "/usr/sbin/pdqpanicbutton", "--$setting")
+ || die "Could not $setting PDQ panic buttons!";
+}
+
sub copy_printer_params($$) {
my ($from, $to) = @_;
map { $to->{$_} = $from->{$_} } grep { $_ ne 'configured' } keys %$from;