diff options
author | Christian Belisle <cbelisle@mandriva.com> | 2001-11-14 22:35:02 +0000 |
---|---|---|
committer | Christian Belisle <cbelisle@mandriva.com> | 2001-11-14 22:35:02 +0000 |
commit | 7002a83f0a090d0a521b1cf5558d59bc33147d57 (patch) | |
tree | 2c77175e6b03bc13d0bf9fa08af3392e7d53be81 /transfugdrake | |
parent | f6bcf19db2953be0befc0086abad1e45e40ab655 (diff) | |
download | transfugdrake-7002a83f0a090d0a521b1cf5558d59bc33147d57.tar transfugdrake-7002a83f0a090d0a521b1cf5558d59bc33147d57.tar.gz transfugdrake-7002a83f0a090d0a521b1cf5558d59bc33147d57.tar.bz2 transfugdrake-7002a83f0a090d0a521b1cf5558d59bc33147d57.tar.xz transfugdrake-7002a83f0a090d0a521b1cf5558d59bc33147d57.zip |
Update
Diffstat (limited to 'transfugdrake')
-rwxr-xr-x | transfugdrake | 24 |
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"; |