blob: 41abb7fc067f03a77ce6b287465e7288d54f0535 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
use strict;
use vars qw($VERSION %IRSSI);
use Irssi qw(signal_add signal_stop);
use Data::Dumper;
$VERSION = '1.00';
%IRSSI = (
authors => 'Teddy Wing',
contact => 'irssi@teddywing.com',
name => 'HipChat STFU',
description => 'Silences annoying messages originating from HipChat.',
license => 'MIT',
);
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;
# print $fh 'yeehaw' if ($text eq '');
# print $fh 'boohoo' if (!defined($text));
print $fh 'booya' if ($text =~ /^\s*$/);
# print $fh $text . "\n";
close $fh;
if ($text eq '') {
signal_stop();
}
else {
# Modify the text
}
}
};
signal_add {
'message public' => \&hipchat_stfu,
};
|
