1 files changed, 73 insertions, 0 deletions
diff --git a/src/com.gluster.storage.management.server.scripts/src/rrd_net.pl b/src/com.gluster.storage.management.server.scripts/src/rrd_net.pl
new file mode 100755
index 00000000..61187487
--- /dev/null
+++ b/src/com.gluster.storage.management.server.scripts/src/rrd_net.pl
@@ -0,0 +1,73 @@
+#!/usr/bin/perl
+
+use RRDs;
+
+my $rrdlog = '/var/lib/rrd';
+my $graphs = '/var/lib/rrd';
+
+updatenetdata();
+#updatenetgraph('day');
+#updatenetgraph('week');
+#updatenetgraph('month');
+#updatenetgraph('year');
+
+sub updatenetgraph {
+    my $period    = $_[0];
+
+    foreach $rrdfile (<$rrdlog/network-*.rrd>) {
+        RRDs::graph ("$graphs/network-$device-$period.png",
+		     "--start", "-1$period", "-aPNG", "-i", "-z",
+		     "--alt-y-grid", "-w 300", "-h 50", "-l 0", "-u 100", "-r",
+		     "--color", "SHADEA#FFFFFF",
+		     "--color", "SHADEB#FFFFFF",
+		     "--color", "BACK#FFFFFF",
+		     "-t $device load per $period",
+		     "DEF:received=$rrdfile:received:AVERAGE",
+		     "DEF:transmitted=$rrdfile:transmitted:AVERAGE",
+
+		     "CDEF:total=received,transmitted,+,+",
+		     "CDEF:receivedpct=100,received,total,/,*",
+		     "CDEF:transmittedpct=100,transmitted,total,/,*",
+
+		     "AREA:receivedpct#0000FF:received load\\j",
+		     "STACK:transmittedpct#FF0000:transmitted load\\j");
+        $ERROR = RRDs::error;
+        print "Error in RRD::graph for network $device: $ERROR\n" if $ERROR;
+    }
+}
+
+sub updatenetdata {
+    open NETDEV, "/proc/net/dev";
+    while (<NETDEV>) {
+	chomp;
+	s/^\s+//;             # remove left side whitespaces
+	/:\s/ or next;        # if input line contains ':' else continue
+	next if /^lo:\s/;     # continue if input line starts with 'lo:'
+
+	@tokens = split /\s+/;
+	@name = split(/:/, $tokens[0]);
+	$device = $name[0];
+
+	#print "$device, $tokens[1], $tokens[9]\n";
+
+	if ( ! -e "$rrdlog/network-$device.rrd") {
+	    RRDs::create ("$rrdlog/network-$device.rrd", "--step=300",
+			  "DS:received:COUNTER:600:0:U",
+			  "DS:transmitted:COUNTER:600:0:U",
+
+			  "RRA:AVERAGE:0.5:1:576",
+			  "RRA:AVERAGE:0.5:6:672",
+			  "RRA:AVERAGE:0.5:24:732",
+			  "RRA:AVERAGE:0.5:144:1460");
+	    $ERROR = RRDs::error;
+	    print "Error in RRD::create for device $device: $ERROR\n" if $ERROR;
+	}
+
+	RRDs::update ("$rrdlog/network-$device.rrd",
+		      "-t", "received:transmitted",
+		      "N:$tokens[1]:$tokens[9]");
+	$ERROR = RRDs::error;
+	print "Error in RRD::update for net: $ERROR\n" if $ERROR;
+    }
+    close NETDEV
+}