diff options
| author | Christian Belisle <cbelisle@mandriva.com> | 2002-01-22 15:08:42 +0000 |
|---|---|---|
| committer | Christian Belisle <cbelisle@mandriva.com> | 2002-01-22 15:08:42 +0000 |
| commit | be49492dded3039cac904a851ebd215f336fc83e (patch) | |
| tree | 3ee0e57cdfbb5778e2f59716e833ca511fa1e4c9 /transfugdrake | |
| parent | d7bd836e42d64fd537bf7412a878134df89fddc1 (diff) | |
| download | transfugdrake-be49492dded3039cac904a851ebd215f336fc83e.tar transfugdrake-be49492dded3039cac904a851ebd215f336fc83e.tar.gz transfugdrake-be49492dded3039cac904a851ebd215f336fc83e.tar.bz2 transfugdrake-be49492dded3039cac904a851ebd215f336fc83e.tar.xz transfugdrake-be49492dded3039cac904a851ebd215f336fc83e.zip | |
Add warning if the user have windows xp (no mail migration available)
Diffstat (limited to 'transfugdrake')
| -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; } #- ********************************** |