From e3ca267824cbfcd6820868f5bf40bc67aede31ad Mon Sep 17 00:00:00 2001 From: Bart Van Assche Date: Thu, 1 Nov 2018 04:41:59 +0000 Subject: [PATCH] scstadmin: Slightly change the output format of exported LUNs git-svn-id: http://svn.code.sf.net/p/scst/svn/branches/3.3.x@7588 d57e44dd-8a1f-0410-8b47-8ef2f437770f --- scstadmin/scstadmin.sysfs/scstadmin | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/scstadmin/scstadmin.sysfs/scstadmin b/scstadmin/scstadmin.sysfs/scstadmin index a3b1bb2c6..609021ca8 100755 --- a/scstadmin/scstadmin.sysfs/scstadmin +++ b/scstadmin/scstadmin.sysfs/scstadmin @@ -3550,6 +3550,7 @@ sub listExported { my $l_driver = length('Driver'); my $l_target = length('Target'); my $l_group = length('Group'); + my $fmt = "\t%-*s %-*s %-*s %-4s\n"; foreach my $driver (keys %{$exported}) { $l_driver = length($driver) @@ -3567,18 +3568,18 @@ sub listExported { } print "Device '$device' is currently in use by the following:\n\n"; - printf("\t%-*s %-*s %-*s %-4s\n", $l_driver, 'Driver', $l_target, 'Target', + printf($fmt, $l_driver, 'Driver', $l_target, 'Target', $l_group, 'Group', 'Lun'); - print "\t"; - print join("", "-" x ($l_driver + $l_target + $l_group + 6)); - print "\n"; + printf($fmt, $l_driver, join("", "-" x $l_driver), + $l_target, join("", "-" x $l_target), + $l_group, join("", "-" x $l_group), join("", "-" x 4)); foreach my $driver (sort keys %{$exported}) { foreach my $target (sort keys %{$$exported{$driver}}) { foreach my $group (sort keys %{$$exported{$driver}->{$target}}) { my $lun = $$exported{$driver}->{$target}->{$group}; - printf("\t%-*s %-*s %-*s %-4s\n", $l_driver, $driver, - $l_target, $target, $l_group, $group, $lun); + printf($fmt, $l_driver, $driver, $l_target, + $target, $l_group, $group, $lun); } } }