blob: c754ea368cfbedf9de6f380ecc870e341cdf0c10 (
plain) (
blame)
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
|
#!/usr/bin/perl -w
$flavour = shift;
$prev_abidir = shift;
$abidir = shift;
$skipmodule = shift;
print "II: Checking modules for $flavour...";
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);
|