From 601712f0a3adaeb0147c62e999f87b8efbb7623d Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Thu, 12 Sep 2002 15:41:49 +0000
Subject: Spelling fixes. seperate_rlists was renamed to separate_rlists.

---
 Echolot/Config.pm | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

(limited to 'Echolot/Config.pm')

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() {
-- 
cgit v1.2.3