diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2012-09-26 01:31:37 +0200 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2012-09-26 07:58:31 +0200 |
| commit | 718317ecef54d90070b29657f613e39892e38d10 (patch) | |
| tree | 4627e2807bcfb88bc8605e7266cd5619ddbbfdfa /docs-xml/scripts/find_missing_manpages.pl | |
| parent | 05ba1fe418035e44c131fc76b5e62268b433eadc (diff) | |
| download | samba-718317ecef54d90070b29657f613e39892e38d10.tar.gz samba-718317ecef54d90070b29657f613e39892e38d10.tar.bz2 samba-718317ecef54d90070b29657f613e39892e38d10.zip | |
undocumented: Drop extension from helper scripts.
Diffstat (limited to 'docs-xml/scripts/find_missing_manpages.pl')
| -rwxr-xr-x | docs-xml/scripts/find_missing_manpages.pl | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/docs-xml/scripts/find_missing_manpages.pl b/docs-xml/scripts/find_missing_manpages.pl deleted file mode 100755 index cd8ed87596..0000000000 --- a/docs-xml/scripts/find_missing_manpages.pl +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/bin/perl - -my %doc; - -$invar = 0; - -$topdir = (shift @ARGV) or $topdir = "."; - -$progs = ""; - -open(IN, "$topdir/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; } -} - -$progs =~ s/@([^@]+)@//g; - -foreach(split(/bin\//, $progs)) { - next if($_ eq " "); - s/ //g; - - $f = $_; - - $found = 0; - - for($i = 0; $i < 9; $i++) { - if(-e "manpages/$f.$i.xml") { $found = 1; } - } - - if(!$found) { - print "'$f' does not have a manpage\n"; - } -} |