Test listener for `message public` signal

Following this tutorial: http://juerd.nl/site.plp/irssiscripttut

Add a test sub that receives a public message signal so I can prove that
it works and see what kind of data I'm getting back when my sub is
called.

1 files changed, 18 insertions, 1 deletions

diff --git a/hipchat-stfu.pl b/hipchat-stfu.pl
index adee2f4..26f72c9 100644
--- a/hipchat-stfu.pl
+++ b/hipchat-stfu.pl
@@ -1,7 +1,8 @@
 use strict;
 use vars qw($VERSION %IRSSI);
 
-use Irssi;
+use Irssi qw(signal_add);
+
 $VERSION = '1.00';
 %IRSSI = (
 	authors     => 'Teddy Wing',
@@ -10,3 +11,19 @@ $VERSION = '1.00';
 	description => 'Silences annoying messages originating from HipChat.',
 	license     => 'MIT',
 );
+
+sub test {
+	my ($data, $server, $window_item) = @_;
+	return unless $window_item;
+	my $filename = 'hipchat-stfu-output.txt';
+	
+	open(my $fh, '>', $filename) or die;
+	print $fh $data;
+	print $fh '-------###-------';
+	print $fh $server;
+	close $fh;
+};
+
+signal_add {
+	'message public' => \&test,
+};