39 lines
894 B
Perl
39 lines
894 B
Perl
|
use strict;
|
||
|
|
use Irssi;
|
||
|
|
|
||
|
|
use vars qw($VERSION %IRSSI);
|
||
|
|
|
||
|
|
$VERSION = '1.0';
|
||
|
|
%IRSSI = (
|
||
|
|
authors => 'Matt "f0rked" Sparks',
|
||
|
|
contact => 'ms+irssi@quadpoint.org',
|
||
|
|
name => 'hilightcmd',
|
||
|
|
description => 'Executes command on hilight',
|
||
|
|
license => 'Public domain',
|
||
|
|
url => 'http://quadpoint.org',
|
||
|
|
changed => '2005-06-16',
|
||
|
|
);
|
||
|
|
|
||
|
|
# Run the command when away?
|
||
|
|
my $run_cmd_when_away = 0;
|
||
|
|
my $cmd_to_run = "~/bin/notify.sh";
|
||
|
|
|
||
|
|
|
||
|
|
sub sig_printtext
|
||
|
|
{
|
||
|
|
my($dest, $text, $stripped) = @_;
|
||
|
|
my $server = $dest->{server};
|
||
|
|
|
||
|
|
# Do not run the command if we're not supposed to when away
|
||
|
|
return if ($server->{usermode_away} && !$run_cmd_when_away);
|
||
|
|
|
||
|
|
# Run the command if we're hilighted
|
||
|
|
if (($dest->{level} & (MSGLEVEL_HILIGHT)) &&
|
||
|
|
($dest->{level} & MSGLEVEL_NOHILIGHT) == 0) {
|
||
|
|
system($cmd_to_run, $text);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
Irssi::signal_add("print text", \&sig_printtext);
|