From b6174d585ecea648891a6e7d21be42141a0a1212 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 30 Jul 2002 09:57:11 +0000 Subject: use $o->{interactiveSteps} instead of @install_steps_auto_install::graphical_steps --- perl-install/standalone/drakautoinst | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install/standalone') 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 #- -- cgit v1.2.1