aboutsummaryrefslogtreecommitdiffstats
path: root/transfugdrake
diff options
context:
space:
mode:
authorChristian Belisle <cbelisle@mandriva.com>2002-01-13 16:43:16 +0000
committerChristian Belisle <cbelisle@mandriva.com>2002-01-13 16:43:16 +0000
commitce5ddb982f6b76dae4839f2657abbb0b973ad8b4 (patch)
tree6aaf13b4818fc251d67874a72fbc4ec440a81cb6 /transfugdrake
parente4dc7c505c87b5e145be98ea944b7dab026f3c7a (diff)
downloadtransfugdrake-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-xtransfugdrake10
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;