scstadmin: Align exports columns properly

git-svn-id: http://svn.code.sf.net/p/scst/svn/branches/3.3.x@7586 d57e44dd-8a1f-0410-8b47-8ef2f437770f
This commit is contained in:
Bart Van Assche
2018-11-01 04:41:17 +00:00
parent 85ab1cc645
commit 14d4087ed3

View File

@@ -3556,9 +3556,9 @@ sub listExported {
if (keys %{$$attributes{'exported'}}) {
my $exported = $$attributes{'exported'}->{'value'};
my $l_driver;
my $l_target;
my $l_group;
my $l_driver = length('Driver');
my $l_target = length('Target');
my $l_group = length('Group');
foreach my $driver (keys %{$exported}) {
$l_driver = length($driver)
@@ -3579,9 +3579,7 @@ sub listExported {
printf("\t%-*s %-*s %-*s %-4s\n", $l_driver, 'Driver', $l_target, 'Target',
$l_group, 'Group', 'Lun');
print "\t";
for (my $x = 0; $x < ($l_driver + $l_target + $l_group + 5); $x++) {
print "-";
}
print join("", "-" x ($l_driver + $l_target + $l_group + 6));
print "\n";
foreach my $driver (sort keys %{$exported}) {