From c4f8128df9b588f13a5855efe9dcfee757f7813d Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Tue, 2 Jul 2002 13:40:57 +0000 Subject: added expire job --- pingd | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) (limited to 'pingd') diff --git a/pingd b/pingd index 0a45546..427f9d7 100755 --- a/pingd +++ b/pingd @@ -1,7 +1,7 @@ #!/usr/bin/perl -wT # (c) 2002 Peter Palfrader -# $Id: pingd,v 1.5 2002/06/20 04:30:04 weasel Exp $ +# $Id: pingd,v 1.6 2002/07/02 13:40:57 weasel Exp $ # =pod @@ -123,6 +123,9 @@ sub setSigHandlers() { sub commit_prospective_address() { Echolot::Globals::get()->{'storage'}->commit_prospective_address(); }; +sub expire() { + Echolot::Globals::get()->{'storage'}->expire(); +}; @@ -166,19 +169,20 @@ if ($COMMAND eq 'add') { } elsif ($COMMAND eq 'stop') { die ("stop not implemented yet"); } elsif ($COMMAND eq 'start') { - setSigHandlers(); Echolot::Globals::initStorage(); + setSigHandlers(); $scheduler = new Echolot::Scheduler; - $scheduler->add('exit' , -1 , 0, 'exit' ); - $scheduler->add('readcommands' , -1 , 0, \&Echolot::Commands::processCommands ); + $scheduler->add('exit' , -1 , 0, 'exit' ); + $scheduler->add('readcommands' , -1 , 0, \&Echolot::Commands::processCommands ); - $scheduler->add('processmail' , 60 , 0, \&Echolot::Mailin::process ); - $scheduler->add('ping' , Echolot::Config::get()->{'pinger_interval'}, 0, \&Echolot::Pinger::send_pings ); - $scheduler->add('buildstats' , 60 , 0, \&Echolot::Stats::build ); + $scheduler->add('processmail' , 60 , 0, \&Echolot::Mailin::process ); + $scheduler->add('ping' , Echolot::Config::get()->{'pinger_interval'} , 0, \&Echolot::Pinger::send_pings ); + $scheduler->add('buildstats' , 60 , 0, \&Echolot::Stats::build ); - $scheduler->add('commitprospectives' , 30*60 ,240, \&commit_prospective_address ); - $scheduler->add('getkeyconf' , 60*60 , 0, \&Echolot::Conf::send_requests ); + $scheduler->add('commitprospectives' , 30*60 , 0, \&commit_prospective_address ); + $scheduler->add('expire' , 15*60 , 0, \&expire ); + $scheduler->add('getkeyconf' , 24*60*60 , 0, \&Echolot::Conf::send_requests ); $scheduler->run(); -- cgit v1.2.3