[SCM] Packaging of Net::Citadel in Debian branch, debian, updated. debian/0.16-1-45-gd21e85b
Robert James Clay
jame at rocasa.us
Wed Jun 5 17:20:30 UTC 2013
The following commit has been merged in the debian 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