Add script that detects missing manpages

(This used to be commit 01e70035b9a4cf69bccc5b17c221de01e35c6532)

1 files changed, 39 insertions, 0 deletions

diff --git a/docs/scripts/find_missing_manpages.pl b/docs/scripts/find_missing_manpages.pl
new file mode 100755
index 0000000000..b346bf07d3
--- /dev/null
+++ b/docs/scripts/find_missing_manpages.pl
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+
+my %doc;
+
+$invar = 0;
+
+$topdir = (shift @ARGV) or $topdir = ".";
+
+$progs = "";
+
+open(IN, "$topdir/source/Makefile.in");
+while(<IN>) {
+	if($invar && /^([ \t]*)(.*?)([\\])$/) {
+		$progs.=" " . $2;
+		if($4) { $invar = 1; } else { $invar = 0; }
+	} elsif(/^([^ ]*)_PROGS([0-9]*) = (.*?)([\\])$/) {
+		$progs.=" " . $3;
+		if($4) { $invar = 1; }
+	} else { $invar = 0; }
+}
+
+foreach(split(/bin\//, $progs)) {
+	next if($_ eq " ");
+	s/\@EXEEXT\@//g;
+	s/ //g;
+
+
+	$f = $_;
+	
+	$found = 0;
+
+	for($i = 0; $i < 9; $i++) {
+		if(-e "manpages/$f.$i.xml") { $found = 1; }
+	}
+
+	if(!$found) {
+		print "$f doesn't have a manpage!\n";
+	}
+}