X-Git-Url: https://git.octo.it/?p=rrdtool.git;a=blobdiff_plain;f=examples%2Fstripes.pl.in;h=5187a56cdf0130930162a6edc1ae5436c2579f4e;hp=e4babd4b87c67b7decb8d87ee4753216459c1af4;hb=f207955a7e325708d056d3dd912863dc9930a71c;hpb=5837606887a6d81e8b1f7588525cb1c8783fb62b

diff --git a/examples/stripes.pl.in b/examples/stripes.pl.in
index e4babd4..5187a56 100755
--- a/examples/stripes.pl.in
+++ b/examples/stripes.pl.in
@@ -1,17 +1,12 @@
 #! @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",
@@ -26,7 +21,7 @@ for ($t=$start; $t<$start+200*300; $t+=300){
   }
 }
 RRDs::graph "stripes.png",
-  "--title", 'Stripes Demo', 
+  "--title", "Stripes Demo", 
   "--start", $start,
   "--end", "start + 400 min",
   "--interlace", 
@@ -40,8 +35,8 @@ RRDs::graph "stripes.png",
   "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";
 };