summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (from parent 1: 2f0b984)
raw | patch | inline | side by side (from parent 1: 2f0b984)
author | oetiker <oetiker@a5681a0c-68f1-0310-ab6d-d61299d08faa> | |
Tue, 14 Apr 2009 07:51:20 +0000 (07:51 +0000) | ||
committer | oetiker <oetiker@a5681a0c-68f1-0310-ab6d-d61299d08faa> | |
Tue, 14 Apr 2009 07:51:20 +0000 (07:51 +0000) |
bindings/perl-piped/RRDp.pm | patch | blob | history |
index 31e10438a786e03eca289dc1802fca4e83e364c4..c3fbf91f91de2ca03a9210c7d06c5453ee5e0044 100644 (file)
pass commands on to RRDtool. check the RRDtool documentation for
more info on the RRDtool commands.
pass commands on to RRDtool. check the RRDtool documentation for
more info on the RRDtool commands.
+B<Note>: Due to design limitations, B<RRDp::cmd> does not support the
+C<graph -> command - use C<graphv -> instead.
+
=item $answer = B<RRDp::read>
read RRDtool's response to your command. Note that the $answer variable will
=item $answer = B<RRDp::read>
read RRDtool's response to your command. Note that the $answer variable will
}
$cmd =~ s/\n/ /gs;
$cmd =~ s/\s/ /gs;
}
$cmd =~ s/\n/ /gs;
$cmd =~ s/\s/ /gs;
+
+ # The generated graphs aren't necessarily terminated by a newline,
+ # causing RRDp::read() to wait for a line matching '^OK' forever.
+ if ($cmd =~ m/^\s*graph\s+-\s+/) {
+ croak "RRDp does not support the 'graph -' command - "
+ . "use 'graphv -' instead";
+ }
print RRDwriteHand "$cmd\n";
}
print RRDwriteHand "$cmd\n";
}