diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/share/makedev.sh | 89 | ||||
| -rwxr-xr-x | perl-install/share/verify_modules.pl | 102 |
2 files changed, 0 insertions, 191 deletions
diff --git a/perl-install/share/makedev.sh b/perl-install/share/makedev.sh deleted file mode 100755 index e9dccaff2..000000000 --- a/perl-install/share/makedev.sh +++ /dev/null @@ -1,89 +0,0 @@ -#!/bin/sh -# -# $Id$ -# -# This script creates all ISDN devices under /dev . -# Many/most distributions don't include these devices. - -echo -e "Creating device inodes ... \c" - -if [ $# = 1 ] ; then - DEV=$1/dev -else - DEV=/dev -fi - -MAJ=45 -MIN=0 -rm -f $DEV/isdnctrl* $DEV/ippp* -while [ $MIN -lt 64 ] ; do - mknod -m 600 $DEV/isdn$MIN c $MAJ $MIN - mknod -m 660 $DEV/isdnctrl$MIN c $MAJ `expr $MIN + 64` - mknod -m 600 $DEV/ippp$MIN c $MAJ `expr $MIN + 128` - MIN=`expr $MIN + 1` -done -if grep '^pppusers:' /etc/group > /dev/null -then # RH 5 standard - chgrp pppusers $DEV/isdnctrl* $DEV/ippp* -elif grep '^dialout:' /etc/group > /dev/null -then # Debian/SuSE standard - chgrp dialout $DEV/isdnctrl* $DEV/ippp* -fi -rm -f $DEV/isdninfo -mknod -m 444 $DEV/isdninfo c $MAJ 255 -ln -sf $DEV/isdnctrl0 $DEV/isdnctrl - -MAJ=43 -MIN=0 -rm -f $DEV/ttyI* -while [ $MIN -lt 64 ] ; do - mknod -m 666 $DEV/ttyI$MIN c $MAJ $MIN - MIN=`expr $MIN + 1` -done - -MAJ=44 -MIN=0 -rm -f $DEV/cui* -while [ $MIN -lt 64 ] ; do - mknod -m 666 $DEV/cui$MIN c $MAJ $MIN - MIN=`expr $MIN + 1` -done - -if grep '^dialout:' /etc/group > /dev/null -then # Debian/SuSE standard - chgrp dialout $DEV/ttyI* $DEV/cui* -fi - -MAJ=68 -MIN=0 -rm -f $DEV/capi20* -mknod -m 666 $DEV/capi20 c $MAJ 0 -mknod -m 666 $DEV/capi20.00 c $MAJ 1 -mknod -m 666 $DEV/capi20.01 c $MAJ 2 -mknod -m 666 $DEV/capi20.02 c $MAJ 3 -mknod -m 666 $DEV/capi20.03 c $MAJ 4 -mknod -m 666 $DEV/capi20.04 c $MAJ 5 -mknod -m 666 $DEV/capi20.05 c $MAJ 6 -mknod -m 666 $DEV/capi20.06 c $MAJ 7 -mknod -m 666 $DEV/capi20.07 c $MAJ 8 -mknod -m 666 $DEV/capi20.08 c $MAJ 9 -mknod -m 666 $DEV/capi20.09 c $MAJ 10 -mknod -m 666 $DEV/capi20.10 c $MAJ 11 -mknod -m 666 $DEV/capi20.11 c $MAJ 12 -mknod -m 666 $DEV/capi20.12 c $MAJ 13 -mknod -m 666 $DEV/capi20.13 c $MAJ 14 -mknod -m 666 $DEV/capi20.14 c $MAJ 15 -mknod -m 666 $DEV/capi20.15 c $MAJ 16 -mknod -m 666 $DEV/capi20.16 c $MAJ 17 -mknod -m 666 $DEV/capi20.17 c $MAJ 18 -mknod -m 666 $DEV/capi20.18 c $MAJ 19 -mknod -m 666 $DEV/capi20.19 c $MAJ 20 - -if grep '^dialout:' /etc/group > /dev/null -then # Debian/SuSE standard - chgrp dialout $DEV/capi20 $DEV/capi20.?? -fi -rm -f $DEV/isdnctrl -ln -s $DEV/isdnctrl1 $DEV/isdnctrl - -echo "done." diff --git a/perl-install/share/verify_modules.pl b/perl-install/share/verify_modules.pl deleted file mode 100755 index 52b6ae8fc..000000000 --- a/perl-install/share/verify_modules.pl +++ /dev/null @@ -1,102 +0,0 @@ -#!/usr/bin/perl - -use lib ".."; -use common; -use modules; - -my $all = $ARGV[0] eq '-a'; - -my %modules = map { - chomp; - my @l = split "\t"; - my $mod = $l[-2]; - $mod =~ s/"(.*)"/$1/; - if_(!/^\s*#/ && $mod !~ /:/ && $mod ne 'unknown', $mod => $l[-1]) -} map { cat_("/usr/share/ldetect-lst/$_") } 'pcitable', 'usbtable'; - -my %l; -my $kernel = $all ? '/lib/modules' : '../../kernel'; -foreach (`find $kernel -name "*.o" -o -name "*.o.gz"`) { - s|.*/lib/modules/.*?/||; - s|kernel/drivers/||; - m|(.*)/(.*)\.o(\.gz)?$|; - $l{$2} = $1; -} - -foreach (keys %modules) { - my $ktype = $l{$_}; - my $dtype = $modules::drivers{$_}; - if (!$ktype && !$dtype) { - print "unused module $_ (descr $modules{$_}) (not in modules.pm nor in the kernel)\n"; - } elsif (!$dtype) { - $missing{$_} = $ktype; - } elsif (!$ktype) { - $unused{$_} = $dtype->{type} - if !member($dtype->{type}, 'sound'); - } -} - -foreach (sort keys %missing) { - print "missing $_ in modules.pm (type $missing{$_}, descr $modules{$_})\n"; -} -foreach (sort keys %unused) { - print "unused module $_ (type $unused{$_}) (not in the kernel)\n"; -} - -__END__ -my %m = %l; -my (%missing, %missing2); -while (my ($k, $v) = each %pci_probing::pcitable::ids) { - next if $v->[1] =~ /^(unknown$|ignore$|Card:|Server:|Bad:)/; - - $l{$v->[1]} or $missing{$v->[1]} = 1; - $modules::drivers{$v->[1]} or push @{$missing2{$v->[1]}}, $v->[0]; - delete $m{$v->[1]}; -} -print "W: unused entry in modules.pm $_\n" - foreach grep { !$l{$_} && !$missing{$_} #- will be reported below - } keys %modules::drivers; - -print qq|W: missing entry in modules.pm for $l{$_} "$_"\n| foreach grep { !$modules::drivers{$_} } keys %l; - -my %known; @known{qw(net scsi misc)} = (); -if ($ARGV[0] eq "-v") { - print "W: has no pci entry: $_ \n" foreach grep { exists $known{$m{$_}} } keys %m; -} - -print "E: missing module $_\n" - foreach grep { $modules::drivers{$_}{type} ne "sound" #- don't care about sound modules - } keys %missing; - -foreach (keys %missing2) { - print qq|E: missing entry in modules.pm for $l{$_} "$_"|; - print qq| => "|, join("<>", @{$missing2{$_}}), '"'; - print "\n"; -} - -#exit; - -my %devices_c = ( - net => "checkEthernetDev, DRIVER_NET, DRIVER_MINOR_ETHERNET", - scsi => "checkSCSIDev, DRIVER_SCSI, DRIVER_MINOR_NONE", - disk => "checkSCSIDev, DRIVER_SCSI, DRIVER_MINOR_NONE", - pcmcia => "NULL, DRIVER_PCMCIA, DRIVER_MINOR_NONE", - paride => "NULL, DRIVER_PARIDE, DRIVER_MINOR_NONE", - cdrom => "NULL, DRIVER_CDROM, DRIVER_MINOR_NONE", -); -my $devices_c = join "|", keys %devices_c; - -my %drivers = %modules::drivers; -$drivers{$_}{type} =~ /$devices_c/ or delete $drivers{$_} foreach keys %drivers; -foreach (cat_("../../install/devices.c")) { - if (/static struct driver drivers/ .. /^};/) { - /\s*{\s*"[^"]*"\s*,\s*"(.*)"/ or next; - delete $drivers{$1} or print qq|W: unused entry in devices.c $1\n|; - } -} -foreach (sort { $drivers{$a}{type} cmp $drivers{$b}{type} } keys %drivers) { - my ($m, $v) = ($_, $drivers{$_}); - /^(8390|sunrpc|lockd|dummy|st)$/ and next; - - print qq|E: missing entry in devices.c { "$v->{text}", "$m", 0, $devices_c{$v->{type}} }\n|; -} |