shadowm

Untitled

Apr 23rd, 2011
240
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.72 KB | None | 0 0
  1. SIGNAL_LAST {
  2.     my ($server, $msg, $nick, $uh) =@_;
  3.  
  4.     my $own_nick = $server->{nick};
  5.  
  6.     Rei2::Core::Dispatcher::enter_event(
  7.         backend         => $server,
  8.         type            => PRIVATE,
  9.         event_source    => "$nick!$uh",
  10.         contents        => $msg,
  11.     );
  12.  
  13.     Irssi::signal_stop();
  14. } 'message private';
  15.  
  16. SIGNAL_LAST {
  17.     my ($server, $msg, $nick, $uh, $channel) =@_;
  18.  
  19.     my $own_nick = $server->{nick};
  20.  
  21.     Rei2::Core::Dispatcher::enter_event(
  22.         backend         => $server,
  23.         type            => PUBLIC,
  24.         event_source    => "$nick!$uh",
  25.         event_location  => $channel,
  26.         contents        => $msg,
  27.     );
  28.  
  29.     Irssi::signal_stop();
  30. } 'message public';
Advertisement
Add Comment
Please, Sign In to add comment