From 5c9a77b9408ded330cf00b68783cd33fa4132b66 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Sat, 15 Sep 2001 20:21:15 +0000
Subject: Added the PDQ panic button.

---
 perl-install/printer.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'perl-install/printer.pm')

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; 
-- 
cgit v1.2.1