From 6423d696699210ebf207d057e24a1cea9678357d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 22 Mar 2005 16:39:00 +0000
Subject: install packages needed for hw support

---
 perl-install/standalone/harddrake2 | 33 ++++++++++++++++++++++++++++++++-
 1 file changed, 32 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 4512f42ea..9a992f110 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -5,6 +5,7 @@ use diagnostics;
 use lib qw(/usr/lib/libDrakX);
 use standalone;
 use common;
+use do_pkgs;
 
 # i18n: IMPORTANT: to get correct namespace (drakconf instead of only libDrakX)
 BEGIN { unshift @::textdomains, 'drakconf' }
@@ -463,9 +464,26 @@ $textcolumn->set_sizing('GTK_TREE_VIEW_COLUMN_AUTOSIZE');#GROW_ONLY
 #$tree->columns_autosize();
 $tree->signal_connect(realize => sub { $tree->get_selection->select_path(Gtk2::TreePath->new_first) });
 $w->{rwindow}->show_all;
+$_->hide foreach $module_cfg_button, $config_button; # hide buttons while no device
+
+{
+    $SIG{CHLD} = undef;
+    #local $SIG{CHLD} = sub {};
+    if (my @packages = simple_read_rpmsrate()) {
+        my $do_pkgs = do_pkgs_standalone->new;
+        my @packages2install = grep { !$do_pkgs->is_installed($_) } @packages;
+        undef $wait;
+        gtkset_mousecursor_normal();
+        
+        if (@packages2install && $in->ask_yesorno(N("Warning"), N("The following packages need to be installed:\n" . join(', ', @packages2install)))) {
+            $do_pkgs->install(@packages2install);
+        }
+    }
+}
 undef $wait;
 gtkset_mousecursor_normal();
-$_->hide foreach $module_cfg_button, $config_button; # hide buttons while no device
+
+
 $w->main;
 
 
@@ -560,3 +578,16 @@ $password_w->set_visibility(0); #set_invisible_char('*');
         run_program::raw({ detach => 1 }, "/usr/sbin/hwdb_add_system", $account, $name);
     }
 }
+
+
+sub simple_read_rpmsrate {
+    map { split(' ', $_) } map {
+        if (my ($p, $packages) = /[^!]HW"(.*)"(.*)/) {
+            if_(detect_devices::matching_desc__regexp($p), $packages);
+        } elsif (($p, $packages) = /[^!]DRIVER"(.*)"(.*)/) {
+            if_(detect_devices::matching_driver__regexp($p), $packages);
+        } else {
+            ();
+        }
+    } cat_("/usr/share/harddrake/rpmsrate");
+}
-- 
cgit v1.2.1