diff options
Diffstat (limited to 'contrib/checkOptionDocs.pl')
-rwxr-xr-x | contrib/checkOptionDocs.pl | 70 |
1 files changed, 0 insertions, 70 deletions
diff --git a/contrib/checkOptionDocs.pl b/contrib/checkOptionDocs.pl deleted file mode 100755 index 23e57b4897..0000000000 --- a/contrib/checkOptionDocs.pl +++ /dev/null @@ -1,70 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -my %options = (); -my %descOptions = (); -my %torrcSampleOptions = (); -my %manPageOptions = (); - -# Load the canonical list as actually accepted by Tor. -open(F, "./src/or/tor --list-torrc-options |") or die; -while (<F>) { - next if m!\[notice\] Tor v0\.!; - if (m!^([A-Za-z0-9_]+)!) { - $options{$1} = 1; - } else { - print "Unrecognized output> "; - print; - } -} -close F; - -# Load the contents of torrc.sample -sub loadTorrc { - my ($fname, $options) = @_; - local *F; - open(F, "$fname") or die; - while (<F>) { - next if (m!##+!); - if (m!#([A-Za-z0-9_]+)!) { - $options->{$1} = 1; - } - } - close F; - 0; -} - -loadTorrc("./src/config/torrc.sample.in", \%torrcSampleOptions); - -# Try to figure out what's in the man page. - -my $considerNextLine = 0; -open(F, "./doc/tor.1.txt") or die; -while (<F>) { - if (m!^\*\*([A-Za-z0-9_]+)\*\*!) { - $manPageOptions{$1} = 1; - } -} -close F; - -# Now, display differences: - -sub subtractHashes { - my ($s, $a, $b) = @_; - my @lst = (); - for my $k (keys %$a) { - push @lst, $k unless (exists $b->{$k}); - } - print "$s: ", join(' ', sort @lst), "\n\n"; - 0; -} - -# subtractHashes("No online docs", \%options, \%descOptions); -# subtractHashes("Orphaned online docs", \%descOptions, \%options); - -subtractHashes("Orphaned in torrc.sample.in", \%torrcSampleOptions, \%options); - -subtractHashes("Not in man page", \%options, \%manPageOptions); -subtractHashes("Orphaned in man page", \%manPageOptions, \%options); - - |