From fca430218fb2f240826077d08db02e7ff95d87e1 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Tue, 2 Jul 2002 17:04:21 +0000
Subject: Added fetch new fix passwd params

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

(limited to 'Echolot')

diff --git a/Echolot/Config.pm b/Echolot/Config.pm
index ce4f53e..057b6ee 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.4 2002/07/02 14:17:44 weasel Exp $
+# $Id: Config.pm,v 1.5 2002/07/02 17:04:21 weasel Exp $
 #
 
 =pod
@@ -34,6 +34,7 @@ sub init($) {
 		smarthost                   => 'localhost',
 		mailindir                   => 'mail/IN',
 		mailerrordir                => 'mail/ERROR',
+		fetch_new                   => 1,
 		ping_new                    => 1,
 		show_new                    => 1,
 		pinger_interval             => 300,
@@ -72,9 +73,7 @@ sub init($) {
 		$CONFIG->{$key} = $DEFAULT->{$key} unless defined $CONFIG->{$key};
 	};
 
-	for my $key (keys %$params) {
-		$CONFIG->{$key} = $params->{$key} if defined $CONFIG->{$key};
-	};
+	$CONFIG->{'verbose'} = 1 if ($params->{'verbose'});
 
 	for my $key (keys %$CONFIG) {
 		warn ("Config option $key is not defined\n") unless defined $CONFIG->{$key};
-- 
cgit v1.2.3