Remove broken XSL-FO translation code; this has been broken for a while
[sfrench/samba-autobuild/.git] / docs-xml / scripts / find_missing_manpages.pl
1 #!/usr/bin/perl
2
3 my %doc;
4
5 $invar = 0;
6
7 $topdir = (shift @ARGV) or $topdir = ".";
8
9 $progs = "";
10
11 open(IN, "$topdir/Makefile.in");
12 while(<IN>) {
13         if($invar && /^([ \t]*)(.*?)([\\])$/) {
14                 $progs.=" " . $2;
15                 if($4) { $invar = 1; } else { $invar = 0; }
16         } elsif(/^([^ ]*)_PROGS([0-9]*) = (.*?)([\\])$/) {
17                 $progs.=" " . $3;
18                 if($4) { $invar = 1; }
19         } else { $invar = 0; }
20 }
21
22 $progs =~ s/@([^@]+)@//g;
23
24 foreach(split(/bin\//, $progs)) {
25         next if($_ eq " ");
26         s/\@EXEEXT\@//g;
27         s/ //g;
28
29         $f = $_;
30         
31         $found = 0;
32
33         for($i = 0; $i < 9; $i++) {
34                 if(-e "manpages-3/$f.$i.xml") { $found = 1; }
35         }
36
37         if(!$found) {
38                 print "'$f' does not have a manpage\n";
39         }
40 }