Basic conversion to POE::Component::IRC

[NDIRC.git] / Commands / Def.pm

diff --git a/Commands/Def.pm b/Commands/Def.pm
index 80b02fdf454d560b161857085461c3defe577062..e13758d4797964e6bdd0d8293c8f101c1a0717b8 100644 (file)
--- a/Commands/Def.pm
+++ b/Commands/Def.pm
@@ -37,8 +37,8 @@ sub anon
 
        my ($target,$mess) = $msg =~ /^(\S+) (.*)$/ or die 'ARGS';
 
-       $c->message("msg $target", "<b>$mess</b>");
-       $c->message("msg ".$c->channel, "<c03>$target << $mess</c>");
+       $c->message(privmsg => $target, "<b>$mess</b>");
+       $c->message(privmsg => $c->channel, "<c03>$target << $mess</c>");
 }
 
 sub defcall
@@ -74,8 +74,8 @@ ORDER BY c.landing_tick;
                        return;
                }
        }
-       $c->message("notice $ND::memchan", "DEFENSE REQUIRED!! WAKE UP!!");
-       $c->message("msg $ND::memchan", "DEFENSE REQUIRED $mess $callinfo MSG "
+       $c->message(notice => $ND::memchan, "DEFENSE REQUIRED!! WAKE UP!!");
+       $c->message(privmsg => $ND::memchan, "DEFENSE REQUIRED $mess $callinfo MSG "
                .$c->nick." TO RESPOND");
 }