eleksir/aleesa-jabber-bot
1
Fork 0
Code Activity

Add multiline support for outgoing messages in Net::Jabber::Bot

Browse Source
This commit is contained in:
eleksir
2020-11-14 19:32:56 +03:00
parent bb9c0cd20c
commit 623bf8ef01
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Net/Jabber/Bot.pm
View File

@@ -1016,9 +1016,9 @@ sub _send_individual_message {
return "Server is down.\n";
}
# Strip out anything that's not a printable character
# Strip out anything that's not a printable character except new line, we want to be able to send multiline message, aren't we?
# Now with unicode support?
$message_chunk =~ s/[^[:print:]]+/./xmsg;
$message_chunk =~ s/[^[\n|\r|\r\n|:print:]]+/./xmsg;
my $message_length = length($message_chunk);
DEBUG("Sending message $yday-$hour-$messages_this_hour $message_length bytes to $recipient");