diskmanage: add is_mounted method
Signed-off-by: Fabian Ebner <f.ebner@proxmox.com>
This commit is contained in:
committed by
Thomas Lamprecht
parent
7e14102a4b
commit
3bf7f8891b
@ -848,6 +848,32 @@ sub append_partition {
|
|||||||
return $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).
|
# 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().
|
# Expected to be called with a result of verify_blockdev_path().
|
||||||
sub wipe_blockdev {
|
sub wipe_blockdev {
|
||||||
|
|||||||
Reference in New Issue
Block a user