projects
/
rrdtool.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix error "cairo_restore without matching cairo_save" when zero-time point is out...
[rrdtool.git]
/
examples
/
4charts.pl.in
diff --git
a/examples/4charts.pl.in
b/examples/4charts.pl.in
index
9df0f7b
..
a11b944
100755
(executable)
--- a/
examples/4charts.pl.in
+++ b/
examples/4charts.pl.in
@@
-1,14
+1,14
@@
-#!
/usr/bin/perl
+#!
@PERL@
#makes things work when run without install
#makes things work when run without install
-use lib qw( ../bindings/perl-shared/blib/lib ../bindings/perl-shared/blib/arch );
-# this is for after install
-use lib qw( @prefix@/lib/perl ../lib/perl );
+use lib qw( @prefix@/lib/perl );
+
use RRDs;
my $start=time;
my $rrd="randome.rrd";
my $name = $0;
use RRDs;
my $start=time;
my $rrd="randome.rrd";
my $name = $0;
+$name =~ s/.*\///g;
$name =~ s/\.pl.*//g;
RRDs::create ($rrd, "--start",$start-1, "--step",300,
$name =~ s/\.pl.*//g;
RRDs::create ($rrd, "--start",$start-1, "--step",300,
@@
-31,10
+31,11
@@
for ($t=$start; $t<$start+300*300; $t+=300){
}
}
}
}
-$c1="f57912a0";
-$c2="2a79e9a0";
-$w=300;
-$h=140;
+my $c1="f57912a0";
+my $c2="2a79e9a0";
+my $w=300;
+my $h=140;
+
RRDs::graph "$name-L.png",
"--title", "2 LINES",
"--start", "now",
RRDs::graph "$name-L.png",
"--title", "2 LINES",
"--start", "now",
@@
-115,12
+116,9
@@
RRDs::graph "$name-sample.png",
"LINE1:b#ff0000:Max Incoming",
;
"LINE1:b#ff0000:Max Incoming",
;
-
-
-print "ERROR: $ERROR\n" if $ERROR = RRDs::error;
-
-
-
+if ($ERROR = RRDs::error) {
+ die "ERROR: $ERROR\n";
+};
print "This script has created $name.png in the current directory\n";
print "This demonstrates the use of the TIME and % RPN operators\n";
print "This script has created $name.png in the current directory\n";
print "This demonstrates the use of the TIME and % RPN operators\n";