summaryrefslogtreecommitdiff
path: root/pingd
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-07-02 13:40:57 +0000
committerPeter Palfrader <peter@palfrader.org>2002-07-02 13:40:57 +0000
commitc4f8128df9b588f13a5855efe9dcfee757f7813d (patch)
tree3d3c157c47ce2ef29a23fb48468dde1361230350 /pingd
parent5f40dbe8a284bf3326b36d156d4e4cf0c273b07d (diff)
added expire job
Diffstat (limited to 'pingd')
-rwxr-xr-xpingd22
1 files changed, 13 insertions, 9 deletions
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 <peter@palfrader.org>
-# $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();