mirror of
https://github.com/munin-monitoring/contrib.git
synced 2018-11-08 00:59:34 +01:00
100 lines
2.1 KiB
Perl
Executable File
100 lines
2.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# $Log$
|
|
# Revision 1.1 2004/01/02 18:50:00 jimmyo
|
|
# Renamed occurrances of lrrd -> munin
|
|
#
|
|
# Revision 1.1.1.1 2004/01/02 15:18:07 jimmyo
|
|
# Import of LRRD CVS tree after renaming to Munin
|
|
#
|
|
# Revision 1.3 2003/12/18 19:02:36 jimmyo
|
|
# Typo
|
|
#
|
|
# Revision 1.2 2003/12/18 17:14:24 jimmyo
|
|
# Added autoconf-support
|
|
#
|
|
# Revision 1.1 2003/11/10 18:51:50 jimmyo
|
|
# Initial entries
|
|
#
|
|
#%# family=manual
|
|
#%# capabilities=autoconf
|
|
|
|
my $ret = undef;
|
|
|
|
if (! eval "require Net::IRC;")
|
|
{
|
|
$ret = "Net::IRC not found";
|
|
}
|
|
|
|
if ($ARGV[0] and $ARGV[0] eq "autoconf")
|
|
{
|
|
if ($ret)
|
|
{
|
|
print "no ($ret)\n";
|
|
exit 1;
|
|
}
|
|
my $irc = new Net::IRC;
|
|
my $conn;
|
|
|
|
$irc = new Net::IRC; $conn = $irc->newconn(Nick => 'munin', Server => '192.168.1.1');
|
|
if (!$conn)
|
|
{
|
|
print "no (Couldn't connect to IRC server)\n";
|
|
exit 1;
|
|
}
|
|
print "yes\n";
|
|
exit 0;
|
|
}
|
|
|
|
if($ARGV[0] and $ARGV[0] eq "config") {
|
|
print "host_name $ENV{FQDN}\n";
|
|
print "graph_title ircd status\n";
|
|
print "graph_order clients channels\n";
|
|
print "graph_args -l 0\n";
|
|
print "clients.label clients\n";
|
|
print "clients.draw LINE2\n";
|
|
print "channels.label channels\n";
|
|
print "channels.draw LINE2\n";
|
|
exit 0;
|
|
}
|
|
|
|
my $irc = new Net::IRC;
|
|
my $conn = $irc->newconn(Nick => 'munin',
|
|
Server => '192.168.1.1');
|
|
|
|
my %result;
|
|
#$conn->debug(1);
|
|
|
|
sub luserclient {
|
|
my($self, $event) = @_;
|
|
if(($event->args)[1] =~ /There are (\d+) users and (\d+) invisible/) {
|
|
$result{'clients'} = $1 + $2 - 1; # don't count this script
|
|
}
|
|
}
|
|
|
|
sub luserchannels {
|
|
my($self, $event) = @_;
|
|
if(($event->args)[1] =~ /^(\d+)/) {
|
|
$result{'channels'} = $1;
|
|
}
|
|
}
|
|
|
|
sub quit {
|
|
my($self, $event) = @_;
|
|
open(STDERR, ">/dev/null");
|
|
$self->quit();
|
|
print "clients.value " . $result{'clients'} . "\n";
|
|
print "channels.value " . $result{'channels'} . "\n";
|
|
}
|
|
|
|
$conn->add_global_handler('endofmotd', \&quit);
|
|
$conn->add_global_handler('luserclient', \&luserclient);
|
|
$conn->add_global_handler('luserchannels', \&luserchannels);
|
|
|
|
|
|
while(1) {
|
|
$irc->do_one_loop();
|
|
}
|
|
|
|
# vim:syntax=perl
|