From e2d5910163e6a0c415ea08a3b4dc7a047803d963 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Sat, 6 Nov 1999 15:10:34 +0000 Subject: *** empty log message *** --- perl-install/Xconfigurator.pm | 10 ++++++---- perl-install/help.pm | 30 +++++++++++++++--------------- perl-install/install2.pm | 4 +++- perl-install/install_steps_interactive.pm | 4 ++-- 4 files changed, 26 insertions(+), 22 deletions(-) (limited to 'perl-install') diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index 176d0a430..c3214b184 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -270,6 +270,8 @@ sub testFinalConfig($;$) { #- create a link from the non-prefixed /tmp/.X11-unix/X9 to the prefixed one #- that way, you can talk to :9 without doing a chroot symlinkf "$prefix/tmp/.X11-unix/X9", "/tmp/.X11-unix/X9" if $prefix; + run_program::rooted($o->{prefix}, "/etc/rc.d/init.d/xfs", "stop"); + run_program::rooted($o->{prefix}, "/etc/rc.d/init.d/xfs", "start"); my $f_err = "$prefix/tmp/Xoutput"; my $pid; @@ -366,9 +368,9 @@ sub autoDefaultDepth($$) { my ($card, $wres_wanted) = @_; my ($best, $depth); - if ($card->{server} eq 'FBDev') { - 16; #- assume 16 bits depth for this case. - } else { +# if ($card->{server} eq 'FBDev') { +# 16; #- assume 16 bits depth for this case. +# } else { while (my ($d, $r) = each %{$card->{depth}}) { $depth = $depth ? max($depth, $d) : $d; @@ -376,7 +378,7 @@ sub autoDefaultDepth($$) { $best = $best ? max($best, $d) : $d if $r->[0][0] >= $wres_wanted; } $best || $depth or die "no valid modes"; - } +# } } sub autoDefaultResolution(;$) { diff --git a/perl-install/help.pm b/perl-install/help.pm index 6b937c138..abbb66c28 100644 --- a/perl-install/help.pm +++ b/perl-install/help.pm @@ -4,21 +4,21 @@ use common qw(:common); %steps = ( selectLanguage => - __(" -

Pixel's links

- -

Search

- Quelques sites de recherche : - MetaCrawler, - dejanews, - yahoo(fr), - yahoo, - infoseek, - altavista, - excite - - -Choose preferred language for install and system usage."), +#- __(" +#-

Pixel's links

+#- +#-

Search

+#- Quelques sites de recherche : +#- MetaCrawler, +#- dejanews, +#- yahoo(fr), +#- yahoo, +#- infoseek, +#- altavista, +#- excite + + +__("Choose preferred language for install and system usage."), selectKeyboard => __("Choose the layout corresponding to your keyboard from the list above"), diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 3765fb147..294601366 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -182,7 +182,9 @@ $o = $::o = { steps => \%installSteps, orderedSteps => \@orderedInstallSteps, - base => [ qw(basesystem sed initscripts console-tools mkbootdisk anacron utempter ldconfig chkconfig ntsysv mktemp setup filesystem SysVinit bdflush crontabs dev e2fsprogs etcskel fileutils findutils getty_ps grep groff gzip hdparm info initscripts isapnptools kernel less ldconfig lilo logrotate losetup man mkinitrd mingetty modutils mount net-tools passwd procmail procps psmisc mandrake-release rootfiles rpm sash sed setserial shadow-utils sh-utils slocate stat sysklogd tar termcap textutils time tmpwatch util-linux vim-minimal vixie-cron which perl-base) ], +#- base => [ qw(basesystem sed initscripts console-tools mkbootdisk anacron utempter ldconfig chkconfig ntsysv mktemp setup filesystem SysVinit bdflush crontabs dev e2fsprogs etcskel fileutils findutils getty_ps grep groff gzip hdparm info initscripts isapnptools kernel less ldconfig lilo logrotate losetup man mkinitrd mingetty modutils mount net-tools passwd procmail procps psmisc mandrake-release rootfiles rpm sash sed setserial shadow-utils sh-utils slocate stat sysklogd tar termcap textutils time tmpwatch util-linux vim-minimal vixie-cron which perl-base) ], + base => [ qw(basesystem sed 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 tmpwatch util-linux vim-minimal vixie-cron which cpio perl) ], + #- for the list of fields available for user and superuser, see @etc_pass_fields in install_steps.pm #- intf => [ { DEVICE => "eth0", IPADDR => '1.2.3.4', NETMASK => '255.255.255.128' } ], diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 752b8b8c1..d2652c092 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -569,8 +569,8 @@ _("Color depth options") => { val => \$o->{printer}{BITSPERPIXEL}, type => 'list $pidlpd = (cat_("$o->{prefix}$_"))[0]; kill 'TERM', $pidlpd if $pidlpd; unlink "$o->{prefix}$_"; } - run_program::rooted($o->{prefix}, "lprm", "-P$o->{printer}{QUEUE}", "-"); - run_program::rooted($o->{prefix}, "lpd"); + run_program::rooted($o->{prefix}, "lprm", "-P$o->{printer}{QUEUE}", "-"); sleep 1; + run_program::rooted($o->{prefix}, "lpd"); sleep 1; run_program::rooted($o->{prefix}, "lpr", "-P$o->{printer}{QUEUE}", $testpage); } -- cgit v1.2.1