blob: 4379d3a4762e5dd0b4e3a7e9d0b3a779a9689f00 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#!/usr/bin/perl
my %doc;
$topdir = (shift @ARGV) or $topdir = ".";
##################################################
# Reading links from manpage
$curdir = $ENV{PWD};
chdir("smbdotconf");
open(IN,"xsltproc --xinclude --param smb.context ALL generate-context.xsl parameters.all.xml|");
while(<IN>) {
if( /<samba:parameter .*?name="([^"]*?)"/g ){
$doc{$1} = "NOTFOUND";
}
}
close(IN);
chdir($curdir);
#################################################
# Reading entries from source code
open(SOURCE,"$topdir/param/loadparm.c") or die("Can't open $topdir/param/loadparm.c: $!");
while ($ln = <SOURCE>) {
last if $ln =~ m/^static\ struct\ parm_struct\ parm_table.*/;
} #burn through the preceding lines
while ($ln = <SOURCE>) {
last if $ln =~ m/^\s*\}\;\s*$/;
#pull in the param names only
next if $ln =~ m/.*P_SEPARATOR.*/;
next unless $ln =~ /\s*\.label\s*=\s*\"(.*)\".*/;
if($doc{lc($1)}) {
$doc{lc($1)} = "FOUND";
} else {
print "'$1' is not documented\n";
}
}
close SOURCE;
##################################################
# Trying to find missing references
foreach (keys %doc) {
if($doc{$_} cmp "FOUND") {
print "'$_' is documented but is not a configuration option\n";
}
}
|
