aboutsummaryrefslogtreecommitdiffstats
path: root/transfugdrake
diff options
context:
space:
mode:
authorChristian Belisle <cbelisle@mandriva.com>2001-11-14 22:35:02 +0000
committerChristian Belisle <cbelisle@mandriva.com>2001-11-14 22:35:02 +0000
commit7002a83f0a090d0a521b1cf5558d59bc33147d57 (patch)
tree2c77175e6b03bc13d0bf9fa08af3392e7d53be81 /transfugdrake
parentf6bcf19db2953be0befc0086abad1e45e40ab655 (diff)
downloadtransfugdrake-7002a83f0a090d0a521b1cf5558d59bc33147d57.tar
transfugdrake-7002a83f0a090d0a521b1cf5558d59bc33147d57.tar.gz
transfugdrake-7002a83f0a090d0a521b1cf5558d59bc33147d57.tar.bz2
transfugdrake-7002a83f0a090d0a521b1cf5558d59bc33147d57.tar.xz
transfugdrake-7002a83f0a090d0a521b1cf5558d59bc33147d57.zip
Update
Diffstat (limited to 'transfugdrake')
-rwxr-xr-xtransfugdrake24
1 files changed, 13 insertions, 11 deletions
diff --git a/transfugdrake b/transfugdrake
index d7dd964..b80c64c 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -16,12 +16,12 @@
use lib q(/usr/lib/libDrakX);
-use common qw(:common :file :functional :system);
+#use common qw(:common :file :functional :system);
use interactive;
use standalone;
#use log;
use my_gtk qw(:helpers :wrappers :ask);
-use netconnect;
+#use netconnect;
use detect_devices;
$::isInstall and die "Not supported during install.\n";
@@ -39,14 +39,16 @@ $::Wizard_title = _("Transfugdrake");
$::direct = /-direct/;
my $in = interactive::vnew('su');
-if (-e "/mnt/windows") {$win="/mnt/windows";}
+
+if (1) {$win="/mnt/prout";}
+elsif (-e "/mnt/windows") {$win="/mnt/windows";}
elsif (-e "/mnt/win_c") {$win="/mnt/win_c";}
else {
- print "no windows partitions ?\n";
- $in->ask_warn(_("No windows(c)(r)(tm) on your system!"),
+ print "no windows partitions ?\n";
+ $in->ask_warn(_("No windows(c)(r)(tm) on your system!"),
_("No windows on your system. Please install windows first!"));
- quit_global($in);
-}
+ quit_global($in);
+ }
begin:
@@ -60,9 +62,9 @@ begin:
step_1:
$::direct or $in->ask_okcancel(_("Transfug"),
-_("Kick windows out of your life.
-
-The next step will be bringing back windows(c)(r)(tm) files"), 1) or quit_global($in, 0);
+_("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);
#- **********************************
@@ -89,7 +91,7 @@ step_3:
$::direct or $in->ask_okcancel(_("Transfug"),
_("Kick windows out of your life.
-We will bring back your Outlook Mailboxes to a standart unix mbox"), 1) or quit_global($in, 0);
+We will bring back your Outlook Mailboxes to a standard unix mbox"), 1) or quit_global($in, 0);
mkdir "$ENV{HOME}/Mail" unless (-e "$ENV{HOME}/Mail");
$oe5onwin98="$win/WINDOWS/Application Data/Identities/{424975E0-8577-11D4-A891-989048140B20}/Microsoft/Outlook Express";