/usr/src/linux-source-3.13.0/debian/scripts/module-check is in linux-source-3.13.0 3.13.0-87.133.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 | #!/usr/bin/perl -w
$flavour = shift;
$prev_abidir = shift;
$abidir = shift;
$skipmodule = shift;
print "II: Checking modules for $flavour...";
print " prev_abidir : $prev_abidir";
if (-f "$prev_abidir/ignore.modules"
or -f "$prev_abidir/$flavour.ignore.modules") {
print "explicitly ignoring modules\n";
exit(0);
}
if (not -f "$abidir/$flavour.modules" or not -f
"$prev_abidir/$flavour.modules") {
print "previous or current modules file missing!\n";
print " $abidir/$flavour.modules\n";
print " $prev_abidir/$flavour.modules\n";
if (defined($skipmodule)) {
exit(0);
} else {
exit(1);
}
}
print "\n";
my %modules;
my %modules_ignore;
my $missing = 0;
my $new = 0;
my $errors = 0;
# See if we have any ignores
if (-f "$prev_abidir/../modules.ignore") {
my $ignore = 0;
open(IGNORE, "< $prev_abidir/../modules.ignore") or
die "Could not open $prev_abidir/../modules.ignore";
print " reading modules to ignore...";
while (<IGNORE>) {
chomp;
next if /\s*#/;
$modules_ignore{$_} = 1;
$ignore++;
}
close(IGNORE);
print "read $ignore modules.\n";
}
# Read new modules first
print " reading new modules...";
$new_count = 0;
open(NEW, "< $abidir/$flavour.modules") or
die "Could not open $abidir/$flavour.modules";
while (<NEW>) {
chomp;
$modules{$_} = 1;
$new_count++;
}
close(NEW);
print "read $new_count modules.\n";
# Now the old modules, checking for missing ones
print " reading old modules...";
$old_count = 0;
open(OLD, "< $prev_abidir/$flavour.modules") or
die "Could not open $prev_abidir/$flavour.modules";
while (<OLD>) {
chomp;
if (not defined($modules{$_})) {
print "\n" if not $missing;
$missing++;
if (not defined($modules_ignore{$_})) {
print " MISS: $_\n";
$errors++;
} else {
print " MISS: $_ (ignored)\n";
}
} else {
$modules{$_}++;
}
$old_count++;
}
close(OLD);
# Check for new modules
foreach $mod (keys(%modules)) {
if ($modules{$mod} < 2) {
print "\n" if not $missing and not $new;
print " NEW : $mod\n";
$new++;
}
}
if ($new or $missing) {
print " read $old_count modules : new($new) missing($missing)\n";
} else {
print "read $old_count modules.\n";
}
# Let's see where we stand...
if ($errors) {
if (defined($skipmodule)) {
print "WW: Explicitly asked to ignore failures (probably not good)\n";
} else {
print "EE: Missing modules (start begging for mercy)\n";
exit 1
}
}
if ($new) {
print "II: New modules (you've been busy, wipe the poop off your nose)\n";
} else {
print "II: No new modules (hope you're happy, slacker)\n";
}
print "II: Done\n";
exit(0);
|