diff options
-rwxr-xr-x | transfugdrake | 13 |
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"); |