rediscover hardddisks at first boot

1 files changed, 8 insertions, 0 deletions

diff --git a/draklive-install b/draklive-install
index c955d90..6e34410 100755
--- a/draklive-install
+++ b/draklive-install
@@ -179,6 +179,14 @@ run_program::run('makedev', $::prefix . '/dev');
 #- write fstab
 fs::write_fstab($all_hds, $::prefix);
 
+#- remove harddisks from harddrake's config file, so that hardddisks
+#- are automatically rediscovered at first boot
+require Storable;
+my $harddrake_file = $::prefix . "/etc/sysconfig/harddrake2/previous_hw";
+my $harddrake_conf = Storable::retrieve($harddrake_file);
+delete $harddrake_conf->{HARDDISK};
+Storable::store($harddrake_conf, $harddrake_file);
+
 # enable back some disabled services
 require services;
 services::start_service_on_boot($_) foreach qw(dkms crond);