[SCM] Samba Shared Repository - branch v3-3-test updated -
release-3-2-0pre2-4145-gb6b7aa0
Karolin Seeger
kseeger at samba.org
Wed Sep 17 06:49:37 GMT 2008
The branch, v3-3-test has been updated
via b6b7aa023b62ab8994d13cb91d5185204c1500b2 (commit)
from 7cd40b7e0ec77f70d79b19abb8bc9623a9efae31 (commit)
http://gitweb.samba.org/?p=samba.git;a=shortlog;h=v3-3-test
- Log -----------------------------------------------------------------
commit b6b7aa023b62ab8994d13cb91d5185204c1500b2
Author: Karolin Seeger <kseeger at samba.org>
Date: Wed Sep 17 08:48:19 2008 +0200
find_missing_manpages.pl: Adapt script to changed directory structure.
Karolin
-----------------------------------------------------------------------
Summary of changes:
docs-xml/scripts/find_missing_manpages.pl | 27 ++++++++++++++++++++-------
1 files changed, 20 insertions(+), 7 deletions(-)
Changeset truncated at 500 lines:
diff --git a/docs-xml/scripts/find_missing_manpages.pl b/docs-xml/scripts/find_missing_manpages.pl
index c468d7d..aa5751b 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) {
--
Samba Shared Repository
More information about the samba-cvs
mailing list