Update

1 files changed, 170 insertions, 61 deletions

diff --git a/transfugdrake b/transfugdrake
index f760c42..59a3773 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -30,6 +30,19 @@
 #  	01/12/18 - cbelisle@mandrakesoft.com
 #  	 - Move instructions in functions (read better).
 #  	 - Add the partition chooser page.
+#       01/12/27 - cbelisle@mandrakesoft.com
+#        - Finished to move instructions in functions.
+#        - Added many "yes or no" choices to user.
+#       01/12/31 - cbelisle@mandrakesoft.com
+#        - Many changes during last days:
+#          - Remake the application logic walkthru
+#          - Fix Mail import (in transfug, not transfug_oe)
+#       02/01/03 - cbelisle@mandrakesoft.com
+#        - Many changes once again:
+#          - Finish the application logic
+#          - Add User Chooser page
+#          - Add checkups instead of giving impossible choices
+#          - Email migration should work with OE 4.5 and 5
 
 use lib q(/usr/lib/libDrakX);
 
@@ -42,7 +55,10 @@ use fsedit qw(:read_partitions);
 use detect_devices;
 use File::NCopy qw(copy);
 
-# Variables
+# TODO TODO TODO
+# Add a variable and a detection for Windows version
+
+## Variables
 my $version = 0.1; 		# Version number
 my $debug = 1;			# Debug flag
 my $chosen_partition = "";	# Partition chosen by the user
@@ -53,6 +69,17 @@ my @documents_folders =
  'My Documents',		# 95,98 - English
  'Documents and Settings');	# XP - French & English
 
+# Ignored users in the document folder (XP)
+my @ignored_document_folders =
+('LocalService',
+ 'NetworkService',
+ 'Owner',
+ '.',
+ '..');
+   
+# Address book location
+my $address_book_location = "Application Data/Microsoft/Address Book";
+
 # If it's started during install, die.
 $::isInstall and die "Not supported during install.\n";
 
@@ -77,95 +104,176 @@ begin:
 $::Wizard_no_previous = 1;
 
 #- **********************************
-#- * 1st step: Welcome message
+#- * 0th step: Welcome page
+step_0:
+if($debug) { print "- Starting Transfugdrake\n"; }
+
+$::direct or $in->ask_okcancel(_("Transfugdrake"),
+_("Welcome to Transfugdrake! I will help you to ease the step windows-linux
+by migrating your documents, mails and address books"), 1) or quit_global($in, 0);
+
+#- **********************************
+#- * 1st step: Which partition do we use? 
 step_1:
-# TODO: Put a bigger message with some instructions and agreement
+if($debug) { print "- Starting Transfugdrake\n"; }
 
-if($debug) { print "- Printing welcome message and waiting for user response\n"; }
-$::direct or $in->ask_okcancel(_("Transfug"),
-_("Welcome to TransfugDrake!
-In this wizard, you will be able to transfer documents,
-email and address books from Microsoft Windows to Mandrake Linux."), 1) or quit_global($in, 0);
+# Detect windows partitions
+if($debug) { print "- Detecting Partitions\n"; }
+my @mnt_win_folder = detect_partition();
+
+# If we have only one partition, goto the user chooser page
+if(@mnt_win_folder[1] eq "") { goto step_2; }
+
+my $chosen_partition = $in->ask_from_list_(_("Select your windows partition"),
+                               _("Please specify your windows partition from the following list"),
+			       [ @mnt_win_folder ],
+			       @mnt_win_folder[0]) or
+			       quit_global($in, 0);
 
+if($debug) { print "-- Chosen Partition = $chosen_partition"; }
 
 #- **********************************
-#- * 2nd step: win files
+#- * 2nd step: Windows User Chooser
 step_2:
-# TODO Get partition listing in a listbox and home listing in another listbox (gftp like) 
+my $notvalid = 0;
+my $addbook = "";
+my $addbook_folder_win95 = "$chosen_partition/WINDOWS/Application Data/Microsoft/Address Book";
 
-# Detect windows partitions
-my @mnt_win_folder = detect_partition();
+if($debug) { print "- Windows User Chooser page\n"; }
+
+if($debug) { print "-- Looking where is the document folder\n"; }
+my $document_location = get_documents_folder(@documents_folders, $chosen_partition);
 
-# If we have only one partition, goto the copy page
-if(@mnt_win_folder[1] eq "") {
-    goto step_3;
+if($document_location eq "") {
+    $in->ask_warn(_("Can't find documents folder!"),
+                  _("Can't find the folder where the documents are located. Exiting..."));
+    quit_global($in, 0);
 }
 
-# Create radio buttons to give the user the choice of the partition.
-my $chosen_partition =  $in->ask_from_list_(_("Select your windows partition"),
-                                 _("Please specify your windows partition from the following list"),
-				 [ @mnt_win_folder ],
-				 @mnt_win_folder[0]) or
-				 quit_global($in, 0);
+if($debug) { print "-- Looking which Windows version we have\n"; }
+
+if($document_location eq $chosen_partition.'/'.$documents_folders[0] ||
+   $document_location eq $chosen_partition.'/'.$documents_folders[1]) {
+    # For 95-98, go see in the address books folder to get the users
+    if($debug) { print "--- Windows 95/98 found\n"; }
+    opendir YREP, $addbook_folder_win95 or die "unable to open dir: $!\n";
+    my @addbook_files = grep /.*dbx$/, readdir YREP;
+    closedir YREP;
+    foreach my $addbook (@addbook_files) {
+        $addbook =~ s/.wab//g;
+        push(@users, $addbook);
+    }
+}
+elsif($document_location eq $chosen_partition.'/'.$documents_folders[2]) {
+    # For XP, go see in the documents folder to get the directory listing
+    if($debug) { print "--- Windows XP found\n"; }
+    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;
+    }
+}
+ 
+
+my $chosen_user = $in->ask_from_list(_("Transfugdrake"),
+_("You have the following users in Windows. Which one do you want to use for migration?"),
+[ @users ], $users[0]) or quit_global($in, 0);
+
 
 #- **********************************
-#- * 3rd step: win files
+#- * 3rd step: Task Chooser
 step_3:
-if($debug) { print "- Ready to copy all the documents, waiting for user response\n"; }
+my @tasks = ('Copy files and folders from your Windows partition');
 
-my $source_folder = get_documents_folder(@documents_folders, $chosen_partition);
+if($debug) { print "- Task Chooser\n"; }
 
-if ($source_folder eq "") {
-    $in->ask_warn(_("Can't find documents folder!"),
-                  _("Can't find the folder where the documents are located. Exiting..."));
-    quit_global($in);
+$document_location .= '/'.$chosen_user;
+if(-f $chosen_partition."/WINDOWS".$address_book_location.$chosen_user.".wab" ||
+   -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";
+	#    my @identity = readdir YREP;
+	#    closedir YREP;
+	#    if(-f $document_location."/Local Settings/Application Data/Identities/".$identity[2]."/Microsoft/Outlook Express/Inbox.dbx") {
+		#        push(@tasks, "Migrate your mail messages from Windows (Outlook Express 4 & 5 ONLY)");
+		#    }
+		#}
+if(-d $chosen_partition."/WINDOWS/Application Data/Identities") {
+    opendir YREP, $chosen_partition."/WINDOWS/Application Data/Identities" or die "unable to opendir: $!\n";
+    my @identity = readdir YREP;
+    closedir YREP;
+    if(-f $chosen_partition."/WINDOWS/Application Data/Identities/".$identity[2]."/Microsoft/Outlook Express/Inbox.dbx") {
+        push(@tasks, "Migrate your mail messages from Windows (Outlook Express 4.5 & 5 ONLY)");
+    }
 }
 
-copy_documents($source_folder, $ENV{HOME});
+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);
 
-#- ******************************
-#- * 4th step: redo if needed
+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 your mail messages from Windows (Outlook Express 4.5 & 5 ONLY)") { goto step_6; }
+
+#- **********************************
+#- * 4th step: Copy Windows Files
 step_4:
+if($debug) { print "- Ready to copy all the documents, waiting for user response\n"; }
 
-$::direct or $in->ask_okcancel(_("Transfugdrake"),
-_("Do you want to copy other files from another folder?"), 1) or goto step_4;
+copy_documents($document_location, $ENV{HOME});
+
+#- ******************************
+#- * 5th step: redo if needed
+step_5:
+
+if($in->ask_yesorno(_("Transfugdrake"),
+_("Do you want to copy other files from another folder?"), 1)) {
+    goto step_2;
+}
 
 #- *******************************
 #- * 4th step: mail from windows
-step_5:
+step_6:
 
 $::direct or $in->ask_okcancel(_("Transfug"),
 _("We will bring back your Outlook Mailboxes to a standard unix mbox\n
-NB: This feature works only with Outlook Express 4.5 and 5"), 1) or goto step_4;
+NB: This feature works only with Outlook Express 4.5 and 5"), 1) or goto step_7;
 
 mkdir "$ENV{HOME}/Mail" unless (-e "$ENV{HOME}/Mail");
-$oe5onwin98="$win/WINDOWS/Application Data/Identities/{424975E0-8577-11D4-A891-989048140B20}/Microsoft/Outlook Express";
+
+$oe5onwin98="$win/WINDOWS/Application Data/Identities";
+opendir YREP, $oe5onwin98;
+my @tmp_identitity = readdir YREP;
+closedir YREP;
+$oe5onwin98 .= '/'.$tmp_identity[2]."/Microsoft/Outlook Express";
 
 if (-e $oe5onwin98) {
-    print "OE5 on win98 detected\n";
+    print "OE detected\n";
     opendir YREP, $oe5onwin98 or die "unable to open dir: $!";
     @files = grep /.*dbx$/, readdir YREP;
     closedir YREP;
     foreach $i (@files) {
 	`transfug_oe \"$oe5onwin98/$i\" \"$ENV{HOME}/Mail/$i\"`;
     }
-} else {
-    while (1) {
-	$a=ask_file_path(_("Select file"),"$win/Application Data/Identities") or goto step_4;
-	`transfug_oe \"$a\" \"$ENV{HOME}/Mail/$i\"`;
-    }
-    
 }
-
 #- *******************************
-#- * 5th step: address book from windows
-step_6:
-$::direct or $in->ask_okcancel(_("Transfug"),
-_("We will migrate your windows address book to Mandrake (not implemented yet)"), 1) or quit_global($in, 0);
+#- * 6th step: address book from windows
+# In XP, address book is located in /Document and Settings/user/Appli Data/Microsoft/Address Book/
+step_7:
+
+$::direct or $in->ask_okcancel(_("Transfugdrake"),
+_("Here will come the address book migration page."), 1) or quit_global($in, 0);
 
 #- *******************************
-#- * 6th step: finish
-step_6:
+#- * 8th step: finish
+step_8:
 $::direct or $in->ask_okcancel(_("Transfugdrake"),
 _("The migration of all of your Windows data is finished."), 1) or quit_global($in, 0);
 
@@ -190,7 +298,7 @@ sub detect_partition {
     while(@mnt_dir_folder[$folders_count] ne "") {
        push(@win,"/mnt/".@mnt_dir_folder[$folders_count]);
        $found = 1;
-       if($debug) { print "- Found windows partition at /mnt/@mnt_dir_folder[$folders_count]\n"; }
+       if($debug) { print "-- Found windows partition at /mnt/@mnt_dir_folder[$folders_count]\n"; }
        $folders_count++;
     }
     
@@ -217,7 +325,8 @@ sub get_documents_folder {
     # Make a whole checkup to see where My Documents is located.
     foreach my $test_doc (@doc_folders) {
        if(-d $mountpoint.$test_doc) {
-           if(debug) { print " -- $mountpoint.$test_doc found\n"; }
+           if(debug) { print "-- $mountpoint$test_doc found\n"; }
+	   if($test_doc eq $doc_folders[2]) { $xp = 1; }
            return $mountpoint.$test_doc;
        }
     }
@@ -226,19 +335,19 @@ sub get_documents_folder {
 sub copy_documents {
     my $source = $_[0];
     my $dest = $_[1];
-    
+ 
     mkdir("$dest/win_backup");
     $dest .= "/win_backup";
 
-    $::direct or $in->ask_okcancel(_("Transfugdrake"),
-                    _("Do you want to copy all the content of\n \"$source\" to \"$dest\"?"), 1) or goto step_3;
+    if(!($in->ask_yesorno(_("Transfugdrake"),
+                    _("Do you want to copy all the content of\n \"$source\" to \"$dest\"?"), 1))) {
+        goto step_5;
+    }
     $wait_configuring = $in->wait_message(_("Copying files..."),
-     _("Copying all files from $source to $dest."));
+     _("Copying all files from $source to $dest. This may take several minutes."));
     
-    print "euuuuuh $source\n";
-    print "tabr $dest \n";
-    #$file = File::NCopy->new(recursive => 1);
-    copy \1, $source, $dest;
+    $source =~ s/\ /\\ /g;
+    print "prout: $source\n";
+    system("cp -R $source $dest");
     undef $wait_configuring;
 }
-