Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- SIGNAL_LAST {
- my ($server, $msg, $nick, $uh) = @_;
- my $own_nick = $server->{'nick'};
- return if nuh_is_bot("$nick!$uh");
- $msg =~ s/^\Q$global_command_prefix//i; # Remove redundant bang
- $msg =~ s/^\Q$own_nick\E[:,]\s+//i; # Remove redundant referer prefix
- process_command($server, $msg, "$nick!$uh", '', $nick);
- } 'message private';
- SIGNAL_LAST {
- my ($server, $msg, $nick, $uh, $channel) = @_;
- my $own_nick = $server->{'nick'};
- return if nuh_is_bot("$nick!$uh");
- # Bang-commands are considered direct commands
- $msg =~ s/^\Q$own_nick\E[:,]\s+//i || $msg =~ s/^\Q$global_command_prefix//i
- or return process_public($server, $msg, "$nick!$uh", $channel, '');
- if($msg =~ s/\@\s*(.*)$//) {
- my $override_nick = $1;
- Rei2::Util::sanitize_whitespace $override_nick;
- my $nick_rec =
- $server->channel_find($channel)->nick_find($override_nick);
- $nick_rec
- or return; # TODO: report error
- $nick = $nick_rec->{nick};
- $uh = $nick_rec->{host};
- }
- lc($nick) eq lc($own_nick) and return;
- process_command($server, $msg, "$nick!$uh", $channel, '');
- } 'message public';
Advertisement
Add Comment
Please, Sign In to add comment