blob: 8ffaa298a4f3389e822873caea309ba733a30c60 (
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
|
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) = @_;
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,
};
|
