X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=program%2Fexamples%2Fstripes.pl.in;h=5187a56cdf0130930162a6edc1ae5436c2579f4e;hb=221585020da5232c709c8008b9e469c4a0cf73a6;hp=c19695a0c42d289275fa593b546e2f03f85383c7;hpb=38e6d13fa7e6f7041266611d504b42cc3c4db771;p=rrdtool-all.git

diff --git a/program/examples/stripes.pl.in b/program/examples/stripes.pl.in
index c19695a0..5187a56c 100755
--- a/program/examples/stripes.pl.in
+++ b/program/examples/stripes.pl.in
@@ -1,17 +1,12 @@
 #! @PERL@
-
-#makes things work when run without install
-use lib qw( ../bindings/perl-shared/blib/lib ../bindings/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";
 };