summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakautoinst
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-10-26 13:45:11 +0000
committerdamien <damien@mandriva.com>2001-10-26 13:45:11 +0000
commitfa8b5a97281411add271aeaafd8df5ef583d8f1e (patch)
treea4ebc22aa36d985da294c32f759d5990ae9b0f08 /perl-install/standalone/drakautoinst
parentf491ebbba3c4256b7b358a59516d0225ea7e5436 (diff)
downloaddrakx-fa8b5a97281411add271aeaafd8df5ef583d8f1e.tar
drakx-fa8b5a97281411add271aeaafd8df5ef583d8f1e.tar.gz
drakx-fa8b5a97281411add271aeaafd8df5ef583d8f1e.tar.bz2
drakx-fa8b5a97281411add271aeaafd8df5ef583d8f1e.tar.xz
drakx-fa8b5a97281411add271aeaafd8df5ef583d8f1e.zip
progress bar hack
Diffstat (limited to 'perl-install/standalone/drakautoinst')
-rwxr-xr-xperl-install/standalone/drakautoinst16
1 files changed, 10 insertions, 6 deletions
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 24f8a32e7..cb2edbcb3 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -78,15 +78,16 @@ my $mountdir = "/root/tmp/drakautoinst-mountdir"; -d $mountdir or mkdir $mountdi
my $floppy = detect_devices::floppy();
my $dev = devices::make($floppy);
$in->ask_okcancel('', _("Insert a blank floppy in drive %s", $floppy), 1) or quit_global($in, 0);
-#{
-# my $w = $in->wait_message('', _("Creating auto install floppy"));
-# commands::dd("if=$imagefile", "of=$dev", "bs=1440", "count=1024");
-# common::sync();
-#}
+{
+ my $w = $in->wait_message('', _("Creating auto install floppy"));
+ commands::dd("if=$imagefile", "of=$dev", "bs=1440", "count=1024");
+ common::sync();
+}
fs::mount($dev, $mountdir, 'vfat', 0);
my $cfgfile = "$mountdir/auto_inst.cfg";
eval(cat_($cfgfile));
my $o_old = $o;
+
if (ref($in) =~ /gtk/) {
require Gtk;
init Gtk;
@@ -126,7 +127,6 @@ if (ref($in) =~ /gtk/) {
member($_, keys %struct_gui) and push @{$tree{$struct_gui{$_}}}, [$_ , $pixmap{$_}, h2widget($o->{$_}, "\$o->\{$_\}") ] foreach (keys %$o);
-
my $W = my_gtk->new(_('$o edition'));
my @box_to_hide;
my $nb_pages=0;
@@ -253,6 +253,7 @@ sub quit_global {
}
+
sub h2widget {
my ($k, $label) = @_;
my $w;
@@ -358,6 +359,9 @@ sub control_buttons {
#-------------------------------------------------
#- $Log$
+#- Revision 1.11 2001/10/26 13:45:11 damien
+#- progress bar hack
+#-
#- Revision 1.10 2001/10/25 11:59:58 damien
#- simple variables handled, code compression.
#-