diff options
author | Karolin Seeger <kseeger@samba.org> | 2008-09-17 08:48:19 +0200 |
---|---|---|
committer | Karolin Seeger <kseeger@samba.org> | 2008-09-18 08:49:02 +0200 |
commit | d89ba32c49049ae105b02b2cea578605a13a7afb (patch) | |
tree | 18749b3f98500b9dd0dee4d81a1e8f2527e0b8dd | |
parent | ce92c96a3e80409b6dca7ef0198400403d72b7d4 (diff) | |
download | samba-3.2.4.tar.gz |
find_missing_manpages.pl: Adapt script to changed directory structure.samba-3.2.4
Karolin
(cherry picked from commit b6b7aa023b62ab8994d13cb91d5185204c1500b2)
(cherry picked from commit d553faff4ae9aa1fdc1bb716e901dcede7799f27)
-rwxr-xr-x | docs-xml/scripts/find_missing_manpages.pl | 27 |
1 files changed, 20 insertions, 7 deletions
diff --git a/docs-xml/scripts/find_missing_manpages.pl b/docs-xml/scripts/find_missing_manpages.pl index c468d7d1ee1..aa5751b44a2 100755 --- a/docs-xml/scripts/find_missing_manpages.pl +++ b/docs-xml/scripts/find_missing_manpages.pl @@ -1,14 +1,25 @@ #!/usr/bin/perl -my %doc; - $invar = 0; - $topdir = (shift @ARGV) or $topdir = "."; - +$makefile = "$topdir/source/Makefile.in"; +$mandir = "$topdir/docs-xml/manpages-3"; $progs = ""; -open(IN, "$topdir/Makefile.in"); +chdir($topdir); + +if(! -e "$makefile") { + print "$makefile does not exist!\n"; + print "Wrong directory?\n"; + exit(1); +} + +if(! -d "$mandir") { + print "$mandir does not exist!\n"; + exit(1); +} + +open(IN, "$makefile"); while(<IN>) { if($invar && /^([ \t]*)(.*?)([\\])$/) { $progs.=" " . $2; @@ -22,15 +33,17 @@ while(<IN>) { foreach(split(/bin\//, $progs)) { next if($_ eq " "); s/\@EXEEXT\@//g; + s/\@EXTRA_BIN_PROGS\@//g; s/ //g; $f = $_; - + $found = 0; + for($i = 0; $i < 9; $i++) { - if(-e "manpages/$f.$i.xml") { $found = 1; } + if(-e "$mandir/$f.$i.xml") { $found = 1; } } if(!$found) { |