diff options
-rwxr-xr-x | transfugdrake | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/transfugdrake b/transfugdrake index 63a4984..776226f 100755 --- a/transfugdrake +++ b/transfugdrake @@ -126,13 +126,15 @@ if($document_location eq $win_mountpoint.'/'.$documents_folders[0]) { elsif($document_location eq $win_mountpoint.'/'.$documents_folders[1]) { # For XP, go see in the documents folder to get the directory listing if($debug) { print "--- Windows XP found\n"; } + $in->ask_warn(_("No mail migration available"), + _("Warning: Windows XP detected. No mail migration available yet for your Windows version.")); opendir YREP, $document_location or die "unable to opendir: $!\n"; my @tmp_user_array = readdir YREP; closedir YREP; foreach my $tmp_user (@tmp_user_array) { foreach my $tmp_ignored (@ignored_document_folders) { if ($tmp_user eq $tmp_ignored) { $notvalid = 1; } - } + } if($notvalid != 1) { push(@users, $tmp_user); } $notvalid = 0; } @@ -156,6 +158,7 @@ $document_location .= '/'.$chosen_user; # -f $document_location.'/'.$address_book_location.'/'.$chosen_user.".wab") { # push(@tasks, "Migrate address book from Windows (not implemented yet)"); #} + # This is the Windows XP mailbox checkup. Will be active as soon as transfug_oe support OE 6. #if(-d $document_location."/Local Settings/Application Data/Identities") { # opendir YREP, $document_location."/Local Settings/Application Data/Identities" or die "unable to opendir: $!\n"; @@ -178,7 +181,7 @@ my $chosen_task = $in->ask_from_list(_("Transfugdrake"), _("Welcome to TransfugDrake! You are now able to ease\n the step Windows-Linux with many migrations. Please choose what you\n want to do:"), [ @tasks ], $tasks[0]) or quit_global($in, 0); if($chosen_task eq "Copy files and folders from your Windows partition") { goto step_4; } -if($chosen_task eq "Migrate address book from Windows (not implemented yet)") { goto step_7; } +#if($chosen_task eq "Migrate address book from Windows (not implemented yet)") { goto step_7; } if($chosen_task eq "Migrate your mail messages from Windows (Outlook Express 4.5 & 5 ONLY)") { goto step_6; } #- ********************************** |