diff options
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"); }; |