features

1 files changed, 19 insertions, 8 deletions

diff --git a/transfugdrake b/transfugdrake
index 3a406c9..98ae074 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -21,7 +21,6 @@ use interactive;
 use standalone;
 use log;
 use my_gtk qw(:helpers :wrappers :ask);
-#use c;
 use netconnect;
 use detect_devices;
 
@@ -36,7 +35,7 @@ local $_ = join '', @ARGV;
 /-version/ and die 'transfug '."\n";
 $::isEmbedded or $::isWizard = 1;
 $::Wizard_pix_up = "wiz_drakgw.png";
-$::Wizard_title = _("Transfug");
+$::Wizard_title = _("Transfugdrake");
 $::direct = /-direct/;
 
 my $in = interactive::vnew('su');
@@ -73,7 +72,9 @@ step_2:
 
 $wait_configuring = $in->wait_message(_("Configuring..."), 
 				      _("Configuring scripts, installing software, starting servers..."));
- 
+
+sleep(2);
+
 undef $wait_configuring;
  
 if (!(-e "/mnt/win_c")) {
@@ -83,7 +84,7 @@ if (!(-e "/mnt/win_c")) {
 }
  
 $::direct or $in->ask_okcancel(_("Transfug"),
-_("Pas pour les pdm.
+_("
 Do you want to copy all the c:\\My Documents to one of your user home ?"), 1) or quit_global($in, 0);
 
 #- *******************************
@@ -91,8 +92,18 @@ Do you want to copy all the c:\\My Documents to one of your user home ?"), 1) or
 step_3:
 
  print "step3\n";
-#$::direct or
-$a=ask_file(_("Select file"));
 
-print "-->$a<--\n"
- 
+mkdir "~/Mail" unless (-e "~/Mail");
+
+if (-e "/mnt/win_c/WINDOWS/Application Data/Identities/{424975E0-8577-11D4-A891-989048140B20}/Microsoft/Outlook Express") {
+    print "OE5 on win98 detectedi\n";
+    opendir YREP, "." or die "unable to open dir: $!";
+    @files = grep !/^\.\.?$/, readdir YREP;
+    closedir YREP;
+    foreach $i (@files) {
+	`transfug_oe $i ~/Mail/$i`;
+    }
+} else {
+    $a=ask_file(_("Select file"));
+    `transfug_oe $i ~/Mail/$i`;
+}