X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=examples%2Fpiped-demo.pl.in;h=7a3a72ed81f2bbc07aa4fb82879e177644ef6d30;hb=ce639546543cbec37180422c300ddc6b3641c3bc;hp=792ab6d1cc3729efcfe7826375d778414f408da9;hpb=5837606887a6d81e8b1f7588525cb1c8783fb62b;p=rrdtool.git diff --git a/examples/piped-demo.pl.in b/examples/piped-demo.pl.in index 792ab6d..7a3a72e 100755 --- a/examples/piped-demo.pl.in +++ b/examples/piped-demo.pl.in @@ -1,7 +1,7 @@ #! @PERL@ #makes things work when run without install -use lib qw( ../libraries/perl-piped/blib/lib ../lib/perl ); +use lib qw( ../bindings/perl-piped/blib/lib ../lib/perl ); #makes programm work AFTER install use lib qw( @prefix@/lib/perl ); @@ -16,7 +16,7 @@ $STEP = 300; $RUNS = 12*24*30*6; $GRUNS = 20; $RRD = "piped-demo.rrd"; -$GIF = "piped-demo.gif"; +$SVG = "piped-demo.svg"; $PNG = "piped-demo.png"; # some magic to find the correct rrdtol executable @@ -67,11 +67,11 @@ printf "-- performance analysis Update test\n". print "\n"; # creating some graphs -print "* Creating $GRUNS GIF graphs: $GIF\n\n"; +print "* Creating $GRUNS SVG graphs: $SVG\n\n"; $now = time; for ($i=0;$i<$GRUNS;$i++) { -RRDp::cmd "graph $GIF ", "--title 'Test GRAPH' ", - "--height 150 --vertical-label 'Dummy Units' ". +RRDp::cmd "graph $SVG ", "--title 'Test GRAPH' ", + "--imgformat SVG --height 150 --vertical-label 'Dummy Units' ". "--start now".(-$RUNS*$STEP), "--color ARROW#bfbfbf", "DEF:alpha=$RRD:in:AVERAGE", @@ -88,7 +88,7 @@ RRDp::cmd "graph $GIF ", "--title 'Test GRAPH' ", "GPRINT:calc:MAX:'Max calc\\: %1.2lf %S'", "VRULE:".($now-3600)."#008877:'60 Minutes ago'", "COMMENT:'\\s'", - "COMMENT:'Graph created on: ".localtime(time())."\\c'"; + "COMMENT:'Graph created on\\: ".localtime(time())."\\c'"; $answer = RRDp::read; } @@ -126,7 +126,7 @@ RRDp::cmd "graph $PNG ", "--title 'Test GRAPH' ", "GPRINT:calc:MAX:'Max calc\\: %1.2lf %S'", "VRULE:".($now-3600)."#008877:'60 Minutes ago'", "COMMENT:'\\s'", - "COMMENT:'Graph created on: ".localtime(time())."\\c'"; + "COMMENT:'Graph created on\\: ".localtime(time())."\\c'"; $answer = RRDp::read; }