Using MRTG to Monitor Various Things

[19:15:58] root@users /usr/local/mrtg/bin# ./mrtg_stats.pl
Usage: ./mrtg_stats.pl <object>

Return current status for the <object>, suitable for use
in MRTG.

<object> is one of:
who
uptime
st510_uptime
st510_tx

#!/usr/bin/perl
=comment
File: $Id: mrtg_stats.pl,v 1.2 2004/01/22 17:40:23 root Exp root $
Date: $Date: 2004/01/22 17:40:23 $
Description:
This is a perl script to gather various system statistics
on a FreeBSD system for use with MRTG.

Changes:
20040122
Added Speedtouch 510 transfer sub.  Thanks to Au Yong Tien Chee for the
code :P

MRTG EXAMPLE CONF:
These are the MRTG configuration stubs I use in conjunction with this
script.

Target[uptime]: `/home/mrtg/bin/mrtg_stats.pl uptime`
Suppress[uptime]: d
Options[uptime]: gauge,noinfo, nopercent, growright, unknaszero
Title[uptime]: Uptime for munk.me.uk
MaxBytes[uptime]: 1000000
YLegend[uptime]: Days
ShortLegend[uptime]: Days
LegendI[uptime]:
LegendO[uptime]: Uptime:
Legend2[uptime]: Uptime in days
PageTop[uptime]: <H2>Uptime for ``munk.me.uk´´</H2>

Target[who]: `/home/mrtg/bin/mrtg_stats.pl who`
Suppress[who]: d
Options[who]: gauge,noinfo, nopercent, growright, unknaszero
Title[who]: Logged in shell users for users.munk.me.uk
MaxBytes[who]: 1000000
YLegend[who]: Days
ShortLegend[who]: Days
LegendI[who]:
LegendO[who]: Users:
Legend2[who]: Users logged in
PageTop[who]: <h2>Logged in shell users for users.munk.me.uk</h2>

# Alcatel Speedtouch 510 traffic
Title[st510-tx]: Data Transfer for Alcatel Speedtouch 510
Target[st510-tx]: `/usr/local/mrtg/bin/mrtg_stats.pl st510_tx`
MaxBytes[st510-tx]: 1250000
Options[st510-tx]: growright
WithPeak[st510-tx]: dwmy
=cut

my $progname = $0;
$progname =~ s,.*/,,;  # use basename only
$progname =~ s/\.\w*$//; # strip extension, if any
@objects=(who,uptime,st510_uptime,st510_tx);

# change to the ip address/user/password/connection type
# of your alcatel speedtouch 510 router:
my $ip="1.2.3.4";
my $user="user";
my $pass="password";
my $connection_type="adsl";

$#ARGV==1 && usage();

$object=shift;
(!grep{/$object/} @objects) && &usage();

&$object();

sub who{
#12:40AM  up 5 days,  7:43, 3 users, load averages: 0.83, 0.36, 0.23
$uptime=&get_uptime();
$uptime=~/(\d+) users/;
&printit($1);
}

sub printit{
$it=shift;
$it=int($it)."\n";
print ${it}x2;
}

sub uptime{
$uptime=&get_uptime();
$uptime=~/up (\d+) days/;
&printit($1);
}

sub get_uptime{
$uptime=`/usr/bin/uptime`;
chomp $uptime;
return $uptime;
}

sub st510_uptime {
use LWP::UserAgent;

my $url="http://$user:$pass\@$ip/status.htm";

# Create a user agent object
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

# Create a request
my $req = HTTP::Request->new(POST => $url);

# Pass request to the user agent and get a response back
my $res = $ua->request($req);

# Check the outcome of the response
if ($res->is_success) {
@page=$res->content;
$rx="<td height=20 class=tableText>"
."<span class=margin>(\d+)d .*</span></td>";

foreach(@page){
#m,$rx, && print "foundit";
/<span class=margin>(\d+)d .*<\/span>/;
$uptime=$1;
}
$uptime="0" if $uptime eq "" ;
&printit($uptime);
} else {
print "Could not connect to router";
}
}

sub st510_tx {
use Net::Telnet();

$oSpeedTouch = new Net::Telnet(Timeout=>10, Prompt=>'/=>$/');
$oSpeedTouch->open($ip);
$oSpeedTouch->waitfor('/User : $/');
$oSpeedTouch->print($user);
$oSpeedTouch->waitfor('/Password : $/');
$oSpeedTouch->print($pass);
$oSpeedTouch->waitfor('/=>$/i');

@lines = $oSpeedTouch->cmd("ip iflist");
foreach (@lines) {
#print $_;next;
@aFields = split/\s+/;
if ($aFields[0] =~ /\d/) {
if ($aFields[1] =~ $connection_type) {
print $aFields[4] . "\n" . $aFields[5] . "\n";
}
}
}
$oSpeedTouch->cmd(String=>"exit", Errmode=>"return");
}

sub usage{
print<<"~USAGE~";
Usage: $0 <object>

Return current status for the <object>, suitable for use
in MRTG.

<object> is one of:
~USAGE~
foreach(@objects){ print "$_\n"};
die"\n";
}

# $Id: munk.me.uk.cfg,v 1.1 2003/02/09 19:27:38 root Exp root $
# MRTG Config munk.me.uk

# General Options:
Htmldir: /usr/local/mrtg/web
Imagedir: /usr/local/mrtg/web/images
Logdir: /usr/local/mrtg/logs
Extension[_]: php
Forks: 4

# webcp mem use:
Title[webcp_mem]: web://cp httpd memory usage - using PHP4.3.3RC1
Target[webcp_mem]: `/usr/local/bin/webcp_mem -mrtg`
MaxBytes[webcp_mem]: 10000
PageTop[webcp_mem]: <h2>web://cp httpd memory usage - using PHP4.3.3RC1</h2>
#WithPeak[webcp_mem]: dwmy
Supress[webcp_mem]: y
Options[webcp_mem]: growright,gauge,noinfo,nopercent,unknaszero
YLegend[webcp_mem]: bytes
LegendI[webcp_mem]: Virtual Memory Usage:
LegendO[webcp_mem]: Real Memory Usage:
ShortLegend[webcp_mem]: kb
XZoom[webcp_mem]: 2
YZoom[webcp_mem]: 2

# munk.me.uk uptime
Target[uptime]: `/usr/local/mrtg/bin/mrtg_stats.pl uptime`
Suppress[uptime]: d
Options[uptime]: gauge,noinfo,nopercent,growright,noi
Title[uptime]: Uptime for munk.me.uk
MaxBytes[uptime]: 1000000
YLegend[uptime]: Days
ShortLegend[uptime]: Days
LegendO[uptime]: Uptime:
Legend2[uptime]: Uptime in days
PageTop[uptime]: <H2>Uptime for munk.me.uk</H2>

# munk.me.uk st510 router uptime
Target[st510_uptime]: `/usr/local/mrtg/bin/mrtg_stats.pl st510_uptime`
Suppress[st510_uptime]: d
Options[st510_uptime]: gauge,noinfo,nopercent,growright,noi
Title[st510_uptime]: Uptime for Alcatel SpeedTouch 510 router on 213.152.51.193
MaxBytes[st510_uptime]: 1000000
YLegend[st510_uptime]: Days
ShortLegend[st510_uptime]: Days
LegendO[st510_uptime]: st510_uptime:
Legend2[st510_uptime]: st510_uptime in days
PageTop[st510_uptime]: <H2>Uptime for Alcatel SpeedTouch 510 router on 213.152.51.193</H2>

# munk.me.uk logged in users
Target[who]: `/usr/local/mrtg/bin/mrtg_stats.pl who`
Options[who]: gauge,noinfo, nopercent, growright, unknaszero
Title[who]: Logged in shell users for users.munk.me.uk
MaxBytes[who]: 1000000
YLegend[who]: Users
ShortLegend[who]: users
LegendI[who]:
LegendO[who]: Users:
Legend2[who]: Users logged in
PageTop[who]: <h2>Logged in shell users for users.munk.me.uk</h2>

# Alcatel Speedtouch 510 traffic
Title[st510_tx]: Data Transfer for Alcatel Speedtouch 510 on 213.152.51.193
Target[st510_tx]: `/usr/local/mrtg/bin/mrtg_stats.pl st510_tx`
MaxBytes[st510_tx]: 1250000
Options[st510_tx]: growright
WithPeak[st510_tx]: dwmy
PageTop[st510_tx]: <h2>Data Transfer for Alcatel Speedtouch 510 on 213.152.51.193</h2>

*/5 *   *   *   *   mrtg    /usr/local/mrtg/bin/mrtg_cron.sh

#!/bin/sh
mrtg=/usr/local/bin/mrtg
conf_dir=/usr/local/mrtg/conf
nice=/usr/bin/nice
priority=10

$nice $priority $mrtg $conf_dir/munk.me.uk.cfg