Basic conversion to POE::Component::IRC

[NDIRC.git] / Commands / Scans.pm

diff --git a/Commands/Scans.pm b/Commands/Scans.pm
index 31eea44fb9f940800b58132568c4d9cfc673f0a2..acfe9a90cbecb27f1b5012c24a7376be2093f6d5 100644 (file)
--- a/Commands/Scans.pm
+++ b/Commands/Scans.pm
@@ -93,7 +93,7 @@ VALUES((SELECT uid FROM users WHERE hostmask ILIKE $1),$2,$3,$4) RETURNING (id)
                }
 
                if ($id){
-                       $c->message("msg $ND::scanchan"
+                       $c->message(privmsg => $ND::scanchan
                                ,"<b>$id</b> http://game.planetarion.com/waves.pl?id=$typeid&x=$x&y=$y&z=$z"
                                . " ($x:$y:$z $type) | <".$c->nick."> $msg"
                        );
@@ -198,9 +198,9 @@ sub anon
        my ($self, $c, $msg) = @_;
        my ($target,$mess) = $msg =~ /^(\S+) (.*)$/ or die 'ARGS';
 
-       $c->message("msg $target", "<b>$mess</b> <c04>(reply with /msg "
+       $c->message(privmsg => $target, "<b>$mess</b> <c04>(reply with /msg "
                .$c->channel.")</c>");
-       $c->message("msg ".$c->channel, "<c03>$target << $mess</c>");
+       $c->message(privmsg => $c->channel, "<c03>$target << $mess</c>");
 }
 
 sub addscan