summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2006-03-03 13:40:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2006-03-03 13:40:44 +0000
commit5febde2ac685ba8a689acbb4e086f3332e0ff2b4 (patch)
treea676cbc528f24c8f67eb9555e2c10b712b725f5d /perl-install
parente7c5a2429ea944eb2119300370c0f57afeb1cb3f (diff)
downloaddrakx-5febde2ac685ba8a689acbb4e086f3332e0ff2b4.tar
drakx-5febde2ac685ba8a689acbb4e086f3332e0ff2b4.tar.gz
drakx-5febde2ac685ba8a689acbb4e086f3332e0ff2b4.tar.bz2
drakx-5febde2ac685ba8a689acbb4e086f3332e0ff2b4.tar.xz
drakx-5febde2ac685ba8a689acbb4e086f3332e0ff2b4.zip
remove obsolete unused stuff
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/share/makedev.sh89
-rwxr-xr-xperl-install/share/verify_modules.pl102
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|;
-}