pool/s390-tools
SHA256
12
0
Fork 1
Code Issues Pull Requests Activity

Accepting request 535008 from home:markkp:branches:Base:System

Browse Source 
Implemented parallel formatting patches, other misc. changes

OBS-URL: https://build.opensuse.org/request/show/535008
OBS-URL: https://build.opensuse.org/package/show/Base:System/s390-tools?expand=0&rev=22
This commit is contained in:
Mark Post
2017-10-18 17:18:18 +00:00
committed by Git OBS Bridge
parent 2cfb6d9dfa
commit b5ca2618dd
16 changed files with 1241 additions and 594 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
mkdump.pl
View File

@@ -225,9 +225,12 @@ sub print_device
$output .= "\t$adapter\t$wwpn\t$lun";
# check for dump record
if (system("$ZGETDUMP -d ${device} >/dev/null 2>&1") == 0) {
my $zgetdump = `$ZGETDUMP -d $device 2>&1`;
if ($? == 0) {
my ($dsize) = ($zgetdump =~ /Maximum dump size\.:\s+([0-9]+) MB/m);
$dsize = $size unless (defined($dsize));
$output = "$device\t${dsize}MB\t$adapter\t$wwpn\t$lun\tdumpdevice";
$dump_device = 1;
$output .= "\tdumpdevice";
}
}
if ($only_dump_disks) {
@@ -300,6 +303,8 @@ sub determine_free_disks
push(@zfcp, $device);
}
}
# wait for udev to process all events triggered by sysopen(,O_EXCL)
system("$UDEVADM settle");
}
return(\@dasd, \@zfcp);