diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-02 18:15:26 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-02 18:15:26 +0000 |
| commit | ca9c8bcbdf13c06cafc2adfcb2f50fbbd85180d7 (patch) | |
| tree | 5a676e6ba47a4e4c634d96aa71da539ba6ef46e0 /Echolot | |
| parent | bcb4b53f7c2aec7062fac9f468496381a257ad82 (diff) | |
configure pinging options (i.e. cpunkt-{rsa,dsa,none}, mix)
Diffstat (limited to 'Echolot')
| -rw-r--r-- | Echolot/Config.pm | 9 | ||||
| -rw-r--r-- | Echolot/Pinger.pm | 3 |
2 files changed, 10 insertions, 2 deletions
diff --git a/Echolot/Config.pm b/Echolot/Config.pm index f2ff976..d3b2537 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.8 2002/07/02 17:17:56 weasel Exp $ +# $Id: Config.pm,v 1.9 2002/07/02 18:15:26 weasel Exp $ # =pod @@ -63,6 +63,13 @@ sub init($) { } }, + do_pings => { + 'cpunk-dsa' => 1, + 'cpunk-rsa' => 1, + 'cpunk-clear' => 1, + 'mix' => 1 + }, + homedir => undef, my_localpart => undef, my_domain => undef, diff --git a/Echolot/Pinger.pm b/Echolot/Pinger.pm index 86ba068..3f092d5 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.10 2002/07/02 18:03:55 weasel Exp $ +# $Id: Pinger.pm,v 1.11 2002/07/02 18:15:26 weasel Exp $ # =pod @@ -112,6 +112,7 @@ sub send_pings() { next unless ($this_call_id eq $this_remailer_id); for my $type (Echolot::Globals::get()->{'storage'}->get_types($address)) { + next unless Echolot::Config::get()->{'do_pings'}->{$type}; for my $key (Echolot::Globals::get()->{'storage'}->get_keys($address, $type)) { print "ping calling $type, $address, $key\n" if Echolot::Config::get()->{'verbose'}; do_ping($type, $address, $key); |