From 3c674246ed0ff6b9ed7ea2e871ae9468f55ecd90 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 18 Aug 2003 08:40:10 +0000
Subject: - save the modules list on exit and restore it on load - simplify
 modules list managment btw - consolidate some code in get_file_size()

---
 perl-install/standalone/drakfloppy | 27 +++++++++++++++++++++++----
 1 file changed, 23 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index fdfe8f948..73f10be5b 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -56,6 +56,12 @@ unless ($::isEmbedded) {
 
 my ($output, @modules, @temp_modules, %buttons, %options, $tree_model, $tree, $list_model, $list);
 
+my $conffile = "/etc/sysconfig/drakfloppy";
+
+# we must be robust against config file parsing
+eval { %options = getVarsFromSh($conffile); } or warn N("Error while parsing \"MODULES\" line from $conffile");
+@modules  = split (' ', $options{MODULES});
+
 
 ######## up part
 
@@ -176,7 +182,12 @@ sub pref_dialog() {
     # restore values:
     $buttons{$_}->set_active($options{$_}) foreach keys %buttons;
     fill_tree($kernel_combo->entry->get_text);
-    $list_model->append_set([ map_index { $::i => $_ } @$_ ]) foreach @modules;
+    foreach my $module (@modules) {
+        my $full_path = join('/', "/lib/modules", $kernel_combo->entry->get_text, $module);
+        my $size = get_file_size($full_path);
+        $list_model->append_set(map_index { $::i => $_ } $module, $size, $full_path);
+    }
+    
     $remove_but->set_sensitive(scalar @modules);
     @temp_modules = ();
 
@@ -189,7 +200,7 @@ sub pref_dialog() {
                                   @modules = ();
                                   $list_model->foreach(sub {
                                                            my ($model, $_path, $iter) = @_;
-                                                           push @modules, [ $model->get($iter, 0), $model->get($iter, 1), $model->get($iter, 2) ];
+                                                           push @modules, $model->get($iter, 0);
                                                            return 0;
                                                        }, $val);
                                   $dialog->destroy;
@@ -226,7 +237,7 @@ sub selected_tree {
     
     return if -d $file;
 
-    my $size = (lstat($file))[7];
+    my $size = get_file_size($file);
 
     return if member($file, @temp_modules);
     push @temp_modules, $file;
@@ -277,7 +288,10 @@ sub build_it() {
     $co .= " --mkinitrdargs --ifneeded" if $options{needed};
     $co .= " --mkinitrdargs --omit-scsi-modules" if $options{scsi};
     $co .= " --mkinitrdargs --omit-raid-modules" if $options{raid};
-    $co .= join(" --mkinitrdargs --with=", map { $_->[0] } @modules);
+    $co .= join(" --mkinitrdargs --with=", @modules);
+    $options{MODULES} = join(' ', @modules);
+    setVarsInSh($conffile, \%options);
+
     $co .= " " . $kernel_combo->entry->get_text;
     $co .= " 2>&1 |";
     $::testing or warn_dialog(N("Warning"), N("Be sure a media is present for the device %s",  $device_combo->entry->get_text)) or return;
@@ -302,6 +316,11 @@ sub build_it() {
     return (0);
 }
 
+sub get_file_size {
+    my ($file) = @_;
+    (lstat($file))[7];
+}
+
 ####
 # This is put at the end of the file because any translatable string
 # appearing after this will not be found by xgettext, and so wont end in
-- 
cgit v1.2.1