blob: ee6749c2d7cc937833f71d4d63f61d6fce02eb15 (
plain)
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
|
#!/usr/bin/perl
## =============================================================================
## sound.pl (c) February 2005 by FlashCode <flashcode@flashtux.org>
## Updated on 2005-06-04 by FlashCode <flashcode@flashtux.org>
## Perl script for WeeChat.
##
## Play a sound when highlighted/private msg, or for ctcp sound event
## You have to configure $sound_cmd_highlight and $sound_cmd_ctcp below.
## =============================================================================
my $version = "0.2";
my $sound_cmd_highlight = "esdplay ~/highlight_sound.wav >/dev/null 2>&1 &";
my $sound_cmd_ctcp = "esdplay \$filename >/dev/null 2>&1 &";
weechat::register ("Sound", $version, "", "Sound for highlights/privates & CTCP sound events");
weechat::add_message_handler("PRIVMSG", "sound");
weechat::add_command_handler ("sound", sound_cmd);
sub sound
{
$server = $_[0];
if ($_[1] =~ /(.*) PRIVMSG (.*)/)
{
my $host = $1;
my $msg = $2;
if ($host ne "localhost")
{
system($sound_cmd_highlight) if (index($msg, weechat::get_info("nick", $server)) != -1);
if ($msg =~ /\001SOUND ([^ ]*)\001/)
{
my $filename = $1;
my $command = $sound_cmd_ctcp;
$command =~ s/(\$\w+)/$1/gee;
system($command);
}
}
}
return 0;
}
sub sound_cmd
{
if ($#_ == 1)
{
my $filename = $_[1].".wav";
my $command = $sound_cmd_ctcp;
$command =~ s/(\$\w+)/$1/gee;
system($command);
weechat::command("PRIVMSG ".weechat::get_info("channel")." :\001SOUND $filename\001") if (@_);
}
}
|
