mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
104 lines
2.0 KiB
Perl
104 lines
2.0 KiB
Perl
#
|
|
# the MRTG handler
|
|
#
|
|
# Copyright (c) - 2002 Dirk Koopman G1TLH
|
|
#
|
|
# $Id$
|
|
#
|
|
|
|
package Mrtg;
|
|
|
|
use IO::File;
|
|
use DXVars;
|
|
use DXDebug;
|
|
use DXUtil;
|
|
use strict;
|
|
|
|
use vars qw($VERSION $BRANCH);
|
|
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
|
|
$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
|
|
$main::build += $VERSION;
|
|
$main::branch += $BRANCH;
|
|
|
|
sub new
|
|
{
|
|
my $pkg = shift;
|
|
my $class = ref $pkg || $pkg;
|
|
my %args = @_;
|
|
my $self = bless { }, $class;
|
|
|
|
# argument processing
|
|
$self->{dir} = $args{dir} || "$main::root/mrtg";
|
|
$self->{html} = $args{html} || "$main::root/html/mrtg";
|
|
$self->{cfg} = $args{cfg} || "$self->{dir}/mrtg.cfg";
|
|
|
|
my $mc = new IO::File ">$self->{cfg}" or return undef;
|
|
$self->{mc} = $mc;
|
|
|
|
# print out the header
|
|
print $mc <<"EOF";
|
|
### Global Defaults
|
|
Htmldir: $self->{html}
|
|
Imagedir: $self->{html}
|
|
Logdir: $self->{dir}
|
|
Options[_]: growright
|
|
##
|
|
##
|
|
EOF
|
|
|
|
return $self;
|
|
}
|
|
|
|
sub run
|
|
{
|
|
my $self = shift;
|
|
$self->{mc}->close;
|
|
return `mrtg $self->{cfg}`;
|
|
}
|
|
|
|
sub data
|
|
{
|
|
my ($self, $name, $vali, $valo, $title) = @_;
|
|
my $uptime = main::uptime();
|
|
|
|
if (my $m = new IO::File ">$self->{dir}/$name" ) {
|
|
$m->print("$vali\n$valo\n$uptime\n$title\n");
|
|
$m->close;
|
|
} else {
|
|
dbg("MRTG: cannot open $self->{dir}/$name $!");
|
|
}
|
|
}
|
|
|
|
sub cfgprint
|
|
{
|
|
my ($self, $name, $options, $max, $title, $legend, $iname, $oname) = @_;
|
|
my $opt = join ', ', @$options, qw(withzeroes growright nopercent integer);
|
|
|
|
$self->{mc}->print(<<"EOF");
|
|
|
|
#
|
|
# $title
|
|
#
|
|
|
|
Target[$name]: `cat /spider/mrtg/$name`
|
|
MaxBytes[$name]: $max
|
|
Title[$name]: $title
|
|
Options[$name]: $opt
|
|
YLegend[$name]: $legend
|
|
YTicsFactor[$name]: 1
|
|
ShortLegend[$name]: \
|
|
Legend1[$name]:Maximum No of $iname
|
|
Legend2[$name]:Maximum No of $oname
|
|
LegendI[$name]:$iname
|
|
LegendO[$name]:$oname
|
|
PageTop[$name]: <H1>$title</H1>
|
|
<TABLE>
|
|
<TR><TD>System:</TD> <TD>$main::mycall</TD></TR>
|
|
<TR><TD>Maintainer:</TD> <TD>$main::myemail</TD></TR>
|
|
<TR><TD>Description:</TD><TD>$title</TD></TR>
|
|
</TABLE>
|
|
EOF
|
|
|
|
}
|
|
1;
|