LIO: followup: various small cleanups

move two loop bodies from

if (condition) {
    ...
}

too
next if !condition;

...

to save an indentation level

rename variables to a bit shorter version, i.e.:
s/oneTarget/target/
s/oneTpg/tpg/

and a comment rewording

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht
2018-08-02 14:43:27 +02:00
parent ff69c66022
commit f15ac9b5a8

View File

@ -139,19 +139,18 @@ my $parser = sub {
my $jsonconfig = JSON->new->utf8->decode($config);
my $haveTarget = 0;
foreach my $oneTarget (@{$jsonconfig->{targets}}) {
foreach my $target (@{$jsonconfig->{targets}}) {
# only interested in iSCSI targets
if ($oneTarget->{fabric} eq 'iscsi' && $oneTarget->{wwn} eq $scfg->{target}) {
next if !($target->{fabric} eq 'iscsi' && $target->{wwn} eq $scfg->{target});
# find correct TPG
foreach my $oneTpg (@{$oneTarget->{tpgs}}) {
if ($oneTpg->{tag} == $tpg_tag) {
$SETTINGS->{target} = $oneTpg;
foreach my $tpg (@{$target->{tpgs}}) {
if ($tpg->{tag} == $tpg_tag) {
$SETTINGS->{target} = $tpg;
$haveTarget = 1;
last;
}
}
}
}
# seriously unhappy if the target server lacks iSCSI target configuration ...
if (!$haveTarget) {
@ -162,8 +161,8 @@ my $parser = sub {
# removes the given lu_name from the local list of luns
my $free_lu_name = sub {
my ($lu_name) = @_;
my $new;
my $new = [];
foreach my $lun (@{$SETTINGS->{target}->{luns}}) {
if ($lun->{storage_object} ne "$BACKSTORE/$lu_name") {
push @$new, $lun;
@ -286,7 +285,8 @@ my $delete_lun = sub {
my $volname = $extract_volname->($scfg, $params[0]);
foreach my $lun (@{$SETTINGS->{target}->{luns}}) {
if ($lun->{storage_object} eq "$BACKSTORE/$volname") {
next if $lun->{storage_object} ne "$BACKSTORE/$volname";
# step 1: delete the lun
my @cliparams = ("/iscsi/$scfg->{target}/$tpg/luns/", 'delete', "lun$lun->{index}" );
my $res = $execute_remote_command->($scfg, $timeout, $targetcli, @cliparams);
@ -309,7 +309,6 @@ my $delete_lun = sub {
last;
}
}
return $res->{msg};
};
@ -352,8 +351,7 @@ my %lun_cmd_map = (
sub run_lun_command {
my ($scfg, $timeout, $method, @params) = @_;
# fetch configuration from target if we haven't yet
# or if our configuration is stale
# fetch configuration from target if we haven't yet or if it is stale
my $timediff = time - $SETTINGS_TIMESTAMP;
if (!$SETTINGS || $timediff > $SETTINGS_MAXAGE) {
$SETTINGS_TIMESTAMP = time;