use Time::HiRes qw (gettimeofday);
use IO::File;
use PVE::Tools;
+use Cwd qw();
my $clock_ticks = POSIX::sysconf(&POSIX::_SC_CLK_TCK);
return $res;
}
+sub read_proc_mounts {
+ return PVE::Tools::file_get_contents("/proc/mounts");
+}
+
+sub is_mounted {
+ my ($mountpoint) = @_;
+
+ $mountpoint = Cwd::realpath($mountpoint);
+
+ my $mountdata = read_proc_mounts();
+
+ if ($mountdata =~ m/\s$mountpoint\s/) {
+ return 1;
+ } else {
+ return 0;
+ }
+}
+
sub read_proc_net_ipv6_route {
my $filename = "/proc/net/ipv6_route";