Changeset 204 for branches/samba-3.2.x/docs-xml/scripts

Timestamp:

May 20, 2009, 6:46:53 PM (16 years ago)

Author:

Herwig Bauernfeind

Message:

Update 3.2 branch to 3.2.4

File:

• branches/samba-3.2.x/docs-xml/scripts/find_missing_manpages.pl (modified) (2 diffs)

branches/samba-3.2.x/docs-xml/scripts/find_missing_manpages.pl

@@ -1 +1 @@
 #!/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]*)(.*?)([\\])$/) {
@@ -23 +34 @@
         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; }
         }