storm/irssi-sound
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed flood from hilight.

Browse Source
This commit is contained in:
Jeremiah Ticket 2019-01-14 18:11:35 +00:00
parent 3dc9658db4
commit fe2b2da851
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
sound.pl
View File

@ -233,28 +233,22 @@ sub hilight {
my ($dest, $text, $stripped) = @_;
my $server = $dest->{server};
my $window = Irssi::active_server();
if ($server && ! Irssi::settings_get_bool("sounds")) {
return;
} else {
if (my $hilightcmd = Irssi::settings_get_str("hilight_sound_command")) {
if (!($server &&
$dest->{level} & (MSGLEVEL_HILIGHT) &&
$server->ischannel($dest->{target}) &&
$window->{refnum} != $dest->{window}->{refnum})) {
return;
}
if ($flood_protect) {
my $sound_flood = Irssi::settings_get_int('sound_flood');
$sound_flood = 1000 if $sound_flood < 0;
Irssi::timeout_remove($sound_tag);
$sound_tag = Irssi::timeout_add($sound_flood, 'sound_overflow_timeout', undef);
if ($server && ! Irssi::settings_get_bool("sounds")) {
return;
} else {
if (my $hilightcmd = Irssi::settings_get_str("hilight_sound_command")) {
system($hilightcmd);
$flood_protect = 0;
}
}
}
}
#add settings and defaults
Irssi::settings_add_bool("lookandfeel", "sounds", 1);
Irssi::settings_add_int("lookandfeel", "sound_flood", 250);