… | |
… | |
83 | my $name = 'irc'; |
83 | my $name = 'irc'; |
84 | my $nick = Net::IRC3::Util::prefix_nick ($msg); |
84 | my $nick = Net::IRC3::Util::prefix_nick ($msg); |
85 | my $NOW = Time::HiRes::time; |
85 | my $NOW = Time::HiRes::time; |
86 | my $tmsg = $msg->{trailing}; |
86 | my $tmsg = $msg->{trailing}; |
87 | $tmsg =~ s/\x01[^\x01]*\x01//g; |
87 | $tmsg =~ s/\x01[^\x01]*\x01//g; |
|
|
88 | $tmsg =~ s/\015?\012/ /g; |
88 | if ($tmsg =~ /^\!/) { |
89 | if ($tmsg =~ /^\!/) { |
89 | handle_fcmd ($name, $nick, $tmsg); |
90 | handle_fcmd ($name, $nick, $tmsg); |
90 | } elsif ($tmsg =~ m/\S/) { |
91 | } elsif ($tmsg =~ m/\S/) { |
91 | $_->ob->message ( |
92 | $_->ob->message ( |
92 | "$name/".$nick." chats: $tmsg", cf::NDI_BLUE |
93 | "$name/".$nick." chats: $tmsg", cf::NDI_BLUE |