apps/irssi/scripts/privmsg.pl

   1 # listen PRIVMSGs - send a notice to yourself when your nick is meantioned
   2
   3 use Irssi;
   4 use strict;
   5
   6 sub event_privmsg {
   7         my ($server, $data, $nick, $address) = @_;
   8         my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
   9
  10         return if (!$server->ischannel($target));
  11
  12         my $mynick = $server->{nick};
  13         return if ($text !~ /\b$mynick\b/);
  14
  15         $server->command("/notice $mynick In channel $target, $nick!$address said: $text");
  16 }
  17
  18 Irssi::signal_add("event privmsg", "event_privmsg");