shadowm

Untitled

Apr 23rd, 2011
275
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.21 KB | None | 0 0
  1. SIGNAL_LAST {
  2.     my ($server, $msg, $nick, $uh) = @_;
  3.     my $own_nick = $server->{'nick'};
  4.  
  5.     return if nuh_is_bot("$nick!$uh");
  6.  
  7.     $msg =~ s/^\Q$global_command_prefix//i; # Remove redundant bang
  8.     $msg =~ s/^\Q$own_nick\E[:,]\s+//i;     # Remove redundant referer prefix
  9.  
  10.     process_command($server, $msg, "$nick!$uh", '', $nick);
  11.  
  12. } 'message private';
  13.  
  14. SIGNAL_LAST {
  15.     my ($server, $msg, $nick, $uh, $channel) = @_;
  16.     my $own_nick = $server->{'nick'};
  17.  
  18.     return if nuh_is_bot("$nick!$uh");
  19.  
  20.     # Bang-commands are considered direct commands
  21.     $msg =~ s/^\Q$own_nick\E[:,]\s+//i || $msg =~ s/^\Q$global_command_prefix//i
  22.         or return process_public($server, $msg, "$nick!$uh", $channel, '');
  23.  
  24.     if($msg =~ s/\@\s*(.*)$//) {
  25.         my $override_nick = $1;
  26.         Rei2::Util::sanitize_whitespace $override_nick;
  27.  
  28.         my $nick_rec =
  29.             $server->channel_find($channel)->nick_find($override_nick);
  30.         $nick_rec
  31.             or return; # TODO: report error
  32.  
  33.         $nick = $nick_rec->{nick};
  34.         $uh   = $nick_rec->{host};
  35.     }
  36.  
  37.     lc($nick) eq lc($own_nick) and return;
  38.  
  39.     process_command($server, $msg, "$nick!$uh", $channel, '');
  40.  
  41. } 'message public';
Advertisement
Add Comment
Please, Sign In to add comment