/usr/share/irssi/scripts/beep_beep.pl is in irssi-scripts 20160301.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | #!/usr/bin/perl
#
# 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
use strict;
use vars qw($VERSION %IRSSI);
$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;
my $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");
|