From ffe9e3f845b9151b2f3e8f6887332a79f107fa1c Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Tue, 2 Jul 2002 17:03:13 +0000 Subject: Added set command --- Echolot/Commands.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Echolot') 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 -# $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 () { 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"); }; -- cgit v1.2.3