+
+sub gengraph {
+ $qossettings{'DEV'} = shift;
+ $qossettings{'CLASS'} = shift;
+ my $ERROR="";
+ if ( $qossettings{'DEV'} eq $qossettings{'RED_DEV'} ) {
+ $qossettings{'CLASSPRFX'} = '1';
+ } else {
+ $qossettings{'CLASSPRFX'} = '2';
+ }
+
+ RRDs::graph ("/home/httpd/html/graphs/class_$qossettings{'CLASSPRFX'}-$qossettings{'CLASS'}_$qossettings{'DEV'}-packets.png",
+ "--start", "-3240", "-aPNG", "-i", "-z",
+ "--alt-y-grid", "-w 800", "-h 150", "-r",
+ "--color", "SHADEA#EAE9EE",
+ "--color", "SHADEB#EAE9EE",
+ "--color", "BACK#FFFFFF",
+ "-t $qossettings{'CLASS'} ($qossettings{'DEV'})",
+ "DEF:pkts=/var/log/rrd/class_$qossettings{'CLASSPRFX'}-$qossettings{'CLASS'}_$qossettings{'DEV'}.rrd:pkts:AVERAGE",
+ "DEF:dropped=/var/log/rrd/class_$qossettings{'CLASSPRFX'}-$qossettings{'CLASS'}_$qossettings{'DEV'}.rrd:dropped:AVERAGE",
+ "DEF:overlimits=/var/log/rrd/class_$qossettings{'CLASSPRFX'}-$qossettings{'CLASS'}_$qossettings{'DEV'}.rrd:overlimits:AVERAGE",
+ "AREA:pkts#00FFFF:packets",
+ "GPRINT:pkts:LAST:total packets\\:%8.3lf %s packets\\j",
+ "LINE3:dropped#FF0000:dropped",
+ "GPRINT:dropped:LAST:dropped packets\\:%8.3lf %s packets\\j",
+ "LINE3:overlimits#0000FF:overlimits",
+ "GPRINT:overlimits:LAST:overlimits\\:%8.3lf %s packets\\j",
+ );
+ $ERROR = RRDs::error;
+ print "$ERROR";
+
+ RRDs::graph ("/home/httpd/html/graphs/class_$qossettings{'CLASSPRFX'}-$qossettings{'CLASS'}_$qossettings{'DEV'}-borrowed.png",
+ "--start", "-3240", "-aPNG", "-i", "-z",
+ "--alt-y-grid", "-w 800", "-h 150", "-r",
+ "--color", "SHADEA#EAE9EE",
+ "--color", "SHADEB#EAE9EE",
+ "--color", "BACK#FFFFFF",
+ "-t $qossettings{'CLASS'} ($qossettings{'DEV'})",
+ "DEF:lended=/var/log/rrd/class_$qossettings{'CLASSPRFX'}-$qossettings{'CLASS'}_$qossettings{'DEV'}.rrd:lended:AVERAGE",
+ "DEF:borrowed=/var/log/rrd/class_$qossettings{'CLASSPRFX'}-$qossettings{'CLASS'}_$qossettings{'DEV'}.rrd:borrowed:AVERAGE",
+ "DEF:giants=/var/log/rrd/class_$qossettings{'CLASSPRFX'}-$qossettings{'CLASS'}_$qossettings{'DEV'}.rrd:giants:AVERAGE",
+ "AREA:lended#99ff99:lended",
+ "GPRINT:lended:LAST:lended\\:%8.3lf %s packets\\j",
+ "LINE3:borrowed#f70566:borrowed",
+ "GPRINT:borrowed:LAST:borrowed\\:%8.3lf %s packets\\j",
+ "LINE3:giants#05ad05:giants",
+ "GPRINT:giants:LAST:giants\\:%8.3lf %s packets\\j",
+ );
+ $ERROR = RRDs::error;
+ print "$ERROR";
+
+ RRDs::graph ("/home/httpd/html/graphs/class_$qossettings{'CLASSPRFX'}-$qossettings{'CLASS'}_$qossettings{'DEV'}-bytes.png",
+ "--start", "-3240", "-aPNG", "-i", "-z",
+ "--alt-y-grid", "-w 800", "-h 150", "-r",
+ "--color", "SHADEA#EAE9EE",
+ "--color", "SHADEB#EAE9EE",
+ "--color", "BACK#FFFFFF",
+ "-t $qossettings{'CLASS'} ($qossettings{'DEV'})",
+ "DEF:bits=/var/log/rrd/class_$qossettings{'CLASSPRFX'}-$qossettings{'CLASS'}_$qossettings{'DEV'}.rrd:bits:AVERAGE",
+ "DEF:bytes=/var/log/rrd/class_$qossettings{'CLASSPRFX'}-$qossettings{'CLASS'}_$qossettings{'DEV'}.rrd:bytes:AVERAGE",
+ "CDEF:kbytes=bytes,1024,/",
+ "CDEF:kbits=bits,1024,/,8,/",
+ "AREA:kbytes#FFBE7D:kbytes",
+ "GPRINT:kbytes:LAST:rate\\: %8.3lf kbytes\\j",
+ "GPRINT:kbits:LAST:rate\\:%8.2lf kbits\\r",
+ );
+ $ERROR = RRDs::error;
+ print "$ERROR";
+
+
+}
\ No newline at end of file