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