diff options
author | Yves Duret <yduret@mandriva.com> | 2001-06-14 13:01:05 +0000 |
---|---|---|
committer | Yves Duret <yduret@mandriva.com> | 2001-06-14 13:01:05 +0000 |
commit | d34c834edabadd286ca299af7dfc23bd841ca330 (patch) | |
tree | da8cc6df2486b7c175af451434f18d4153ef2ab7 | |
parent | b7bf7b3768565908912b0543609ff0efaa14fda1 (diff) | |
download | transfugdrake-d34c834edabadd286ca299af7dfc23bd841ca330.tar transfugdrake-d34c834edabadd286ca299af7dfc23bd841ca330.tar.gz transfugdrake-d34c834edabadd286ca299af7dfc23bd841ca330.tar.bz2 transfugdrake-d34c834edabadd286ca299af7dfc23bd841ca330.tar.xz transfugdrake-d34c834edabadd286ca299af7dfc23bd841ca330.zip |
update
-rwxr-xr-x | transfugdrake | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/transfugdrake b/transfugdrake index 0290140..d7dd964 100755 --- a/transfugdrake +++ b/transfugdrake @@ -16,7 +16,7 @@ use lib q(/usr/lib/libDrakX); -use common qw(:common :system :file); +use common qw(:common :file :functional :system); use interactive; use standalone; #use log; @@ -76,14 +76,22 @@ undef $wait_configuring; $::direct or $in->ask_okcancel(_("Transfug"), _(" -Do you want to copy all the c:\\My Documents to one of your user home ?"), 1) or quit_global($in, 0); +Do you want to copy all the c:\\My Documents to one of your user home ?"), 1) or goto step_3; + +# translators need to accord My Documents.. + link(_("$win/My Documents"), $ENV{HOME}); + #- ******************************* #- * 3rd step: mail from win step_3: -mkdir "$ENV{HOME}/Mail" unless (-e "$ENV{HOME}/Mail"); +$::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); +mkdir "$ENV{HOME}/Mail" unless (-e "$ENV{HOME}/Mail"); $oe5onwin98="$win/WINDOWS/Application Data/Identities/{424975E0-8577-11D4-A891-989048140B20}/Microsoft/Outlook Express"; if (-e $oe5onwin98) { @@ -96,7 +104,7 @@ if (-e $oe5onwin98) { } } else { while (1) { - $a=ask_file_path(_("Select file"),"$win/") or goto step_4; + $a=ask_file_path(_("Select file"),"$win/Application Data/Identities") or goto step_4; `transfug_oe \"$a\" \"$ENV{HOME}/Mail/$i\"`; } |