Simple script that just highlights URLs in public messages

diff --git a/scripts/hilite_url.pl b/scripts/hilite_url.pl
new file mode 100644 (file)
index 0000000..11c4b0d
--- /dev/null
+++ b/scripts/hilite_url.pl
@@ -0,0 +1,28 @@
+# Simple script to highlight links in public messages
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+# Dev. info ^_^
+$VERSION = "0.1";
+%IRSSI = (
+       authors     => "Stefan Heinemann",
+       contact     => "stefan.heinemann\@codedump.ch",
+       name        => "hilite url",
+       description => "Simple script that highlights URL",
+       license     => "GPL",
+       url         => "http://senseless.codedump.ch",
+);
+
+sub hilite_url {
+       my ($server, $data, $nick, $mask, $target) = @_;
+
+       # Add Colours
+       $data =~ s/(https?:\/\/[^\s]+)/\e[4;34m\1\e[00m/g;
+
+       # Let it flow
+       Irssi::signal_continue($server, $data, $nick, $mask, $target);
+}
+
+# Hook me up
+Irssi::signal_add('message public', 'hilite_url');