sbosrcarch: add extraneous file count to check/status output

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