Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 10:35:41 -04:00
Code Issues Releases Wiki Activity

fixing bug

Browse source
This commit is contained in:
ryan 2010-01-12 16:04:18 -05:00
parent 7f0e743c93
commit 44af8db499
1 changed files with 18 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
lib/Bot/BB3/Roles/IRC.pm
View file

@ -288,20 +288,11 @@ sub _said {
$said->{$_} = shift @user_info;
}
#--------------------------
# Check for forwarded message
#--------------------------
$said->{body} = $said->{body_raw};
if ($said->{body} =~ s/\s*>\s*\b([^>]+)\s*$//)
{
#we have a forwarded message
$said->{forwarding} = $1;
}
#--------------------------
# Check for our own name
#--------------------------
$said->{body} = $said->{body_raw};
if( $said->{my_name} ) { #TODO verify that we need this if check.
my $body = $said->{body_raw};
@ -320,6 +311,17 @@ sub _said {
$said->{addressed_as} = $1;
}
}
#--------------------------
# Check for forwarded message
#--------------------------
if ($said->{addressed} && $said->{body} =~ s/\s*>\s*\b([^\s>]+)\s*$//)
{
#we have a forwarded message
$said->{forwarding} = $1;
}
#--------------------------
#--------------------------
@ -515,6 +517,11 @@ sub channel_list {
sub plugin_output {
my( $self, $said, $text ) = @_[OBJECT,ARG0,ARG1];
utf8::decode( $text );
return unless $text =~ /\S/;
$text =~ s/\0/\\0/g; # Replace nulls to prevent them truncating strings we attempt to output.
#this forwards messages to priv_msg for users
if (exists($said->{forwarding}) && defined($said->{forwarding}) && ($said->{forwarding} =~ /\S/))
{
@ -530,11 +537,6 @@ sub plugin_output {
return;
}
utf8::decode( $text );
return unless $text =~ /\S/;
$text =~ s/\0/\\0/g; # Replace nulls to prevent them truncating strings we attempt to output.
my $pci = $self->get_component( $said->{pci_id} );
# sub send_text( $said, $text ) !