add in and out stats for data into the cluster

[spider.git] / cmd / mrtg.pl

diff --git a/cmd/mrtg.pl b/cmd/mrtg.pl
index 05d426e26266bf2174a08582b4a98b58154e0cee..dfc0fcb5050661f81e0827cec76066ed19231220 100644 (file)
--- a/cmd/mrtg.pl
+++ b/cmd/mrtg.pl
@@ -36,6 +36,20 @@ $want{nomrtg} = 1 if $want{cfgonly} || $want{test};
 return (1, "MRTG not installed") unless $want{nomrtg} || -e '/usr/bin/mrtg' || -e '/usr/local/bin/mrtg';
 
 my $mc = new Mrtg or return (1, "cannot initialise Mrtg $!");
+
+# do Msg totals
+$mc->cfgprint('msg', [], 64000, 
+                "Data in and out of $main::mycall",
+                'Bits / Sec', 'Bytes In', 'Bytes Out') unless $want{dataonly};
+$mc->data('msg', $Msg::total_in, $Msg::total_out, "Data in and out of $main::mycall") unless $want{cfgonly};
+
+# do AGW stats if they apply
+if ($want{agw}) {
+       $mc->cfgprint('agw', [], 64000, 
+                                 "AGW Data in and out of $main::mycall",
+                                 'Bits / Sec', 'Bytes In', 'Bytes Out') unless $want{dataonly};
+       $mc->data('agw', $AGWMsg::total_in, $AGWMsg::total_out, "AGW Data in and out of $main::mycall") unless $want{cfgonly};
+}
                         
 # do the users and nodes
 my $users = DXChannel::get_all_users();