improve error messages

This commit is contained in:
Dietmar Maurer
2011-11-25 07:42:26 +01:00
parent 6703353bb8
commit f81372ac59

View File

@ -1312,7 +1312,7 @@ sub vdisk_alloc {
my $cmd = ['/sbin/lvcreate', '-aly', '--addtag', "pve-vm-$vmid", '--size', "${size}k", '--name', $name, $vg]; my $cmd = ['/sbin/lvcreate', '-aly', '--addtag', "pve-vm-$vmid", '--size', "${size}k", '--name', $name, $vg];
run_command ($cmd); run_command($cmd, errmsg => "lvcreate '$vg/pve-vm-$vmid' error");
return "$storeid:$name"; return "$storeid:$name";
@ -1350,7 +1350,7 @@ sub vdisk_free {
my $cmd = ['/sbin/lvremove', '-f', "$vg/$volname"]; my $cmd = ['/sbin/lvremove', '-f', "$vg/$volname"];
run_command ($cmd); run_command($cmd, errmsg => "lvremove '$vg/$volname' error");
} elsif ($scfg->{type} eq 'iscsi') { } elsif ($scfg->{type} eq 'iscsi') {
die "can't free space in iscsi storage\n"; die "can't free space in iscsi storage\n";
} else { } else {
@ -1428,12 +1428,12 @@ sub lvm_create_volume_group {
# so pe_start is aligned on a 128k boundary (advantage for SSDs) # so pe_start is aligned on a 128k boundary (advantage for SSDs)
my $cmd = ['/sbin/pvcreate', '--metadatasize', '250k', $device]; my $cmd = ['/sbin/pvcreate', '--metadatasize', '250k', $device];
run_command ($cmd); run_command($cmd, errmsg => "pvcreate '$device' error");
$cmd = ['/sbin/vgcreate', $vgname, $device]; $cmd = ['/sbin/vgcreate', $vgname, $device];
# push @$cmd, '-c', 'y' if $shared; # we do not use this yet # push @$cmd, '-c', 'y' if $shared; # we do not use this yet
run_command ($cmd); run_command($cmd, errmsg => "vgcreate $vgname $device error");
} }
sub lvm_vgs { sub lvm_vgs {
@ -1771,7 +1771,7 @@ sub nfs_mount {
push @$cmd, '-o', $options; push @$cmd, '-o', $options;
} }
run_command ($cmd); run_command($cmd, errmsg => "mount error");
} }
sub uevent_seqnum { sub uevent_seqnum {
@ -2017,10 +2017,12 @@ sub deactivate_storage {
my $cmd = ['/bin/umount', $path]; my $cmd = ['/bin/umount', $path];
run_command ($cmd) if nfs_is_mounted ($server, $export, $path, $mountdata); run_command($cmd, errmsg => 'umount error')
if nfs_is_mounted ($server, $export, $path, $mountdata);
} elsif ($type eq 'lvm') { } elsif ($type eq 'lvm') {
my $cmd = ['/sbin/vgchange', '-aln', $scfg->{vgname}]; my $cmd = ['/sbin/vgchange', '-aln', $scfg->{vgname}];
run_command ($cmd); run_command($cmd, errmsg => "can't deactivate VG '$scfg->{vgname}'");
} elsif ($type eq 'iscsi') { } elsif ($type eq 'iscsi') {
my $portal = $scfg->{portal}; my $portal = $scfg->{portal};
my $target = $scfg->{target}; my $target = $scfg->{target};