X-Git-Url: https://ruin.nu/git/?p=NDIRC.git;a=blobdiff_plain;f=Delling.pm;h=178e58b5f1459c1d912085b81659a7c93907ee12;hp=eb9c929ee9cc98095d6e5c2998ffd6238288323c;hb=036bfadee395d5ec8bfa4e00b05077a90a8d232a;hpb=0822847cd53af14ada68762a2f9d152a274a4d9b

diff --git a/Delling.pm b/Delling.pm
index eb9c929..178e58b 100644
--- a/Delling.pm
+++ b/Delling.pm
@@ -225,22 +225,26 @@ after discord_message_create => sub {
 	my $author = $hash->{author};
 	my $msg = $hash->{content};
 	my $channel_id = $hash->{channel_id};
-	my $author_name = $author->{username};
+	my $author_name = $author->{username}.'#'.$author->{discriminator};
 	my $author_id = $author->{id};
-	say localtime(time) . "$channel_id $author_name $author_id";
 	return if $author->{'id'} eq $self->discord_id; # Ignore my own messages
 
-	my $channel = "#testarlite";
+	my $channel = "pm";
+	if (exists $self->discord_channels->{$channel_id}) {
+		$channel = "#".$self->discord_channels->{$channel_id};
+	}
+
+	say localtime(time) . " - $channel_id $channel $author_name $author_id";
 
 	my ($p,$command,$args) = ($msg =~ /^([.!~])(\S+)(?: (.+))?/);
 
-	say localtime(time) . " - $msg";
 
 	return 0 unless $self->disp->has_command($command,$channel);
 
+	say localtime(time) . " - $msg";
 
 	my $c = NDIRC::DiscordContext->new({
-			discord_id => $author_id,
+			discord_id => $author_name,
 			channel_id => $channel_id,
 			channel => $channel,
 			disp => $self->disp,