diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-02 17:03:13 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-02 17:03:13 +0000 |
| commit | ffe9e3f845b9151b2f3e8f6887332a79f107fa1c (patch) | |
| tree | 3636738f6ed184f276876ba354a773f5039da0f9 /Echolot/Commands.pm | |
| parent | da9291364027a65150dce59e4c43ce50eccecdde (diff) | |
Added set command
Diffstat (limited to 'Echolot/Commands.pm')
| -rw-r--r-- | Echolot/Commands.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Echolot/Commands.pm b/Echolot/Commands.pm index 6cc0612..86ea89c 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.2 2002/07/02 14:06:51 weasel Exp $ +# $Id: Commands.pm,v 1.3 2002/07/02 17:03:13 weasel Exp $ # =pod @@ -61,10 +61,12 @@ sub processCommands($) { while (<FH>) { chomp; - my ($command, $args) = split; + my ($command, @args) = split; if ($command eq 'add') { - Echolot::Globals::get()->{'storage'}->add_address($args); + Echolot::Globals::get()->{'storage'}->add_address(@args); + } elsif ($command eq 'set') { + Echolot::Globals::get()->{'storage'}->set_stuff(@args); } else { warn("Unkown command: $_\n"); }; |