File: ShowUndocumented

package info (click to toggle)
proftpd 1.2.0pre9-4
  • links: PTS
  • area: main
  • in suites: slink
  • size: 2,392 kB
  • ctags: 2,648
  • sloc: ansic: 24,012; sh: 1,754; makefile: 536; perl: 281
file content (37 lines) | stat: -rwxr-xr-x 528 bytes parent folder | download | duplicates (2) 
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
 
#!/usr/bin/perl

open(DOC,"grep '<li><a href=\"#' Configuration.html | cut -d'\"' -f2 | cut -d'#' -f2 | sort|");

while(<DOC>) {
    chomp;
    $doc{$_} = 1;
}

open(UNDOC,"./GetConf ../*/*.c|");

while(<UNDOC>) {
    chomp;

    s/^\s+//;
    s/\s+$//;
    s/^<//;
    s/^\///;
    s/>$//;
    
    next unless length($_) > 0;
    
    if(/^Module ([^\s]*):$/) {
	$module = $1;
	$newmod = 1;
	next;
    }
    
    if(!$doc{$_}) {
	if($newmod) {
	    print "\nModule: $module\n";
	    $newmod = 0;
	}
	
	print "  $_\n";
    }
}