diff options
| -rw-r--r-- | transfug_oe.c | 28 | ||||
| -rw-r--r-- | transfugdrake.pm | 9 |
2 files changed, 18 insertions, 19 deletions
diff --git a/transfug_oe.c b/transfug_oe.c index 0cf871e..45b376b 100644 --- a/transfug_oe.c +++ b/transfug_oe.c @@ -1,10 +1,9 @@ -/* transfugdrake - * (c) 2001 Yves DUret <yduret@mandrakesof.com> +/* + * transfugdrake + * (c) 2001 Yves Duret <yduret@mandrakesof.com> + * $Id */ -/* based on LIBOE 0.92 - STABLE - Copyright (C) 2000 Stephan B. Nedregård (stephan@micropop.com) */ - /* This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or @@ -20,12 +19,12 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ +/* based on LIBOE 0.92 - STABLE + Copyright (C) 2000 Stephan B. Nedregård (stephan@micropop.com) */ + #include <stdio.h> #include <stdlib.h> #include <string.h> -#ifndef WINDOWS -#include <unistd.h> -#endif #include <sys/stat.h> #define OE_CANNOTREAD 1 @@ -34,6 +33,9 @@ #define OE_NOBODY 4 #define OE_PANIC 5 +#define SLASH '/' + + /* #define DEBUG -- uncomment to get some DEBUG output to stdout */ @@ -297,7 +299,7 @@ void oe_readbox_oe4(oe_data *data) { while (pos<data->stat->st_size) { fseek(data->oe,pos, SEEK_SET); fread(header,16,1,data->oe); - data->oput("From liboe@linux Sat Jun 17 01:08:25 2000\n"); + data->oput("From mandrake@MandrakeLinux Mon Jun 11 10:00:00 2001\n"); endpos = pos + header->include; if (endpos>data->stat->st_size) endpos=data->stat->st_size; pos+=4; @@ -396,14 +398,8 @@ oe_data* oe_readmbox(char* filename,void (*oput)(char*)) { fclose(data->oe); return data; } -/* based on OE2MBX 1.21 - Copyright (C) 2000 Stephan B. Nedregaard (stephan@micropop.com) */ -#ifdef WINDOWS -#define SLASH '\\' -#else -#define SLASH '/' -#endif +/****************************************/ FILE *mbox = NULL; char *filename = NULL, *fn; diff --git a/transfugdrake.pm b/transfugdrake.pm index 18c0a12..fd3123e 100644 --- a/transfugdrake.pm +++ b/transfugdrake.pm @@ -19,6 +19,7 @@ use common qw(:common :system :file); use interactive; use standalone; use log; +use my_gtk qw(:helpers :wrappers :ask); #use c; use netconnect; use detect_devices; @@ -63,6 +64,7 @@ _("Kick windows out of your life. The next step will be bringing back windows(c)(r)(tm) files"), 1) or quit_global($in, 0); + #- ********************************** #- * 2nd step: win files step_2: @@ -88,7 +90,8 @@ 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 $in->ask_okcancel(_("Transfug"), - _("Pas pour les pdm. -Tes mails ils viennent d'ou ??"), 1) or quit_global($in, 0); +#$::direct or +$a=ask_file(_("Select file")); + +print "-->$a<--\n" |