[SCM] Packaging of Net::Citadel in Debian branch, master, updated. debian/0.16-1-45-gd21e85b

Robert James Clay jame at rocasa.us
Wed Jun 5 17:20:42 UTC 2013


The following commit has been merged in the master branch:
commit e351c2386b98f4aceb1de6af4bebbcbea4f2345e
Author: Robert James Clay <jame at rocasa.us>
Date:   Sun Oct 21 19:52:38 2012 -0400

    Return the information from the citadel_mrtg function as hash.

diff --git a/lib/Net/Citadel.pm b/lib/Net/Citadel.pm
index e3dc918..2f91503 100644
--- a/lib/Net/Citadel.pm
+++ b/lib/Net/Citadel.pm
@@ -808,7 +808,22 @@ sub citadel_mrtg {
     }
 
     # Create the %mrtg hash from the information in the @mrtg_lines array
+    if ( lc($type) = q{users} ) {
+        $mrtg = {
+            ConnectedUsers => @mrtg_lines[0],
+            ActiveUsers => @mrtg_lines[1],
+        };
+    } else {
+        $mrtg = {
+            HighMsg => @mrtg_lines[0],
+        };
+    }
+    $mrtg = {
+        SystemUptime => @mrtg_lines[2],
+        SystemName => @mrtg_lines[3],
+    };
 
+    # Return the MRTG information as the mrtg hash.
     return %mrtg;
 }
 

-- 
Packaging of Net::Citadel in Debian



More information about the Pkg-perl-cvs-commits mailing list