find disks later not to slow startup

1 files changed, 10 insertions, 3 deletions

diff --git a/transfugdrake b/transfugdrake
index c05532b..60b80f8 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -12,10 +12,9 @@ use common;
 use transfugdrake;
 
 my %distrib = distrib();
-my $windows_disk = transfugdrake::get_windows_disk();
-my @linux_users = uniq(list_users());
+my $windows_disk;
+my @linux_users;
 my @windows_users;
-@windows_users = transfugdrake::list_windows_users($windows_disk) if $windows_disk;
 
 my @windows_items;
 my $linux_user;
@@ -44,6 +43,8 @@ my $wiz = wizards->new({
         welcome => {
             name => N("This wizard will help you to import Windows documents and settings in your %s distribution.", $distrib{system}) . "\n" . N("It allows two different migration methods: you can either import all documents and settings by copying them in your home directory, or share them between operating systems."),
             post => sub {
+                my $_w = $in->wait_message(N("Please wait"), N("Detecting disks..."));
+                find_disk();
                 @windows_users or return 'no_windows';
                 $linux_user = @linux_users == 1 && $linux_users[0];
                 $windows_user = @windows_users == 1 && $windows_users[0];
@@ -178,6 +179,12 @@ my $wiz = wizards->new({
 
 $wiz->safe_process($in);
 
+sub find_disk {
+    $windows_disk = transfugdrake::get_windows_disk();
+    @linux_users = uniq(list_users());
+    @windows_users = transfugdrake::list_windows_users($windows_disk) if $windows_disk;
+}
+
 sub first_step() {
     #- make sure XDG directories are created
     system("su - $linux_user -c /usr/bin/xdg-user-dirs-update");