Perl script, lägga till ljud

[Dagon^]

Håller på att modifiera ett notify-script till irssi som är skrivet i perl. Skulle vilja lägga till en ljudnotifikation (precis som i Pidgin, när någon skriver till dig).

Här är scriptet:

Kod: Markera allt

use strict;
use Irssi;
use vars qw($VERSION %IRSSI);

$VERSION = "0.01";
%IRSSI = (
    authors     => 'Luke Macken',
    contact     => 'lewk@csh.rit.edu',
    name        => 'notify.pl',
    description => 'TODO',
    license     => 'GNU General Public License',
    url         => 'http://lewk.org/log/code/irssi-notify',
);

sub notify {
    my ($dest, $text, $stripped) = @_;
    my $server = $dest->{server};

    return if (!$server || !($dest->{level} & MSGLEVEL_HILIGHT));

    $stripped =~ s/[^a-zA-Z0-9 .,!\?@\:\<\>]//g;
    system("notify-send -i gtk-dialog-warning -t 5000 '$dest->{target}' '$stripped'");
}

Irssi::signal_add('print text', 'notify');

Någon som har ett hum om hur jag ordnar till det? Ni behöver inte ge mig hela lösningen, en spark i rätt riktning är mer än uppskattat Jag vill ju lära mig lite också

[Lars]

Det här använder jag:

Kod: Markera allt

system("aplay -q /usr/share/sounds/purple/alert.wav");

[Dagon^]

Det här använder jag:

Kod: Markera allt

system("aplay -q /usr/share/sounds/purple/alert.wav");

Ah, hade helt glömt bort aplay Tack ska du ha Lars

[dmz]

Kör ni irssi lokalt? Det där kommer annars inte att fungera så kanonbra.

system("ssh user@host 'command argument'"); bör nog fungera annars.

[Dagon^]

Kör ni irssi lokalt? Det där kommer annars inte att fungera så kanonbra.

system("ssh user@host 'command argument'"); bör nog fungera annars.

Jag kör irssi lokalt iaf
Tack för den bifogade raden, kan vara bra att veta om man börjar köra irssi på server