Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
my $data = [];
foreach my $k (keys %$res) {
my $data = [];
foreach my $k (keys %$res) {
- next if $k =~ m/NT_STATUS_/;
push @$data, { share => $k, description => $res->{$k} };
}
push @$data, { share => $k, description => $res->{$k} };
}
my $line = shift;
if ($line =~ m/(\S+)\s*Disk\s*(\S*)/) {
$res->{$1} = $2;
my $line = shift;
if ($line =~ m/(\S+)\s*Disk\s*(\S*)/) {
$res->{$1} = $2;
- } elsif ($line =~ m/(NT_STATUS_(\S*))/) {
- $res->{$1} = '';
+ } elsif ($line =~ m/(NT_STATUS_(\S+))/) {
+ my $status = $1;
+ $err .= "unexpected status: $1\n" if uc($1) ne 'SUCCESS';