package PVE::ProcFSTools;
use strict;
+use warnings;
use POSIX;
use Time::HiRes qw (gettimeofday);
use IO::File;
memtotal => 0,
memfree => 0,
memused => 0,
+ memshared => 0,
swaptotal => 0,
swapfree => 0,
swapused => 0,
$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;
}
return $res;
}
+sub write_proc_entry {
+ my ($filename, $data) = @_;#
+
+ my $fh = IO::File->new($filename, O_WRONLY);
+ die "unable to open file '$filename' - $!\n" if !$fh;
+ die "unable to write '$filename' - $!\n" unless print $fh $data;
+ die "closing file '$filename' failed - $!\n" unless close $fh;
+ $fh->close();
+}
+
1;