Add warning if the user have windows xp (no mail migration available)

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; }
 
 #- **********************************