#
# Copyright (c) - 2002 Dirk Koopman G1TLH
#
-# $Id$
+#
#
package Mrtg;
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;
Imagedir: $self->{html}
Logdir: $self->{dir}
Options[_]: growright
+Timezone[_]: GMT
##
##
EOF
{
my $self = shift;
$self->{mc}->close;
- return `mrtg $self->{cfg}`;
+ return `mrtg --lock-file=$self->{dir}/mrtg.lock --confcache-file=$self->{dir}/mrtg.confcache $self->{cfg}`;
}
sub data
{
my ($self, $name, $vali, $valo, $title) = @_;
my $uptime = main::uptime();
+ $vali ||= 0;
+ $valo ||= 0;
if (my $m = new IO::File ">$self->{dir}/$name" ) {
$m->print("$vali\n$valo\n$uptime\n$title\n");