fix for : in piped demo

git-svn-id: svn://svn.oetiker.ch/rrdtool/trunk@188 a5681a0c-68f1-0310-ab6d-d61299d08faa

diff --git a/program/examples/piped-demo.pl.in b/program/examples/piped-demo.pl.in
index 7a3a72ed81f2bbc07aa4fb82879e177644ef6d30..82232fb9d5f2c4c7f13b5c19bf12a4da57ae5ef5 100755 (executable)
--- a/program/examples/piped-demo.pl.in
+++ b/program/examples/piped-demo.pl.in
@@ -69,6 +69,8 @@ print "\n";
 
 print "* Creating $GRUNS SVG graphs: $SVG\n\n";
 $now = time;
+$localtime = scalar localtime(time);
+$localtime = s/:/\\:/g;
 for ($i=0;$i<$GRUNS;$i++) {
 RRDp::cmd "graph $SVG ", "--title 'Test GRAPH' ",
        "--imgformat SVG --height 150 --vertical-label 'Dummy Units' ".
@@ -88,7 +90,7 @@ RRDp::cmd "graph $SVG ", "--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."\\c'";
 
 $answer = RRDp::read;
 }