From 115b4b1145f86d90f20c0404a54fa907f06c30b0 Mon Sep 17 00:00:00 2001 From: pad Date: Mon, 6 Sep 1999 20:33:18 +0000 Subject: bugfix --- perl-install/install2.pm | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 3d90b1679..5dfae42b1 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -12,16 +12,16 @@ use common qw(:common :file :system :functional); use install_any qw(:all); use log; use network; +use lang; use keyboard; use fs; use fsedit; -use modules; use partition_table qw(:types); -use detect_devices; use pkgs; -use smp; -use lang; use printer; +use modules; +use detect_devices; +use smp; use run_program; use install_steps_graphical; @@ -203,7 +203,7 @@ for (my $i = 0; $i < @installSteps; $i += 2) { push @orderedInstallSteps, $installSteps[$i]; } -#TOSEE bug avec +#TOSEE bug with #%installSteps = # map_tab_hash { # my ($i, $h) = @_; @@ -298,8 +298,8 @@ $o = $::o = { DEVICE => "/dev/dev1", - REMOTEHOST => "padhost", - REMOTEQUEUE => "padqueue", + REMOTEHOST => "", + REMOTEQUEUE => "", NCPHOST => "printerservername", NCPQUEUE => "queuename", @@ -321,7 +321,7 @@ $o = $::o = { steps => \%installSteps, orderedSteps => \@orderedInstallSteps, - installClass => "beginner", + installClass => "expert", base => [ qw(basesystem initscripts console-tools mkbootdisk anacron rhs-hwdiag utempter ldconfig chkconfig ntsysv mktemp setup filesystem SysVinit bdflush crontabs dev e2fsprogs etcskel fileutils findutils getty_ps grep groff gzip hdparm info initscripts isapnptools kbdconfig kernel less ldconfig lilo logrotate losetup man mkinitrd mingetty modutils mount net-tools passwd procmail procps psmisc mandrake-release rootfiles rpm sash sed setconsole setserial shadow-utils sh-utils slocate stat sysklogd tar termcap textutils time timeconfig tmpwatch util-linux vim-minimal vixie-cron which cpio) ], # for the list of fields available for user and superuser, see @etc_pass_fields in install_steps.pm @@ -606,3 +606,8 @@ sub killCardServices { my $pid = chop_(cat_("/tmp/cardmgr.pid")); $pid and kill(15, $pid); # send SIGTERM } + +#-###################################################################################### +#- Wonderful perl :( +#-###################################################################################### +1; # -- cgit v1.2.1