diff options
| author | Alexander Færøy | 2014-05-31 13:10:46 +0200 |
|---|---|---|
| committer | Alexander Færøy | 2014-05-31 13:10:46 +0200 |
| commit | 2d0759e6ca5767b48bcc85bf38c2c43d5f0b63b1 (patch) | |
| tree | 1c5e6d817c88e67b46e216a50e0aef5428bf63df /scripts/beep_beep.pl | |
| parent | 2d080422d79d1fd49d6c5528593ccaaff9bfc583 (diff) | |
| download | scripts.irssi.org-2d0759e6ca5767b48bcc85bf38c2c43d5f0b63b1.tar.bz2 | |
Import scripts from scripts.irssi.org
Diffstat (limited to 'scripts/beep_beep.pl')
| -rw-r--r-- | scripts/beep_beep.pl | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/scripts/beep_beep.pl b/scripts/beep_beep.pl new file mode 100644 index 0000000..be54244 --- /dev/null +++ b/scripts/beep_beep.pl @@ -0,0 +1,51 @@ +#!/usr/bin/irssi +# +# irssi beep replace script (tested with irssi v0.8.8.CVS (20030126-1726)) +# (C) 2002-2004 Ge0rG@IRCnet (Georg Lukas <georg@op-co.de>) +# inspired and tested by Macrotron@IRCnet (macrotron@president.eu.org) + +# added beep_flood to irssi settings: beep_cmd will be run not more often +# then every $beep_flood milliseconds + +# fixed memory leak with timeout_add (made irssi waste 80mb and more after a day of IRC) +# added > /dev/null, thx to Luis Oliveira +# fixed timeout handling bug, thx to frizop@charter.net + +$VERSION = "0.10"; +%IRSSI = ( + authors => "Georg Lukas", + contact => "georg\@op-co.de", + name => "beep_beep", + description => "runs arbitrary command instead of system beep, includes flood protection", + license => "Public Domain", + url => "http://op-co.de/irssi/", +); + +use Irssi; + +my $might_beep = 1, $to_tag; + +sub beep_overflow_timeout() { + $might_beep = 1; + Irssi::timeout_remove($to_tag); +} + +sub beep_beep() { + my $beep_cmd = Irssi::settings_get_str("beep_cmd"); + if ($beep_cmd) { + if ($might_beep) { + my $beep_flood = Irssi::settings_get_int('beep_flood'); + $beep_flood = 1000 if $beep_flood < 0; + Irssi::timeout_remove($to_tag); + $to_tag = Irssi::timeout_add($beep_flood, 'beep_overflow_timeout', undef); + system($beep_cmd); + $might_beep = 0; + } + Irssi::signal_stop(); + } +} + +Irssi::settings_add_str("lookandfeel", "beep_cmd", "play ~/.irssi/scripts/beep_beep.wav > /dev/null &"); +Irssi::settings_add_int("lookandfeel", "beep_flood", 250); +Irssi::signal_add("beep", "beep_beep"); + |