diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-02 17:04:21 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-02 17:04:21 +0000 |
| commit | fca430218fb2f240826077d08db02e7ff95d87e1 (patch) | |
| tree | 77106cb0499eb799659d2e9290e9c2016013d08c | |
| parent | 172e72cfeaffaf2083996e8c4b22b2b96bd01540 (diff) | |
Added fetch new
fix passwd params
| -rw-r--r-- | Echolot/Config.pm | 7 |
1 files changed, 3 insertions, 4 deletions
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}; |