summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakautoinst
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-30 09:57:11 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-30 09:57:11 +0000
commitb6174d585ecea648891a6e7d21be42141a0a1212 (patch)
tree8d3b0d81445d190b7907eccb3d83c1d4c67eb8db /perl-install/standalone/drakautoinst
parent90d257cb974b2db9cf29b530c297efc7fb0d9b19 (diff)
downloaddrakx-backup-do-not-use-b6174d585ecea648891a6e7d21be42141a0a1212.tar
drakx-backup-do-not-use-b6174d585ecea648891a6e7d21be42141a0a1212.tar.gz
drakx-backup-do-not-use-b6174d585ecea648891a6e7d21be42141a0a1212.tar.bz2
drakx-backup-do-not-use-b6174d585ecea648891a6e7d21be42141a0a1212.tar.xz
drakx-backup-do-not-use-b6174d585ecea648891a6e7d21be42141a0a1212.zip
use $o->{interactiveSteps} instead of @install_steps_auto_install::graphical_steps
Diffstat (limited to 'perl-install/standalone/drakautoinst')
-rwxr-xr-xperl-install/standalone/drakautoinst12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 54e0fd139..73e57ee8a 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -220,6 +220,8 @@ if (!$::isEmbedded && $in->isa('interactive::gtk')) {
# $W->destroy();
}
+$o->{interactiveSteps} = \@manual_steps;
+
my $str = join('',
"#!/usr/bin/perl -cw
#
@@ -229,12 +231,7 @@ my $str = join('',
# You can do this with 'perl -cw auto_inst.cfg.pl' or by executing this file
# (note the '#!/usr/bin/perl -cw' on the first line).
",
- Data::Dumper->Dump([$o], ['$o']), q(
-package install_steps_auto_install;
-$graphical = 1;
-), Data::Dumper->Dump([\@manual_steps], ['$msteps']),
-q(push @graphical_steps, @$msteps;
-), "\0");
+ Data::Dumper->Dump([$o], ['$o']), "\0");
$str =~ s/ {8}/\t/g; #- replace all 8 space char by only one tabulation, this reduces file size so much :-)
output($cfgfile, $str);
@@ -368,6 +365,9 @@ sub control_buttons {
#-------------------------------------------------
#- $Log$
+#- Revision 1.20 2002/07/30 09:57:11 prigaux
+#- use $o->{interactiveSteps} instead of @install_steps_auto_install::graphical_steps
+#-
#- Revision 1.19 2002/07/23 10:35:55 tvignaud
#- - Big Move 1: interactive::* hierarchy
#-