eleksir/aleesa-irc-bot
0
Fork 0
Code Activity

Fix url handling in answer

Browse Source
This commit is contained in:
Sergei Fedosov
2021-08-06 14:16:49 +03:00
parent eecb73a718
commit 952e509e92
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/Bot/IRC.pm
View File

@@ -598,7 +598,7 @@ sub say {
for my $s (@_) { for my $s (@_) {
if ($s =~ /^PRIVMSG /) { if ($s =~ /^PRIVMSG /) {
foreach my $buf (split_irc_msg ($s)) { foreach my $buf (split_irc_msg ($self, $s)) {
my $string = $buf; my $string = $buf;
_utf8_off ($buf); _utf8_off ($buf);
$self->{socket}->syswrite( $buf . "\r\n"); $self->{socket}->syswrite( $buf . "\r\n");
@@ -681,6 +681,7 @@ sub health {
} }
sub split_irc_msg { sub split_irc_msg {
my $self = shift;
my $str = shift; my $str = shift;
chomp $str; chomp $str;
@@ -701,8 +702,13 @@ sub split_irc_msg {
$prefix = CORE::join ':', @message; $prefix = CORE::join ':', @message;
$prefix .= ':'; $prefix .= ':';
} else { } else {
$prefix = CORE::join ':', @message; if ($message [1] eq $self->{nick} || $message [1] eq $self->{in}->{nick}) {
$prefix .= ', '; $prefix = CORE::join ':', @message;
$prefix .= ', ';
} else {
$prefix = CORE::join ':', @message;
$prefix .= ':';
}
} }
$MAXLEN = $MAXLEN - bytes::length ($prefix) - 100; $MAXLEN = $MAXLEN - bytes::length ($prefix) - 100;