summaryrefslogtreecommitdiff
path: root/Echolot/Commands.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-07-03 11:08:21 +0000
committerPeter Palfrader <peter@palfrader.org>2002-07-03 11:08:21 +0000
commitf9a1bf5f001280fb7a22ba9f9613255fff35161d (patch)
treed126e7785a7d562993ce21c6bb2bb238ff1649bd /Echolot/Commands.pm
parent574b2ca4b696c34d7f325df2d38384dfabe9ddb4 (diff)
Can set remailer caps manually (needed for remailers like passthru2 and lcs
Diffstat (limited to 'Echolot/Commands.pm')
-rw-r--r--Echolot/Commands.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/Echolot/Commands.pm b/Echolot/Commands.pm
index d00f2c0..d5ef445 100644
--- a/Echolot/Commands.pm
+++ b/Echolot/Commands.pm
@@ -1,7 +1,7 @@
package Echolot::Commands;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Commands.pm,v 1.4 2002/07/03 00:54:40 weasel Exp $
+# $Id: Commands.pm,v 1.5 2002/07/03 11:08:21 weasel Exp $
#
=pod
@@ -71,6 +71,12 @@ sub processCommands($) {
Echolot::Globals::get()->{'scheduler'}->schedule('getkeyconf', time() );
} elsif ($command eq 'delete') {
Echolot::Globals::get()->{'storage'}->delete_remailer(@args);
+ } elsif ($command eq 'setremailercaps') {
+ my $addr = shift @args;
+ my $conf = join(' ', @args);
+ Echolot::Conf::set_caps_manually($addr, $conf);
+ } elsif ($command eq 'deleteremailercaps') {
+ Echolot::Globals::get()->{'storage'}->delete_remailercaps(@args);
} else {
warn("Unkown command: $_\n");
};