| line |
true |
false |
branch |
|
40
|
0 |
0 |
unless ($switch) |
|
43
|
0 |
0 |
unless ($user and $pass) |
|
94
|
0 |
0 |
unless (@rc) |
|
97
|
0 |
0 |
if ($args{-'verbose'}) |
|
101
|
0 |
0 |
if $rc =~ /Nothing/i |
|
102
|
0 |
0 |
if $rc =~ /Updating/i |
|
122
|
0 |
0 |
if $args{-'byport'} |
|
129
|
0 |
0 |
unless $_ |
|
130
|
0 |
0 |
if (/alias:\s+(\w+)/) |
|
134
|
0 |
0 |
if ($alias and /$_brcd_wwn_re/) |
|
141
|
0 |
0 |
if (exists $$fab{'ALIAS'}{$alias}) { } |
|
143
|
0 |
0 |
unless (ref $old_alias_value) |
|
148
|
0 |
0 |
@wwn_for_alias == 1 ? : |
|
155
|
0 |
0 |
if $args{-'onlywwn'} |
|
157
|
0 |
0 |
if ($alias and /($_brcd_port_id)/) |
|
169
|
0 |
0 |
$args{'-byport'} ? : |
|
|
0 |
0 |
$args{'-bywwn'} ? : |
|
188
|
0 |
0 |
if (/zone:\s+(\w+)/) |
|
192
|
0 |
0 |
if ($zone and /\s*(\w[:\w\s;]+)/) |
|
203
|
0 |
0 |
unless ($$fab{'MEMBER'} and $$fab{'ZONE'}) |
|
207
|
0 |
0 |
if (wantarray) |
|
208
|
0 |
0 |
$args{'-bymember'} ? : |
|
218
|
0 |
0 |
unless exists $$fab{'ZONE'}{$zone} |
|
229
|
0 |
0 |
unless exists $$fab{'MEMBER'}{$member} |
|
249
|
0 |
0 |
unless $_ |
|
251
|
0 |
0 |
if (/^(\w+):\s+(.+)/) |
|
263
|
0 |
0 |
if (m[
^[port\s]*(\d+):? \s* # Le port number forme ok:port 1: ; 12;144
(?:
(?:
(\d{1,3})\s+ # Le slot que sur les directeurs
)?
(\d{1,3}) # Le port dans le slot
\s*
(
[0-9a-zA-Z]
[0-9a-zA-Z]
[0-9a-zA-Z]
[0-9a-zA-Z]
[0-9a-zA-Z]
[0-9a-zA-Z]
)? # Adresse FC, qu'\340 partir de FabOS 5.2.0a
)?
\s+ [i-][d-] \s+ # Le mot magique qui dit que c'est la bonne ligne
[a-zA-Z]*(\d+)[a-zA-Z]* \s+ # Vitesse du port plusieurs format \340 priori toujours en Go/s
(\w+) \s* # Status du port
(.*) # Toutes les autres informations (notamment le WWN si connect\351s)
]msx) { } |
|
292
|
0 |
0 |
if (defined $re) |
|
296
|
0 |
0 |
if $args{-'withportname'} |
|
298
|
0 |
0 |
$$fab{'PORT'}{$port_number}{'SLOT'} ? : |
|
303
|
0 |
0 |
if ($port_info and $port_info =~ /^(\w-\w+)\s+($_brcd_wwn_re)?/) |
|
306
|
0 |
0 |
if $wwn |
|
309
|
0 |
0 |
if ($type eq 'F-Port') |
|
320
|
0 |
0 |
exists $$fab{'PORT'} ? : |
|
|
0 |
0 |
$args{'-byslot'} ? : |
|
|
0 |
0 |
$args{'-bywwn'} ? : |
|
333
|
0 |
0 |
unless (exists $$fab{'PORT'}{$port_number}) |
|
340
|
0 |
0 |
unless (exists $$fab{'PORT'}{$port_number}{'SLOT'}) |
|
350
|
0 |
0 |
wantarray ? : |
|
370
|
0 |
0 |
if (/^([\w\s]+):\s+(.+)/) |
|
378
|
0 |
0 |
if ($param eq 'portName') |
|
387
|
0 |
0 |
if (/^([\w\s]+):\s*$/) |
|
392
|
0 |
0 |
if (/^\s+(.+)/) |
|
399
|
0 |
0 |
wantarray ? : |
|
421
|
0 |
0 |
unless $_ |
|
423
|
0 |
0 |
if (/
^\s* (\d+) : \s+ \w+ \s+ # Domain id + identifiant FC
$_brcd_wwn_re \s+ # WWN switch
(\d+\.\d+\.\d+\.\d+) \s+ # Adresse IP switch
\d+\.\d+\.\d+\.\d+ \s+ # Adresse IP FC switch (FCIP)
(>?)"([^"]+) # Master, nom du switch
/msx) |
|
435
|
0 |
0 |
if ($re) |
|
441
|
0 |
0 |
if $switch_host |
|
445
|
0 |
0 |
$args{-'bydomain'} ? : |
|
460
|
0 |
0 |
$wwn =~ /^$_brcd_wwn_re/ ? : |
|
468
|
0 |
0 |
if ($port_alias =~ /(\d+),(\d+)/) |
|
477
|
0 |
0 |
unless ($old_zone_object and $new_zone_object) |
|
487
|
0 |
0 |
unless ($cmd_name) |
|
490
|
0 |
0 |
unless ($zone_object) |
|
496
|
0 |
0 |
if (@cmd_args == 1) { } |
|
|
0 |
0 |
elsif (@cmd_args) { } |
|
498
|
0 |
0 |
if (ref $str_args eq 'ARRAY') |
|
504
|
0 |
0 |
if ($str_args) |
|
520
|
0 |
0 |
unless $$args_ref{$arg} |
|
522
|
0 |
0 |
if ($arg =~ /$exclude/) |
|
529
|
0 |
0 |
unless ($action) |