hipchat-stfu.pl


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

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 test {
	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;
};

signal_add {
	'message public' => \&test,
};