From c9251f1bab067759546d60d35782731360ad70df Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Sun, 4 Aug 2019 10:25:35 +0200
Subject: [PATCH] Minor discord fixes

---
 Bot.pm     | 4 ++--
 Delling.pm | 8 ++++----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/Bot.pm b/Bot.pm
index 3635312..e204129 100644
--- a/Bot.pm
+++ b/Bot.pm
@@ -255,7 +255,7 @@ sub _build_disp {
 		if ($chan =~ /^(.*):(.*)$/){
 			$chan = $1;
 			$self->targets->{$2} = [] unless exists $self->targets->{$2};
-			push @{$self->targets->{$2}},$chan;
+			push @{$self->targets->{$2}},lc $chan;
 			say "$2 - @{$self->targets->{$2}}";
 		}
 		$disp->add_channel($chan,\@types);
@@ -449,7 +449,7 @@ sub message {
 	my ($self, $msg, @targets) = @_;
 
 	for (@targets) {
-		when (/^D-(\d+)$/) {
+		when (/^D-(\d+)$/i) {
 			$self->discordMessage($1, $msg);
 		}
 		default {
diff --git a/Delling.pm b/Delling.pm
index ac25d0f..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}){
-- 
2.39.2