Directory should really be named "scripts", not "examples".

Added script mlock.pl


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@149 dbcabf3a-b0e7-0310-adc4-f8d773084564

1 files changed, 17 insertions, 0 deletions

diff --git a/scripts/privmsg.pl b/scripts/privmsg.pl
new file mode 100644
index 00000000..999bd213
--- /dev/null
+++ b/scripts/privmsg.pl
@@ -0,0 +1,17 @@
+# 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));
+
+	$mynick = $server->values()->{'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");