nihilist/tor
1
0
Fork 0
mirror of https://gitlab.torproject.org/tpo/core/tor.git synced 2024-11-10 13:13:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

Change checkOptionDocs.pl to be case sensitive

Browse Source
This commit is contained in:
Sebastian Hahn 2010-10-30 00:19:59 +02:00
parent 6b4db953c9
commit 12c4bb6b62
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/checkOptionDocs.pl
View File

@ -8,13 +8,11 @@ my %torrcCompleteOptions = ();
my %manPageOptions = (); my %manPageOptions = ();
# Load the canonical list as actually accepted by Tor. # Load the canonical list as actually accepted by Tor.
my $mostRecentOption;
open(F, "./src/or/tor --list-torrc-options |") or die; open(F, "./src/or/tor --list-torrc-options |") or die;
while (<F>) { while (<F>) {
next if m!\[notice\] Tor v0\.!; next if m!\[notice\] Tor v0\.!;
if (m!^([A-Za-z0-9_]+)!) { if (m!^([A-Za-z0-9_]+)!) {
$mostRecentOption = lc $1; $options{$1} = 1;
$options{$mostRecentOption} = 1;
} else { } else {
print "Unrecognized output> "; print "Unrecognized output> ";
print; print;
@ -30,7 +28,7 @@ sub loadTorrc {
while (<F>) { while (<F>) {
next if (m!##+!); next if (m!##+!);
if (m!#([A-Za-z0-9_]+)!) { if (m!#([A-Za-z0-9_]+)!) {
$options->{lc $1} = 1; $options->{$1} = 1;
} }
} }
close F; close F;
@ -46,7 +44,7 @@ my $considerNextLine = 0;
open(F, "./doc/tor.1.txt") or die; open(F, "./doc/tor.1.txt") or die;
while (<F>) { while (<F>) {
if (m!^\*\*([A-Za-z0-9_]+)\*\*!) { if (m!^\*\*([A-Za-z0-9_]+)\*\*!) {
$manPageOptions{lc $1} = 1; $manPageOptions{$1} = 1;
} }
} }
close F; close F;