aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xsbosrcarch7
1 files changed, 6 insertions, 1 deletions
diff --git a/sbosrcarch b/sbosrcarch
index fe78d09..2b49c22 100755
--- a/sbosrcarch
+++ b/sbosrcarch
@@ -146,7 +146,7 @@ Checks the integrity and coverage of the archive. Reports at least these conditi
- dangling symlinks
- invalid md5sums
- files present in only one of by-name or by-md5 but not the other
- - extraneous files in the tree
+ - count extraneous files in the tree (or list, with -v)
- generates a status report, giving the total size and coverage.
- lists all SlackBuilds not covered by the archive.
@@ -398,6 +398,7 @@ our @whitelist = ();
our @blacklist = ();
our $quickcheck; # used by check_mode() and its *wanted helpers
our $verbosecheck;
+our $extraneous_byname = 0;
our %infofilecount;
our %parsedinfo;
@@ -1572,6 +1573,7 @@ sub check_byname_wanted {
if(!-f $info) {
print "$shortname extraneous: no info file for $category/$prgnam\n" if $verbosecheck;
$filecount--;
+ $extraneous_byname++;
return;
}
@@ -1605,6 +1607,7 @@ sub check_byname_wanted {
} else {
print "$shortname extraneous: not mentioned in $info (sbosrcarch purge)\n" if $verbosecheck;
$filecount--;
+ $extraneous_byname++;
}
if(blacklisted($category, $prgnam)) {
@@ -1708,6 +1711,7 @@ sub check_mode {
push @missingfilebuilds, $_ if $count;
}
+ print "---\n";
if(@missingfilebuilds) {
print "Following SlackBuilds are missing files:\n";
print " $_\n" for sort { $a cmp $b } @missingfilebuilds;
@@ -1733,6 +1737,7 @@ Total source files: $totalfiles
Archived files: $filecount
Archive size: $filemegs
Missing files: $missingfiles
+Extraneous files: $extraneous_byname
File coverage: $filecoverage%
Total SlackBuilds: $totalbuildcount