projects
/
rrdtool.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix buffer overflow for LONG lines in journal handling code for update requests.
[rrdtool.git]
/
examples
/
stripes.pl.in
diff --git
a/examples/stripes.pl.in
b/examples/stripes.pl.in
index
e4babd4
..
362f499
100755
(executable)
--- a/
examples/stripes.pl.in
+++ b/
examples/stripes.pl.in
@@
-1,17
+1,12
@@
#! @PERL@
#! @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;
use strict;
use vars qw(@ISA $loaded);
use RRDs;
my $start=time;
-my $rrd="random
e
.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::create ($rrd, "--start",$start-1, "--step",300,
"DS:a:GAUGE:600:U:U",
"DS:b:GAUGE:600:U:U",
@@
-26,7
+21,7
@@
for ($t=$start; $t<$start+200*300; $t+=300){
}
}
RRDs::graph "stripes.png",
}
}
RRDs::graph "stripes.png",
- "--title",
'Stripes Demo'
,
+ "--title",
"Stripes Demo"
,
"--start", $start,
"--end", "start + 400 min",
"--interlace",
"--start", $start,
"--end", "start + 400 min",
"--interlace",
@@
-40,10
+35,10
@@
RRDs::graph "stripes.png",
"AREA:beta#00b674:beta",
"LINE1:b#ff4400:beta envelope\\c",
"COMMENT:\\s",
"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) {
if ($ERROR = RRDs::error) {
-
print
"ERROR: $ERROR\n";
+
die
"ERROR: $ERROR\n";
};
};