|
@@ -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{$mostRecentOption} = 1;
|
|
|
|
|
|
+ $options{$1} = 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;
|