diff options
| -rw-r--r-- | Echolot/Pinger.pm | 7 | ||||
| -rw-r--r-- | pingd.conf | 3 |
2 files changed, 7 insertions, 3 deletions
diff --git a/Echolot/Pinger.pm b/Echolot/Pinger.pm index 0585ef8..cebfe05 100644 --- a/Echolot/Pinger.pm +++ b/Echolot/Pinger.pm @@ -1,7 +1,7 @@ package Echolot::Pinger; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Pinger.pm,v 1.1 2002/06/11 09:53:35 weasel Exp $ +# $Id: Pinger.pm,v 1.2 2002/06/11 10:08:19 weasel Exp $ # =pod @@ -69,8 +69,9 @@ sub do_ping($$$) { return 1; }; -sub send_pings($$) { - my ($call_intervall, $send_every_n_calls) = @_; +sub send_pings() { + my $call_intervall = Echolot::Config::get()->{'pinger_interval'} + my $send_every_n_calls = Echolot::Config::get()->{'ping_every_nth_time'} my $now = time(); @@ -20,6 +20,9 @@ <item key="mailerrordir">mail/ERROR</item> <item key="ping_new">1</item> <item key="show_new">0</item> + <item key="pinger_interval">60</hash> + <item key="ping_every_nth_time">2</hash> + </item> <item key="Pinger::Mix"> <hash> <item key="mixdir">/home/weasel/Mix</item> |