Remove the use of global defchan in report_incs, also allow the command in def channel

[NDIRC.git] / Eos.pm

diff --git a/Eos.pm b/Eos.pm
index 6a6c96ebd0622bebfd9218a150eb056e1d138c42..325f69591eee73b1428af2be9d23d6cc010a0c8b 100644 (file)
--- a/Eos.pm
+++ b/Eos.pm
@@ -59,7 +59,7 @@ sub irc_msg {
                #Command parsed and run successfully
        }else{
                $irc->yield(privmsg => $ND::defchan, chr(3)."04 $nick >> $msg");
-               parseCommand(".report_incs $msg",$irc,$nick,' BATCH ','pm',$heap->{disp},DB());
+               parseCommand("~report_incs $msg",$irc,$nick,' BATCH ',$ND::defchan,$heap->{disp},DB());
        }
 }
 
@@ -128,7 +128,7 @@ sub refresh {
        while (my $req = $ircreqs->fetchrow_hashref){
                if ($req->{channel} eq 'def'){
                        $irc->yield(privmsg => $ND::defchan, chr(3)."04 ## $req->{username} via webbie ## >> $req->{message}");
-                       parseCommand(".report_incs $req->{message}",$irc,$req->{username},' BATCH ','pm',$heap->{disp},$dbh);
+                       parseCommand("~report_incs $req->{message}",$irc,$req->{username},' BATCH ',$ND::defchan,$heap->{disp},$dbh);
                }elsif($req->{channel} eq 'scan'){
                        $irc->yield(privmsg => $ND::scanchan, "<$req->{username} via webbie> $req->{message}");
                }elsif($req->{channel} eq 'members'){