Adding upstream version 1.4.5.upstream/1.4.5upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

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 0000000..53174e2
--- /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');