blob: fd2899684a064f1a1581770bed4024975381db2a (
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
|
#!/usr/bin/perl -w
# ##############################################################################
# Infrabot-Client - a simple Infrabot client which sends it's whole command
# line arguments to a local UNIX domain socket.
# ##############################################################################
use strict;
use IO::Socket;
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# >> CONFIGURATION >>
my $SOCKET = '/var/run/nagios/nsa.socket';
# << CONFIGURATION <<
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
if (@ARGV == 0) {
print "Hey - specify a message, sucker!\n";
exit(1);
}
unless (-S $SOCKET) {
die "Socket '$SOCKET' doesn't exist or isn't a socket!\n";
}
unless (-r $SOCKET) {
die "Socket '$SOCKET' can't be read!\n";
}
my $sock = IO::Socket::UNIX->new (
Peer => $SOCKET,
Type => SOCK_DGRAM,
Timeout => 10
) || die "Can't open socket '$SOCKET'!\n";
print $sock "@ARGV";
close($sock);
|