Perl script, lägga till ljud
Postat: 14 nov 2009, 19:40
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:
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å 
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');
Tack ska du ha Lars 