From ffe9e3f845b9151b2f3e8f6887332a79f107fa1c Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
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 <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");
 		};
-- 
cgit v1.2.3