+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;
+ }
+}
+