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