contrib/rrdfetchnames/rrdfetchnames.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 #makes things work when run without install
   6 use lib qw( ../../perl-shared/blib/lib ../../perl-shared/blib/arch );
   7
   8 #makes programm work AFTER install
   9 use lib qw( /usr/local/rrdtool-1.0.30/lib/perl ../lib/perl );
  10
  11 use vars qw(@ISA $loaded);
  12
  13 use RRDs;
  14
  15 my $NAME = $ARGV[ 0];
  16 my $SEPARATOR = " ";
  17 my $CF = "AVERAGE";
  18
  19 my ($start,$step,$names,$data) = RRDs::fetch "$NAME", "$CF", "--start", "now","--end","start+1";
  20
  21 if ( my $ERR = RRDs::error){
  22         die "ERROR while fetching data from $NAME $ERR\n";
  23 }
  24
  25 print join( $SEPARATOR, @$names), "\n";
  26
  27 sub usage{
  28         print "usage: rrdfetchnames filename";
  29 };
  30