summaryrefslogtreecommitdiff
path: root/Echolot
diff options
context:
space:
mode:
Diffstat (limited to 'Echolot')
-rw-r--r--Echolot/Config.pm9
-rw-r--r--Echolot/Pinger.pm3
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);