index e4babd4b87c67b7decb8d87ee4753216459c1af4..362f4992e02743559107dda00b912721c6e982bc 100755 (executable)
#! @PERL@
-
-#makes things work when run without install
-use lib qw( ../libraries/perl-shared/blib/lib ../libraries/perl-shared/blib/arch );
-
-#makes programm work AFTER install
-use lib qw( @prefix@/lib/perl ../lib/perl );
+use lib qw( @prefix@/lib/perl );
use strict;
use vars qw(@ISA $loaded);
use RRDs;
my $start=time;
-my $rrd="randome.rrd";
+my $rrd="random.rrd";
RRDs::create ($rrd, "--start",$start-1, "--step",300,
"DS:a:GAUGE:600:U:U",
"DS:b:GAUGE:600:U:U",
}
}
RRDs::graph "stripes.png",
- "--title", 'Stripes Demo',
+ "--title", "Stripes Demo",
"--start", $start,
"--end", "start + 400 min",
"--interlace",
"AREA:beta#00b674:beta",
"LINE1:b#ff4400:beta envelope\\c",
"COMMENT:\\s",
- "COMMENT:CDEF\:alpha=TIME,1200,%,600,LT,a,UNKN,IF",
- "COMMENT:CDEF\:beta=TIME,1200,%,600,GE,b,UNKN,IF\\j";
+ "COMMENT:alpha=TIME,1200,%,600,LT,a,UNKN,IF",
+ "COMMENT:beta=TIME,1200,%,600,GE,b,UNKN,IF\\j";
if ($ERROR = RRDs::error) {
- print "ERROR: $ERROR\n";
+ die "ERROR: $ERROR\n";
};