<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:12pt"><DIV>
<DIV>Chris, Thank you for the feedback. I tried rewriting something with RRDs but no success, something must be missing from the installation (I think!).</DIV>
<DIV> </DIV><FONT size=2>
<P>Can't locate loadable object for module RRDs in @INC (@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.</P>
<P>.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib/perl5/ve</P>
<P>dor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl .) at ./temp-one.cgi line 27</P>
<P>Compilation failed in require at ./temp-one.cgi line 27.</P>
<P></FONT> </P>
<P>Mark<BR></P></DIV>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: times new roman, new york, times, serif"><BR>
<DIV style="FONT-SIZE: 13px; FONT-FAMILY: arial, helvetica, sans-serif"><FONT face=Tahoma size=2>
<HR SIZE=1>
<B><SPAN style="FONT-WEIGHT: bold">From:</SPAN></B> Koaps <koaps@yahoo.com><BR><B><SPAN style="FONT-WEIGHT: bold">To:</SPAN></B> Mark Woodruff <n3hf@yahoo.com><BR><B><SPAN style="FONT-WEIGHT: bold">Sent:</SPAN></B> Tue, November 3, 2009 8:42:04 PM<BR><B><SPAN style="FONT-WEIGHT: bold">Subject:</SPAN></B> Re: [rrd-users] RRD Newbee needs help with RRD Perl script<BR></FONT><BR>I have no idea about RRDp but I have used RRDs with no issues in perl scripts.<BR><BR>The graph subroutine I used looked like this:<BR><BR># print "Creating graph\n";<BR> RRDs::graph ("$png_path/$k.png",<BR> "--title=$TITLE $k",<BR> "--vertical-label=$VLABEL",<BR> "--color=$BACK",<BR> "--color=$SHADEA",<BR>
"--color=$SHADEB",<BR> "--color=$FONT",<BR> "--color=$CANVAS",<BR> "--color=$GRID",<BR> "--color=$MGRID",<BR> "--color=$FRAME",<BR> "--color=$ARROW",<BR> "--base=$BASE",<BR> "DEF:avg=$rrd_path/$k.rrd:$ds:AVERAGE",<BR> "DEF:pred=$rrd_path/$k.rrd:$ds:HWPREDICT",<BR> "DEF:dev=$rrd_path/$k.rrd:$ds:DEVPREDICT",<BR> "DEF:fail=$rrd_path/$k.rrd:$ds:FAILURES",<BR> "COMMENT: \\n",<BR>
"CDEF:mbs=avg,1048576,/",<BR> "LINE2:$AVG_LINE:Average MB/s",<BR> "GPRINT:mbs:AVERAGE:\\: %5.2lf",<BR> "GPRINT:mbs:LAST: Last\\: %5.2lf\\n",<BR> "TICK:$TICK:1.0:Failures",<BR> "CDEF:upper=pred,dev,2,*,+",<BR> "CDEF:lower=pred,dev,2,*,-",<BR> "LINE1:$UPPER_LINE:Upper Bound",<BR> "LINE1:$LOWER_LINE:Lower Bound",<BR> "\\n",<BR> "COMMENT:$date",<BR> );<BR> $err=RRDs::error;<BR> if ($err) {print "problem generating the graph: $err\n";}<BR><BR><BR>with
variables defined like this:<BR>NOTE: $k for me was pulled from a reference I generated, you should be able to set it to your RRD without any issues.<BR><BR><BR>#--------------#<BR># RRDTool vars #<BR>#--------------#<BR>my $png_path = "/var/www/html/";<BR>my $TITLE = "IO Test:";<BR>my $VLABEL = "Bytes per second (B/s)";<BR>my $BACK = "BACK#000000";<BR>my $SHADEA = "SHADEA#FFFFFF";<BR>my $SHADEB = "SHADEB#FFFFFF";<BR>my $FONT = "FONT#DDDDDD";<BR>my $CANVAS = "CANVAS#202020";<BR>my $GRID = "GRID#666666";<BR>my $MGRID = "MGRID#AAAAAA";<BR>my $FRAME = "FRAME#202020";<BR>my $ARROW = "ARROW#FFFFFF";<BR>my $BASE = 1024;<BR>my $AVG_LINE = "AVG#0000FF";<BR>my $TICK = "FAIL#FFFFA0";<BR>my $UPPER_LINE = "UPPER#ff0000";<BR>my $LOWER_LINE = "LOWER#ff0000";<BR><BR><BR>-Chris<BR><BR>--- On Tue, 11/3/09, Mark Woodruff <<A href="mailto:n3hf@yahoo.com" ymailto="mailto:n3hf@yahoo.com">n3hf@yahoo.com</A>> wrote:<BR><BR>> From: Mark Woodruff <<A
href="mailto:n3hf@yahoo.com" ymailto="mailto:n3hf@yahoo.com">n3hf@yahoo.com</A>><BR>> Subject: [rrd-users] RRD Newbee needs help with RRD Perl script<BR>> To: <A href="mailto:rrd-users@lists.oetiker.ch" ymailto="mailto:rrd-users@lists.oetiker.ch">rrd-users@lists.oetiker.ch</A><BR>> Date: Tuesday, November 3, 2009, 5:03 PM<BR>> Recently installed Version 1.3.8<BR>> and have been trying to make a Perl script wrritten by Brian<BR>> Lane (Digitemp) from what I have been able to determine the<BR>> scripts hangs up on the line containing:<BR>> <BR>> $answer=RRDp::read;<BR>> <BR>> # Output a HTML header for the PNG<BR>> image to follow<BR>> <BR>> print $cgi->header('image/png');<BR>> # Generate the graph<BR>> RRDp::cmd "graphv - --imgformat PNG",<BR>> "--start '$starttime' --end<BR>> '$endtime'",<BR>> "--width $width --height $height",<BR>>
"DEF:temp_c=$rrd:$var:AVERAGE",<BR>> "CDEF:temp_f=temp_c,9,*,5,/,32,+",<BR>> "LINE1:temp_f$color:'$label'";<BR>> $answer=RRDp::read;<BR>> print $$answer;<BR>> RRDp::end;<BR>> <BR>> After reading rrd tutiorial I wrote a<BR>> shorten bash script which works fine which tells me my<BR>> RRD datafile is fine. Is there a bug and/or do I have<BR>> installation issue?? <BR>> <BR>> Mark<BR>> <BR>> <BR>> <BR>> -----Inline Attachment Follows-----<BR>> <BR>> _______________________________________________<BR>> rrd-users mailing list<BR>> <A href="mailto:rrd-users@lists.oetiker.ch" ymailto="mailto:rrd-users@lists.oetiker.ch">rrd-users@lists.oetiker.ch</A><BR>> <A href="https://lists.oetiker.ch/cgi-bin/listinfo/rrd-users" target=_blank>https://lists.oetiker.ch/cgi-bin/listinfo/rrd-users</A><BR>> <BR><BR><BR><BR></DIV></DIV></div><br>
</body></html>