From fb80b8a8984779543f0f0c50d7f6dcb995e0ce96 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 29 Aug 1999 22:25:44 +0000 Subject: no_comment --- Makefile | 6 +++--- docs/TODO | 6 ++++++ perl-install/commands.pm | 29 ++++++++++++++++++++++++++--- perl-install/install2.pm | 7 ++++++- perl-install/install_steps.pm | 2 ++ perl-install/modules.pm | 1 + 6 files changed, 44 insertions(+), 7 deletions(-) diff --git a/Makefile b/Makefile index fa4c0ab1a..352969cf9 100644 --- a/Makefile +++ b/Makefile @@ -1,4 +1,4 @@ -BOOT_IMG = mdkinst_hd.img mdkinst_cdrom.img mdkinst_network.img mdkinst_network_ks.img +BOOT_IMG = gi_hd.img gi_cdrom.img gi_network.img gi_network_ks.img BINS = install/install install/local-install install/installinit/init @@ -14,7 +14,7 @@ clean: $(BOOT_IMG): $(BINS) if [ ! -e modules ]; then $(MAKE) update_kernel; fi - ./make_boot_img $@ $(@:mdkinst_%.img=%) + ./make_boot_img $@ $(@:gi_%.img=%) $(BINS): $(MAKE) -C `dirname $@` @@ -27,4 +27,4 @@ $(BOOT_IMG:%=%f): %f: % dd if=$< of=/dev/fd0 xmessage "Floppy done" -# mkisofs -R -b images/mdkinst_cdrom.img -c images/b /tmp/r /mnt/disk/ | cdrecord -v -eject speed=6 dev=1,0 - \ No newline at end of file +# mkisofs -R -b images/gi_cdrom.img -c images/b /tmp/r /mnt/disk/ | cdrecord -v -eject speed=6 dev=1,0 - \ No newline at end of file diff --git a/docs/TODO b/docs/TODO index 5d32b2c08..3fc1cd6ee 100644 --- a/docs/TODO +++ b/docs/TODO @@ -67,4 +67,10 @@ cleanup /etc/services & /etc/protocols maybe removes commented lines in /usr/lib/perl5/... files +look at the generated /etc/conf.modules (redundancies) + +handle zip/dat drives + # in 2.3.15 "Silicon Integrated Systems [SiS]|SiS900 10/100 Ethernet" is handled + +remove cpio from base when mkbootdisk deps is added diff --git a/perl-install/commands.pm b/perl-install/commands.pm index e2c5ba97b..bd511c850 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -249,12 +249,12 @@ sub cp { } sub ps { + @_ and die "usage: ps\n"; my ($pid, $cpu, $cmd); - my $uptime = int first(cat_("/proc/uptime")); + my ($uptime) = split ' ', first(cat_("/proc/uptime")); my $hertz = 100; - local (*STDOUT_TOP); format STDOUT_TOP = PID CMD . @@ -268,7 +268,7 @@ $pid, $cpu, $cmd $cpu = sprintf "%2.1f", max(0, min(99, ($l[13] + $l[14]) * 100 / $hertz / ($uptime - $l[21] / $hertz))); (($cmd) = cat_("/proc/$pid/cmdline")) =~ s/\0/ /g; $cmd ||= (split ' ', (cat_("/proc/$pid/stat"))[0])[1]; - write STDOUT; + write; } } @@ -397,3 +397,26 @@ sub insmod { run_program::run("insmod_", $f, @_) or die("insmod $name failed"); unlink $f; } + +sub route { + @ARGV and die "usage: route\nsorry, no modification handled\n"; + my ($titles, @l) = cat_("/proc/net/route"); + my @titles = split ' ', $titles; + my %l; + local *ROUTE = *STDOUT; + format ROUTE_TOP = +Destination Gateway Mask Iface +. + format ROUTE = +@<<<<<<<<<<<< @<<<<<<<<<<<< @<<<<<<<<<<<< @<<<<<<< +$l{Destination}, $l{Gateway}, $l{Mask}, $l{Iface} +. + foreach (@l) { + /^\s*$/ and next; + @l{@titles} = split; + $_ = join ".", reverse map { hex } unpack "a2a2a2a2", $_ foreach @l{qw(Destination Gateway Mask)}; + $l{Destination} = 'default' if $l{Destination} eq "0.0.0.0"; + $l{Gateway} = '*' if $l{Gateway} eq "0.0.0.0"; + write ROUTE; + } +} diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 2c082a6b4..5636f0c99 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -233,7 +233,7 @@ $o = $::o = { # user => { name => 'foo', password => 'bar', home => '/home/foo', shell => '/bin/bash', realname => 'really, it is foo' }, # superuser => { password => 'a', shell => '/bin/bash', realname => 'God' }, - base => [ qw(basesystem initscripts console-tools mkbootdisk linuxconf anacron linux_logo rhs-hwdiag utempter ldconfig chkconfig ntsysv mktemp setup setuptool filesystem MAKEDEV SysVinit ash at authconfig bash bdflush binutils console-tools crontabs dev e2fsprogs ed etcskel file fileutils findutils getty_ps gpm 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) ], + base => [ qw(basesystem initscripts console-tools mkbootdisk linuxconf anacron linux_logo rhs-hwdiag utempter ldconfig chkconfig ntsysv mktemp setup setuptool filesystem MAKEDEV SysVinit ash at authconfig bash bdflush binutils console-tools crontabs dev e2fsprogs ed etcskel file fileutils findutils getty_ps gpm 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) ], }; @@ -391,7 +391,12 @@ sub main { local $^W = 0; *install_any::getFile = \&ftp::getFile; } + } elsif (/--step/) { + $o->{steps}{first} = shift; + } elsif (/--expert/) { + $::expert = 1; } + } my $clicked = 0; diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 8e086f70d..622d14dc9 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -212,6 +212,8 @@ sub addUser($) { $u{password} = crypt_($u{password}) if $u{password}; + return if $::testing; + local *F; open F, ">> $p/etc/passwd" or die "can't append to passwd file: $!"; print F join(':', @u{@etc_pass_fields}), "\n"; diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 4118fec29..b84401f72 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -139,6 +139,7 @@ my @drivers_by_category = ( "AM53C974" => "AMD SCSI", "megaraid" => "AMI MegaRAID", "BusLogic" => "BusLogic Adapters", + "cpqarray" => "Compaq Smart Array controller", "dtc" => "DTC 3180/3280", "eata_dma" => "EATA DMA Adapters", "eata_pio" => "EATA PIO Adapters", -- cgit v1.2.1