diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-03 11:08:21 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-03 11:08:21 +0000 |
| commit | f9a1bf5f001280fb7a22ba9f9613255fff35161d (patch) | |
| tree | d126e7785a7d562993ce21c6bb2bb238ff1649bd /Echolot/Commands.pm | |
| parent | 574b2ca4b696c34d7f325df2d38384dfabe9ddb4 (diff) | |
Can set remailer caps manually (needed for remailers like passthru2 and lcs
Diffstat (limited to 'Echolot/Commands.pm')
| -rw-r--r-- | Echolot/Commands.pm | 8 |
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"); }; |