Print dm content in log

diff --git a/Delling.pm b/Delling.pm
index 2b5eff81cdc556e1631857b46ccb3f67a1004d6c..feb1d80cec65ca7b90425c075fc79a74c5552142 100644 (file)
--- a/Delling.pm
+++ b/Delling.pm
@@ -237,6 +237,10 @@ after discord_message_create => sub {
        }
 
        say localtime(time) . " - $channel_id $channel $author_name $author_id";
+       if ($channel eq 'dm')
+       {
+               say " - '$msg'";
+       }
 
        my $c = NDIRC::DiscordContext->new({
                        discord_id => $author_name,