notify-send

#!/usr/bin/perl

use common::sense;
use IPC::System::Simple qw(systemx);

my @arguments = @ARGV;

my @ignores = qw/
    -u --urgency
    -t --expire-time
    -a --app-name
    -i --icon
    -c --category
    -h --hint
/;
my @messages;

for my $v (@ARGV) {
    push @messages, $v if ($v !~ /^-/);
    shift @ARGV if (scalar grep { $v eq $_ } @ignores);
}

systemx('/usr/bin/notify-send', @arguments);

my $slackboard = 'slackboard-cli -s localhost:29800 -c #scripts -u fedora -i :fedora:';

if (scalar grep { $_ =~ /fail/i } @arguments) {
    $slackboard .= ' -l crit';
}
else {
    $slackboard .= ' -C #6EB7DB';
}

if (open my $FH, "| ${slackboard}") {
    print $FH join("\n", @messages);
    close $F;
}