From aca4c306be5e8d757fbac86c9de3f6f3862cc471 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 8 Feb 2001 10:11:37 +0000
Subject: implemented or updated embedded mode

---
 perl-install/standalone/printerdrake | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone/printerdrake')

diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 0ad84058c..0a3fbcf2f 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -26,6 +26,7 @@ use printerdrake;
 use printer;
 use c;
 
+$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
 local $_ = join '', @ARGV;
 
 /-h/ and die "usage: printerdrake [--beginner] [--expert] [--auto] [--noauto] [--skiptest] [--testing]\n";
@@ -44,6 +45,8 @@ $printer->{mode} ||= 'CUPS'; #- assume this default if nothing found.
 
 my $in = vnew interactive('su');
 
+begin:
 printerdrake::main($printer, $in, sub { $in->standalone::pkgs_install(@_) });
 
-$in->exit(0);
+$::isEmbedded ? kill(USR1, $::CCPID) : $in->exit(0);
+goto begin;
-- 
cgit v1.2.1