From 3bf7f8891bd2c5f89cd520df5c7947525e06dcb0 Mon Sep 17 00:00:00 2001 From: Fabian Ebner Date: Fri, 23 Apr 2021 12:14:53 +0200 Subject: [PATCH] diskmanage: add is_mounted method Signed-off-by: Fabian Ebner --- PVE/Diskmanage.pm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/PVE/Diskmanage.pm b/PVE/Diskmanage.pm index c188d83..70677ea 100644 --- a/PVE/Diskmanage.pm +++ b/PVE/Diskmanage.pm @@ -848,6 +848,32 @@ sub append_partition { return $partition; } +# Basic check if a disk or any of its partitions is mounted. +# Can also be called with a partition. +# Expected to be called with a result of verify_blockdev_path(). +sub is_mounted { + my ($devpath) = @_; + + my $mounted = mounted_blockdevs(); + + return $devpath if $mounted->{$devpath}; + + my $dev = $devpath; + $dev =~ s|^/dev/||; + + my $found; + + dir_glob_foreach("/sys/block/${dev}", "${dev}.+", sub { + my ($part) = @_; + + my $partpath = "/dev/${part}"; + + $found = $partpath if $mounted->{$partpath}; + }); + + return $found; +} + # Wipes all labels and the first 200 MiB of a disk/partition (or the whole if it is smaller). # Expected to be called with a result of verify_blockdev_path(). sub wipe_blockdev { -- 2.39.2