diff options
| author | Teddy Wing | 2015-06-13 22:32:44 -0400 |
|---|---|---|
| committer | Teddy Wing | 2015-06-13 22:32:44 -0400 |
| commit | 6cbc5ecddd2a52edfacb3754b74f35048095a3ad (patch) | |
| tree | 2c1afe1b4846e039bc3de7ddc5b2c1f71c5f8eb0 | |
| parent | 8746a69bbb79902b6be5fd205efbb5bfc83feed7 (diff) | |
| download | irssi-hipchat-stfu-6cbc5ecddd2a52edfacb3754b74f35048095a3ad.tar.bz2 | |
Delete old log file output code
Since I was just using that to test the signal and see what kind of
input I was getting, this is no longer needed. Now that I know what's
going on we can write the actual code to do the work.
| -rw-r--r-- | hipchat-stfu.pl | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/hipchat-stfu.pl b/hipchat-stfu.pl index 41abb7f..8ffaa29 100644 --- a/hipchat-stfu.pl +++ b/hipchat-stfu.pl @@ -16,16 +16,6 @@ $VERSION = '1.00'; sub hipchat_stfu { my ($server, $text, $nick) = @_; - # my $filename = 'hipchat-stfu-output.txt'; - # open(my $fh, '>>', $filename) or die; - # print $fh Dumper($server); - # print $fh "\t"; - # print $fh $text; - # print $fh "\t"; - # print $fh $nick; - # print $fh "\n"; - # close $fh; - if ($server->{'chatnet'} eq 'Bitlbee' && $nick eq 'root') { open(my $fh, '>>', 'hipchatyeehaw.txt') or die; |
