diff options
Diffstat (limited to 'hipchat-stfu.pl')
| -rw-r--r-- | hipchat-stfu.pl | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/hipchat-stfu.pl b/hipchat-stfu.pl index 26f72c9..c3a8b7d 100644 --- a/hipchat-stfu.pl +++ b/hipchat-stfu.pl @@ -13,14 +13,16 @@ $VERSION = '1.00'; ); sub test { - my ($data, $server, $window_item) = @_; - return unless $window_item; - my $filename = 'hipchat-stfu-output.txt'; + my ($server, $text, $nick) = @_; - open(my $fh, '>', $filename) or die; - print $fh $data; - print $fh '-------###-------'; + my $filename = 'hipchat-stfu-output.txt'; + open(my $fh, '>>', $filename) or die; print $fh $server; + print $fh "\t"; + print $fh $text; + print $fh "\t"; + print $fh $nick; + print $fh "\n"; close $fh; }; |
