added function (--no-minor) to turn off minor gridlines on graphs
[rrdtool.git] / examples / piped-demo.pl.in
index 792ab6d..41005d8 100755 (executable)
@@ -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",