X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Delling.pm;h=41d87254ae6ea852db45c148504954f0e36398b2;hb=c9251f1bab067759546d60d35782731360ad70df;hp=fe35fe131562ee1fecbb8d3f25b3cc82ad0a5ce2;hpb=dcb7d5ee3791ae43e7fcaf3639ce5b70f6c659ab;p=NDIRC.git diff --git a/Delling.pm b/Delling.pm index fe35fe1..41d8725 100644 --- a/Delling.pm +++ b/Delling.pm @@ -103,7 +103,7 @@ WHERE u.hostmask = $1 AND channel = $2 AND flag IN ('o','v'); $irc->yield(mode => $channel, $mode, @who) if $mode; } - if (lc $channel ~~ lc $self->targets->{members}){ + if (lc $channel ~~ @{$self->targets->{members}}){ if (time - $last_announcement < 1){ $last_announcement = time; return; @@ -115,14 +115,14 @@ FROM users u WHERE hostmask = ? }, undef, $address); if ($user){ unless ($user->{password}) { - $irc->yield(privmsg => $self->targets->{members}, "$nick: Get a new random password with /msg delling !getpass . If you don't know your username, then you can get it with .points"); + $irc->yield(privmsg => $channel, "$nick: Get a new random password with /msg delling !getpass . If you don't know your username, then you can get it with .points"); } if ($tick > 12 && not defined $user->{pid}){ - $irc->yield(privmsg => $self->targets->{members}, "$nick: go to https://nd.ruin.nu/ and enter your coords."); + $irc->yield(privmsg => $channel, "$nick: go to https://nd.ruin.nu/ and enter your coords."); } if (not defined $user->{last_forum_visit}){ - $irc->yield(privmsg => $self->targets->{members}, "$nick: Go read the forum! https://nd.ruin.nu/forum"); + $irc->yield(privmsg => $channel, "$nick: Go read the forum! https://nd.ruin.nu/forum"); }else { my $unread = $dbh->selectrow_hashref(q{SELECT * FROM unread_posts($1)},undef,$user->{uid}); if ($unread && $unread->{new}){ @@ -183,7 +183,7 @@ sub refresh { while (my $req = $ircreqs->fetchrow_hashref){ if ($req->{channel} eq 'def'){ $self->toTarget(def => "## $req->{username} via webbie ## >> $req->{message}"); - #$self->parseCommand("~report_incs $req->{message}",$irc,$req->{username},' BATCH ',$disp->targets->{def},$dbh); + $self->parseCommand("~report_incs $req->{message}",$irc,$req->{username},' BATCH ','#def-ndawn',$dbh); }else{ $self->toTarget($req->{channel} => "<$req->{username} via webbie> $req->{message}"); } @@ -237,13 +237,6 @@ after discord_message_create => sub { say localtime(time) . " - $channel_id $channel $author_name $author_id"; - my ($p,$command,$args) = ($msg =~ /^([.!~])(\S+)(?: (.+))?/); - - - return 0 unless $self->disp->has_command($command,$channel); - - say localtime(time) . " - $msg"; - my $c = NDIRC::DiscordContext->new({ discord_id => $author_name, channel_id => $channel_id, @@ -254,7 +247,7 @@ after discord_message_create => sub { discord => $self->discord, }); - return $self->disp->run_command($c,$command,$args); + return $self->handleCommand($c,$msg); };