beep script for irssi

#!/usr/bin/irssi
#
# irssi beep with-command-script
# (C) 2003 Remco den Breeje
# inspired by Georg Lukas

# howtoinstall:
#  copy this file to ~/.irssi/script/
#  in irssi:
#   $/script load my_beep.pl
#  change the settings
#   $/set beep_msg_level HILIGHT
#   $/set beep_cmd beep
#  consult the file /etc/devfs.conf to give yourself permissions to the beep device


$VERSION = "0.9";
%IRSSI = (
    authors => "Remco den Breeje",
    contact => "stacium or stek (most of the time) @ quakenet.org",
    name    => "my_beep",
    description => "runs arbitrary command instead of system beep, includes flood protection",
    license => "Public Domain",
    url     => "http://www.xs4all.nl/~stacium/irssi/my_beep.html",
);

use Irssi;

my $can_I_beep = 1;

sub beep_overflow_timeout()
{
    $can_I_beep = 1;
    # and kill the loop
    Irssi::timeout_remove($timeout_tag);
    $autoaway_to_tag = undef;
}

sub my_beep()
{
    my $beep_cmd = Irssi::settings_get_str("beep_cmd");
    if ($beep_cmd)
    {
        my $beep_flood = Irssi::settings_get_int('beep_flood');
        # check on given beep_flood
        if($beep_flood < 0)
        {
            Irssi::print("Warning! Wrong value for beep_flood (time in milisecs)");
            Irssi::signal_stop();
            return;
        }

        if ($can_I_beep)
        {
            $timeout_tag = Irssi::timeout_add($beep_flood, 'beep_overflow_timeout', undef);
            system($beep_cmd);
            $can_I_beep = 0;
        }
        Irssi::signal_stop();
    }
}

Irssi::settings_add_str("lookandfeel", "beep_cmd", "echo l30g > /dev/speaker");
Irssi::settings_add_int("lookandfeel", "beep_flood", 20000);
Irssi::signal_add("beep", "my_beep");