get Windows items list once Windows user has been selected

1 files changed, 13 insertions, 1 deletions

diff --git a/transfugdrake b/transfugdrake
index c274821..bd76c41 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -15,6 +15,7 @@ my @windows_users = list_windows_users($win_disk);
 my %windows_bookmarks = list_windows_bookmarks();
 my %windows_mail = list_windows_mail();
 
+my @windows_items;
 my $linux_user;
 my $windows_user;
 my $files_migration_type;
@@ -51,7 +52,10 @@ my $wiz = wizards->new({
                     list => \@linux_users,
                 },
             ],
-            next => 'files',
+            post => sub {
+                @windows_items = list_windows_items($win_disk, $windows_user);
+                'files';
+            },
         },
         files => {
             name => N("You can migrate Windows documents to your home directory. Documents can be imported by copying them, or they can be shared with the other operating system"),
@@ -153,6 +157,14 @@ sub list_windows_users {
     chomp_(split(/,\s*/, run_program::get_stdout("ma-search-users", "windowsxp", $win_prefix)));
 }
 
+sub list_windows_items {
+    my ($win_prefix, $win_user) = @_;
+    chomp_(split(/,\s*/, run_program::get_stdout("ma-search-items",
+                                                 "--ostype=windowsxp",
+                                                 "--path=$win_prefix",
+                                                 "--user=$win_user")));
+}
+
 sub import_files {
     my ($win_prefix) = @_;
     my $_w = $in->wait_message('', N("Migration of documents in progress"));