Dump server information to log

Let's see what's in the `$server` hash and if it could be useful to us
in our checks.

1 files changed, 3 insertions, 2 deletions

diff --git a/hipchat-stfu.pl b/hipchat-stfu.pl
index c3a8b7d..1f89357 100644
--- a/hipchat-stfu.pl
+++ b/hipchat-stfu.pl
@@ -1,7 +1,8 @@
 use strict;
 use vars qw($VERSION %IRSSI);
 
-use Irssi qw(signal_add);
+use Irssi qw(signal_add signal_stop);
+use Data::Dumper;
 
 $VERSION = '1.00';
 %IRSSI = (
@@ -17,7 +18,7 @@ sub test {
 	
 	my $filename = 'hipchat-stfu-output.txt';
 	open(my $fh, '>>', $filename) or die;
-	print $fh $server;
+	print $fh Dumper($server);
 	print $fh "\t";
 	print $fh $text;
 	print $fh "\t";