RRD help

[Alf]

Hi all,

I am completely new to Perl, so excuse me if my question is stupid
(which probably is actually).

I am using RRD modules and keep having a problem with the fetch function

#!/opt/perl56/bin/perl

use lib qw (/opt/mrtg/lib/perl ../lib/perl);

use Time::Local;
use RRDs;

my ($start,$step,$names,$data) = RRDs::fetch ARGV[0];
my $ERROR = RRDs::error;
die "$0 : $ERROR\n" if $ERROR;
print "Start:       ", scalar localtime($start), " ($start)\n";
print "Step size:   $step seconds\n";
print "DS names:    ", join (", ", @$names)."\n";
print "Data points: ", $#$data + 1, "\n";
print "Data:\n";
foreach my $line (@$data) {
  print "  ", scalar localtime($start), " ($start) ";
  $start += $step;
  foreach my $val (@$line) {
    printf "%12.1f ", $val;
  }
  print "\n";
}

All is taken from the perldoc help files.

I get a : unknown consolidation function 'ARRAY(0xeb960)'

Any help here ? Or any info on how to use these modules. The perldoc
help is very limited.

Thanks
Richard

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]