aboutsummaryrefslogtreecommitdiffstats
path: root/hipchat-stfu.pl
diff options
context:
space:
mode:
Diffstat (limited to 'hipchat-stfu.pl')
-rw-r--r--hipchat-stfu.pl14
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;
};