| 1 |
#!/usr/bin/perl -wT |
#!/usr/bin/perl -wT |
| 2 |
|
|
| 3 |
# (c) 2002 Peter Palfrader <peter@palfrader.org> |
# (c) 2002 Peter Palfrader <peter@palfrader.org> |
| 4 |
# $Id: pingd,v 1.16 2002/07/03 12:54:31 weasel Exp $ |
# $Id: pingd,v 1.17 2002/07/06 00:50:27 weasel Exp $ |
| 5 |
# |
# |
| 6 |
|
|
| 7 |
=pod |
=pod |
| 204 |
use Echolot::Pinger; |
use Echolot::Pinger; |
| 205 |
use Echolot::Stats; |
use Echolot::Stats; |
| 206 |
use Echolot::Commands; |
use Echolot::Commands; |
| 207 |
|
use Echolot::Thesaurus; |
| 208 |
|
|
| 209 |
$ENV{'PATH'} = '/bin:/usr/bin'; |
$ENV{'PATH'} = '/bin:/usr/bin'; |
| 210 |
delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'}; |
delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'}; |
| 342 |
$scheduler->add('processmail' , Echolot::Config::get()->{'processmail'} , 0, \&Echolot::Mailin::process ); |
$scheduler->add('processmail' , Echolot::Config::get()->{'processmail'} , 0, \&Echolot::Mailin::process ); |
| 343 |
$scheduler->add('ping' , Echolot::Config::get()->{'pinger_interval'} , 0, \&Echolot::Pinger::send_pings ); |
$scheduler->add('ping' , Echolot::Config::get()->{'pinger_interval'} , 0, \&Echolot::Pinger::send_pings ); |
| 344 |
$scheduler->add('buildstats' , Echolot::Config::get()->{'buildstats'} , 0, \&Echolot::Stats::build ); |
$scheduler->add('buildstats' , Echolot::Config::get()->{'buildstats'} , 0, \&Echolot::Stats::build ); |
| 345 |
|
$scheduler->add('buildthesaurus' , Echolot::Config::get()->{'build_thesaurus'} , 0, \&Echolot::Thesaurus::build_thesaurus ); |
| 346 |
|
|
| 347 |
$scheduler->add('commitprospectives' , Echolot::Config::get()->{'commitprospectives'} , 0, \&commit_prospective_address ); |
$scheduler->add('commitprospectives' , Echolot::Config::get()->{'commitprospectives'} , 0, \&commit_prospective_address ); |
| 348 |
$scheduler->add('expire' , Echolot::Config::get()->{'expire'} , 0, \&expire ); |
$scheduler->add('expire' , Echolot::Config::get()->{'expire'} , 0, \&expire ); |
| 385 |
sub make_dirs() { |
sub make_dirs() { |
| 386 |
for my $dir ( |
for my $dir ( |
| 387 |
Echolot::Config::get()->{'resultdir'}, |
Echolot::Config::get()->{'resultdir'}, |
| 388 |
|
Echolot::Config::get()->{'thesaurusdir'}, |
| 389 |
Echolot::Config::get()->{'private_resultdir'}, |
Echolot::Config::get()->{'private_resultdir'}, |
| 390 |
Echolot::Config::get()->{'gnupghome'}, |
Echolot::Config::get()->{'gnupghome'}, |
| 391 |
Echolot::Config::get()->{'tmpdir'}, |
Echolot::Config::get()->{'tmpdir'}, |