diff options
author | Christian Belisle <cbelisle@mandriva.com> | 2002-01-13 16:43:16 +0000 |
---|---|---|
committer | Christian Belisle <cbelisle@mandriva.com> | 2002-01-13 16:43:16 +0000 |
commit | ce5ddb982f6b76dae4839f2657abbb0b973ad8b4 (patch) | |
tree | 6aaf13b4818fc251d67874a72fbc4ec440a81cb6 /transfugdrake | |
parent | e4dc7c505c87b5e145be98ea944b7dab026f3c7a (diff) | |
download | transfugdrake-ce5ddb982f6b76dae4839f2657abbb0b973ad8b4.tar transfugdrake-ce5ddb982f6b76dae4839f2657abbb0b973ad8b4.tar.gz transfugdrake-ce5ddb982f6b76dae4839f2657abbb0b973ad8b4.tar.bz2 transfugdrake-ce5ddb982f6b76dae4839f2657abbb0b973ad8b4.tar.xz transfugdrake-ce5ddb982f6b76dae4839f2657abbb0b973ad8b4.zip |
*** empty log message ***
Diffstat (limited to 'transfugdrake')
-rwxr-xr-x | transfugdrake | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/transfugdrake b/transfugdrake index c4a367a..356f954 100755 --- a/transfugdrake +++ b/transfugdrake @@ -24,6 +24,7 @@ use my_gtk qw(:helpers :wrappers :ask); use fsedit qw(:read_partitions); use detect_devices; use File::NCopy qw(copy); +use transfugdrake; # TODO TODO TODO # Add a variable and a detection for Windows version @@ -77,12 +78,7 @@ $::Wizard_no_previous = 1; step_0: if($debug) { print "- Starting Transfugdrake\n"; } -$wait_configuring = $in->wait_message(_("Getting system configuration..."), - _("Getting Windows configuration...")); my %windows_config = get_windows_config(); -undef $wait_configuring; - -$wait_configuring = $in->wait_message(_("Getting system configuration..."), _("Getting Linux configuration...")); my %linux_config = get_linux_config(); $::direct or $in->ask_okcancel(_("Transfugdrake"), @@ -92,8 +88,6 @@ by migrating your documents, mails and address books"), 1) or quit_global($in, 0 #- ********************************** #- * 1st step: Which partition do we use? step_1: -if($debug) { print "- Starting Transfugdrake\n"; } - # Detect windows partitions if($debug) { print "- Detecting Partitions\n"; } my @mnt_win_folder = detect_partition(); @@ -328,3 +322,5 @@ sub copy_documents { system("cp -R $source $dest"); undef $wait_configuring; } + +1; |