diff options
author | Timo Sirainen <cras@irssi.org> | 2002-03-10 21:28:38 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-03-10 21:28:38 +0000 |
commit | 03c71116e044fda9d99e827a4ffb0652d508abb5 (patch) | |
tree | df36506fb09ad6563feaf394a0a47728348cadd6 /scripts/examples/msg-event.pl | |
parent | 1855e6cc5c84ec861bf1301c09841cb2fd9ad718 (diff) | |
download | irssi-03c71116e044fda9d99e827a4ffb0652d508abb5.zip |
added/removed some default scripts
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2569 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'scripts/examples/msg-event.pl')
-rw-r--r-- | scripts/examples/msg-event.pl | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/scripts/examples/msg-event.pl b/scripts/examples/msg-event.pl new file mode 100644 index 00000000..53174e23 --- /dev/null +++ b/scripts/examples/msg-event.pl @@ -0,0 +1,41 @@ +# Example how to react on specific messages: + +# !reverse <text> sends back the text reversed. + +use Irssi; +use strict; +use vars qw($VERSION %IRSSI); + +$VERSION = "1.00"; +%IRSSI = ( + authors => 'Timo Sirainen', + name => 'msg-event', + description => 'Event example', + license => 'Public Domain' +); + +sub event_privmsg { + # $server = server record where the message came + # $data = the raw data received from server, with PRIVMSGs it is: + # "target :text" where target is either your nick or #channel + # $nick = the nick who sent the message + # $host = host of the nick who sent the message + my ($server, $data, $nick, $host) = @_; + + # split data to target/text + my ($target, $text) = $data =~ /^(\S*)\s:(.*)/; + + # skip lines not beginning with !reverse + return if ($text !~ /!reverse (.*)/); + $text = $1; + + if (!$server->ischannel($target)) { + # private message, $target contains our nick, so we'll need + # to change it to $nick + $target = $nick; + } + + $server->command("notice $target reversed $text = ".reverse($text)); +} + +Irssi::signal_add('event privmsg', 'event_privmsg'); |