Robot/contrib-munin
2
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
Code Issues Releases Wiki Activity

Initial version

Browse Source
This commit is contained in:
jimmyo, G. Stewart 2007-03-06 05:01:32 +01:00 committed by Steve Schnepp
parent 5bb0fbb6ec
commit 55d100de1b
1 changed files with 99 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
plugins/other/ircu Executable file
View File

@ -0,0 +1,99 @@
#!/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