summaryrefslogtreecommitdiff
path: root/Echolot
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-09-12 15:41:49 +0000
committerPeter Palfrader <peter@palfrader.org>2002-09-12 15:41:49 +0000
commit601712f0a3adaeb0147c62e999f87b8efbb7623d (patch)
treebf17d75883ed81686dadc0bd64b606cd55fb3351 /Echolot
parent9de7479d3f4cbe0be0a7aa9cbe38623aa03d6269 (diff)
Spelling fixes.
seperate_rlists was renamed to separate_rlists.
Diffstat (limited to 'Echolot')
-rw-r--r--Echolot/Config.pm23
-rw-r--r--Echolot/Stats.pm6
-rw-r--r--Echolot/Tools.pm4
3 files changed, 24 insertions, 9 deletions
diff --git a/Echolot/Config.pm b/Echolot/Config.pm
index c5a1c77..a88367a 100644
--- a/Echolot/Config.pm
+++ b/Echolot/Config.pm
@@ -1,7 +1,7 @@
package Echolot::Config;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Config.pm,v 1.39 2002/08/14 22:54:20 weasel Exp $
+# $Id: Config.pm,v 1.40 2002/09/12 15:41:49 weasel Exp $
#
=pod
@@ -75,7 +75,7 @@ sub init($) {
show_new => 1,
# Statistics Generation
- seperate_rlists => 0,
+ separate_rlists => 0,
combined_list => 0,
thesaurus => 1,
stats_sort_by_latency => 0,
@@ -161,13 +161,13 @@ sub init($) {
remailerxxxtext => "Hello,\n".
"\n".
- "This message requests remailer configation data. The pinging software thinks\n".
+ "This message requests remailer configuration data. The pinging software thinks\n".
"<TMPL_VAR NAME=\"address\"> is a remailer. Either it has been told so by the\n".
"maintainer of the pinger or it found the address in a remailer-conf or\n".
"remailer-key reply of some other remailer.\n".
"\n".
"If this is _not_ a remailer, you can tell this pinger that and it will stop\n".
- "sending you those requests immediatly (otherwise it will try a few more times).\n".
+ "sending you those requests immediately (otherwise it will try a few more times).\n".
"Just reply and make sure the following is the first line of your message:\n".
" not a remailer\n".
"\n".
@@ -206,6 +206,20 @@ sub init($) {
}
+ for my $key (keys %$CONFIG) {
+ warn("Unkown option: $key\n") unless (exists $DEFAULT->{$key});
+ };
+ # Work around spelling bug until 2.0rc3
+ if (exists $CONFIG->{'seperate_rlists'}) {
+ if (exists $CONFIG->{'separate_rlists'}) {
+ warn ("seperate_rlists has been superseded by separate_rlists.");
+ } else {
+ warn ("seperate_rlists has been superseded by separate_rlists, please change it in your config file.\n");
+ $CONFIG->{'separate_rlists'} = $CONFIG->{'seperate_rlists'};
+ };
+ delete $CONFIG->{'seperate_rlists'};
+ }
+
for my $key (keys %$DEFAULT) {
$CONFIG->{$key} = $DEFAULT->{$key} unless defined $CONFIG->{$key};
};
@@ -215,6 +229,7 @@ sub init($) {
for my $key (keys %$CONFIG) {
warn ("Config option $key is not defined\n") unless defined $CONFIG->{$key};
};
+
};
sub get() {
diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm
index 160d451..693aca3 100644
--- a/Echolot/Stats.pm
+++ b/Echolot/Stats.pm
@@ -1,7 +1,7 @@
package Echolot::Stats;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Stats.pm,v 1.33 2002/09/05 15:12:01 weasel Exp $
+# $Id: Stats.pm,v 1.34 2002/09/12 15:41:49 weasel Exp $
#
=pod
@@ -510,12 +510,12 @@ sub build_lists() {
$stats{'cpunk_total'} = scalar @$pubrems;
$stats{'cpunk_98'} = scalar grep { $_->{'stats'}->{'avr_reliability'} >= 0.98 } @$pubrems;
$addresses{$_->{'address'}}=1 for @$pubrems;
- if (Echolot::Config::get()->{'combined_list'} && ! Echolot::Config::get()->{'seperate_rlists'}) {
+ if (Echolot::Config::get()->{'combined_list'} && ! Echolot::Config::get()->{'separate_rlists'}) {
$clist->{'cpunk'} = $rems;
$pubclist->{'cpunk'} = $pubrems; $pubrems = undef;
};
- if (Echolot::Config::get()->{'seperate_rlists'}) {
+ if (Echolot::Config::get()->{'separate_rlists'}) {
$rems = build_rems(['cpunk-rsa']);
@$pubrems = grep { $_->{'showit'} } @$rems;
build_rlist1( $rems, $broken1, $broken2, $sameop, Echolot::Config::get()->{'private_resultdir'}.'/'.'rlist-rsa', Echolot::Config::get()->{'templates'}->{'rlist-rsa'});
diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm
index cd86f32..ff57c3e 100644
--- a/Echolot/Tools.pm
+++ b/Echolot/Tools.pm
@@ -1,7 +1,7 @@
package Echolot::Tools;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Tools.pm,v 1.9 2002/09/03 17:14:27 weasel Exp $
+# $Id: Tools.pm,v 1.10 2002/09/12 15:41:49 weasel Exp $
#
=pod
@@ -198,7 +198,7 @@ sub write_HTML_file($$;$%) {
$template->param ( %templateparams );
$template->param ( CURRENT_TIMESTAMP => scalar gmtime() );
$template->param ( SITE_NAME => Echolot::Config::get()->{'sitename'} );
- $template->param ( seperate_rlist => Echolot::Config::get()->{'seperate_rlists'} );
+ $template->param ( separate_rlist => Echolot::Config::get()->{'separate_rlists'} );
$template->param ( combined_list => Echolot::Config::get()->{'combined_list'} );
$template->param ( thesaurus => Echolot::Config::get()->{'thesaurus'} );
$template->param ( version => Echolot::Globals::get()->{'version'} );