From 89639cec273d0f7a266991e62329a363e5ad5236 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 1 Apr 2004 09:29:46 +0000 Subject: move harddrake service confirmation script from spec file into its own file --- perl-install/drakxtools.spec | 10 +--------- perl-install/standalone/service_harddrake_confirm | 7 +++++++ 2 files changed, 8 insertions(+), 9 deletions(-) create mode 100644 perl-install/standalone/service_harddrake_confirm (limited to 'perl-install') diff --git a/perl-install/drakxtools.spec b/perl-install/drakxtools.spec index 0340698aa..e9f303938 100644 --- a/perl-install/drakxtools.spec +++ b/perl-install/drakxtools.spec @@ -217,15 +217,7 @@ cat > $RPM_BUILD_ROOT%_sysconfdir/X11/xinit.d/harddrake2 < $RPM_BUILD_ROOT%_datadir/harddrake/confirm <vnew; -my \$res = \$in->ask_okcancel(\$ARGV[0], \$ARGV[1], 1); -\$in->exit(\$res); -EOF +mv $RPM_BUILD_ROOT%_sbindir/service_harddrake_confirm $RPM_BUILD_ROOT%_datadir/harddrake/confirm chmod +x $RPM_BUILD_ROOT{%_datadir/harddrake/*,%_sysconfdir/X11/xinit.d/harddrake2} # temporary fix until we reenable this feature diff --git a/perl-install/standalone/service_harddrake_confirm b/perl-install/standalone/service_harddrake_confirm new file mode 100644 index 000000000..99eaf7b0f --- /dev/null +++ b/perl-install/standalone/service_harddrake_confirm @@ -0,0 +1,7 @@ +#!/usr/bin/perl +use lib qw(/usr/lib/libDrakX); +use interactive; + +my $in = interactive->vnew; +my $res = $in->ask_okcancel($ARGV[0], $ARGV[1], 1); +$in->exit($res); -- cgit v1.2.1