From 5362383a5ec27d3bde7b97794450966906c1a42b Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Mon, 10 Sep 2007 09:12:00 +0200 Subject: [PATCH] updated sendScan --- Scans.pm | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/Scans.pm b/Scans.pm index 1315e22..1576645 100644 --- a/Scans.pm +++ b/Scans.pm @@ -71,11 +71,18 @@ sub addScanGroup { } sub sendScan { - my ($target,$msg) = @_; - DB(); + my ($msg, $command) = @_; + my ($target,$mess); + if (defined $msg && $msg =~ /^(\S+) (.*)$/){ + $target = $1; + $mess = $2; + }else{ + $ND::server->command("notice $ND::nick syntax: $command nick message"); + return; + } if (scanner()){ - $ND::server->command("msg $target ".chr(2).$msg.chr(3)."4 (reply with /msg $ND::scanchan)"); - $ND::server->command("msg $ND::target ${ND::C}3$1 << $2"); + $ND::server->command("msg $target ".chr(2).$mess.chr(3)."4 (reply with /msg $ND::scanchan)"); + $ND::server->command("msg $ND::target ${ND::C}3$target << $mess"); } } -- 2.39.2