From: Dietmar Maurer <dietmar@proxmox.com>
Date: Fri, 1 Feb 2013 08:05:18 +0000 (+0100)
Subject: query KSM page sharing
X-Git-Url: https://git.proxmox.com/?p=pve-common.git;a=commitdiff_plain;h=a01c54654f49d94bee2dca8ea3cfcd675bfba2da

query KSM page sharing

bump version to 1.0-45
---

diff --git a/Makefile b/Makefile
index 5a96338..2972ec9 100644
--- a/Makefile
+++ b/Makefile
@@ -1,7 +1,7 @@
 RELEASE=2.3
 
 VERSION=1.0
-PKGREL=44
+PKGREL=45
 
 PACKAGE=libpve-common-perl
 
diff --git a/data/PVE/ProcFSTools.pm b/data/PVE/ProcFSTools.pm
index 4c1591c..2c2b376 100644
--- a/data/PVE/ProcFSTools.pm
+++ b/data/PVE/ProcFSTools.pm
@@ -175,6 +175,7 @@ sub read_meminfo {
 	memtotal => 0,
 	memfree => 0,
 	memused => 0,
+	memshared => 0,
 	swaptotal => 0,
 	swapfree => 0,
 	swapused => 0,
@@ -199,6 +200,9 @@ sub read_meminfo {
     $res->{swapfree} = $d->{swapfree};
     $res->{swapused} = $res->{swaptotal} - $res->{swapfree};
 
+    my $spages = PVE::Tools::file_read_firstline("/sys/kernel/mm/ksm/pages_sharing");
+    $res->{memshared} = int($spages) * 4096;
+
     return $res;
 }
 
diff --git a/debian/changelog b/debian/changelog
index e0b8e02..6b434fa 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+libpve-common-perl (1.0-45) unstable; urgency=low
+
+  * read_meminfo: query KSM page sharing
+
+ -- Proxmox Support Team <support@proxmox.com>  Fri, 01 Feb 2013 09:04:27 +0100
+
 libpve-common-perl (1.0-44) unstable; urgency=low
 
   * vlan changes: use ip command instead of old vconfig, activate gvrp