54 lines
1.1 KiB
Perl
54 lines
1.1 KiB
Perl
use strict;
|
|
use warnings "all";
|
|
use HexChat qw(:all);
|
|
use threads;
|
|
use threads::shared;
|
|
|
|
sub hookfn;
|
|
sub notify(@);
|
|
sub timeraction;
|
|
|
|
my $script_name = "Notification plugin";
|
|
register($script_name, '0.2', 'Sends *nix desktop notifications');
|
|
|
|
HexChat::print("$script_name loaded\n");
|
|
hook_print('Channel Message', \&hookfn);
|
|
hook_print('Channel Msg Hilight', \&hookfn);
|
|
hook_print('Channel Action', \&hookfn);
|
|
hook_print('Channel Action Hilight', \&hookfn);
|
|
|
|
my $active = 0;
|
|
share($active);
|
|
|
|
sub hookfn {
|
|
my ($nick, $text, $modechar) = @{$_[0]};
|
|
my $channel = HexChat::get_info('channel');
|
|
$channel = '' unless(defined($channel));
|
|
$nick = '' unless(defined($nick));
|
|
HexChat::strip_code($text);
|
|
$text =~ s/\"/\\"/g;
|
|
my $topic = sprintf("%s at %s says:\n", $nick, $channel);
|
|
$active = 1;
|
|
threads->create(\¬ify, $topic, $text)->detach;
|
|
|
|
if ($active == 1) {
|
|
hook_timer( 100, \&timeraction);
|
|
}
|
|
|
|
return EAT_NONE;
|
|
}
|
|
|
|
sub notify(@) {
|
|
my($topic, $text) = @_;
|
|
`notify-send -u normal -t 12000 -a hexchat "$topic" -i hexchat "$text"`;
|
|
$active = 0;
|
|
}
|
|
|
|
sub timeraction {
|
|
if ($active == 0) {
|
|
return REMOVE;
|
|
} else {
|
|
return KEEP;
|
|
}
|
|
}
|