aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChristian Belisle <cbelisle@mandriva.com>2002-01-22 15:08:42 +0000
committerChristian Belisle <cbelisle@mandriva.com>2002-01-22 15:08:42 +0000
commitbe49492dded3039cac904a851ebd215f336fc83e (patch)
tree3ee0e57cdfbb5778e2f59716e833ca511fa1e4c9
parentd7bd836e42d64fd537bf7412a878134df89fddc1 (diff)
downloadtransfugdrake-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)
-rwxr-xr-xtransfugdrake7
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; }
#- **********************************