| line |
true |
false |
branch |
|
111
|
1 |
0 |
if ($$self{'_appliancehost'} and $$self{'_applianceport'} and $$self{'_applianceconnectmode'} and $$self{'_applianceusername'} and $$self{'_appliancepassword'}) |
|
117
|
1 |
0 |
if ($$self{'_applianceconnectmode'} eq 'https') { } |
|
|
0 |
0 |
elsif ($$self{'_applianceconnectmode'} eq 'http') { } |
|
157
|
0 |
0 |
if ($$self{'_debuglevel'} > 0) |
|
163
|
0 |
0 |
unless (defined $$self{'_lwpua'}) |
|
173
|
0 |
0 |
if ($response->is_error) { } |
|
179
|
0 |
0 |
if ($$self{'_debuglevel'} > 0) |
|
183
|
0 |
0 |
if ($$self{'sgos_sysinfo'}) { } |
|
203
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
206
|
1 |
0 |
if (-f $filename) { } |
|
217
|
1 |
0 |
if ($$self{'sgos_sysinfo'}) { } |
|
243
|
0 |
0 |
if ($$self{'_debuglevel'} > 0) |
|
248
|
0 |
0 |
if ($$self{'sgos_sysinfo'}) { } |
|
265
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
299
|
1 |
112 |
if ($sectionname eq 'Software Configuration') |
|
307
|
1 |
112 |
if ($sectionname eq 'TCP/IP Routing Table') |
|
340
|
1 |
0 |
if ($$self{'sgos_sysinfo_sect'}{'Software Configuration'}) { } |
|
381
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
384
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Software Configuration'}) |
|
391
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
401
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
407
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Hardware Information'}) |
|
411
|
0 |
1 |
if ($$self{'modelnumber'} =~ /unsupported configuration/i) { } |
|
427
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
430
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Hardware Information'}) |
|
445
|
1 |
2 |
if ($line =~ /running at/) |
|
449
|
1 |
2 |
if ($line =~ /with no link/) |
|
453
|
2 |
1 |
if ($capabilities) |
|
456
|
2 |
1 |
if ($interface and $capabilities) |
|
462
|
2 |
1 |
if ($interface and $mac) |
|
465
|
1 |
2 |
if ($interface and $running) |
|
468
|
1 |
2 |
if ($interface and not $running) |
|
481
|
1 |
0 |
if (defined $$self{'sgos_swconfig_section'}{'networking'}) |
|
486
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Software Configuration'}) |
|
487
|
0 |
1 |
if ($#t < 2) |
|
501
|
2 |
27 |
if ($line =~ /interface (.+)\;/i) |
|
506
|
1 |
28 |
if ($line =~ /ip-address/) |
|
511
|
1 |
0 |
if (defined $ip) |
|
514
|
1 |
0 |
if (defined $netmask) |
|
518
|
0 |
29 |
if ($line =~ /subnet-mask/) |
|
524
|
6 |
23 |
if (defined $interface) |
|
525
|
1 |
5 |
if (length $interface > 1 and $ip and $netmask) |
|
538
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
549
|
25 |
2156 |
if ($line =~ /!- BEGIN/) { } |
|
|
25 |
2131 |
elsif ($line =~ /!- END/) { } |
|
556
|
2116 |
15 |
if (defined $$self{'sgos_swconfig_section'}{$sectionname}) { } |
|
571
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Software Configuration'}) |
|
576
|
0 |
2182 |
if ($line =~ /static-bypass/) { } |
|
|
0 |
2182 |
elsif ($have_static_bypass) { } |
|
580
|
0 |
0 |
if ($line =~ /exit/) { } |
|
585
|
0 |
0 |
if (defined $$self{'static-bypass'}) { } |
|
600
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Software Configuration'}) |
|
607
|
1 |
1439 |
if ($line =~ /^inline policy vpm-cpl \"*end-(\d+)-inline\"*/) { } |
|
|
93 |
1346 |
elsif ($have_vpm_cpl) { } |
|
612
|
1 |
92 |
if ($line =~ /end-$have_vpm_cpl-inline/i) { } |
|
616
|
91 |
1 |
if (defined $$self{'vpm-cpl'}) { } |
|
628
|
1 |
2180 |
if ($line =~ /^inline policy vpm-xml \"*end-(\d+)-inline\"*/) { } |
|
|
740 |
1440 |
elsif ($have_vpm_xml) { } |
|
633
|
1 |
739 |
if ($line =~ /end-$have_vpm_xml-inline/i) { } |
|
637
|
738 |
1 |
if (defined $$self{'vpm-xml'}) { } |
|
649
|
1 |
0 |
if $$self{'vpm-cpl'} and $$self{'vpm-xml'} |
|
677
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
681
|
1 |
0 |
if (defined $$self{'sgos_swconfig_section'}{'networking'}) |
|
685
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Software Configuration'}) |
|
686
|
1 |
0 |
if ($#s < 2) |
|
692
|
1 |
0 |
if ($#s > 0) |
|
694
|
1 |
2181 |
if ($line =~ /ip-default-gateway/) |
|
705
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
713
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'TCP/IP Routing Table'}) |
|
715
|
1 |
0 |
if ($$self{'sgos_sysinfo_sect'}{'TCP/IP Routing Table'}) { } |
|
726
|
0 |
0 |
if ($line =~ /inline static-route-table \"end-\d+-inline\"/i) |
|
730
|
0 |
0 |
if ($$self{'_debuglevel'} > 0) |
|
733
|
0 |
0 |
if (defined $marker) |
|
734
|
0 |
0 |
if ($line =~ /end-$marker-inline/o) |
|
738
|
0 |
0 |
if ($marker and not $line =~ /$marker/i) |
|
739
|
0 |
0 |
if ($line =~ /^\s*?\;/) |
|
742
|
0 |
0 |
if ($line =~ /\s*(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s*(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s*(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/) |
|
745
|
0 |
0 |
if (defined $$self{'static-route-table'}) { } |
|
762
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
765
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Version Information'}) |
|
774
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
787
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Hardware Information'}) |
|
795
|
1 |
0 |
if ($#a == 0) |
|
798
|
0 |
1 |
if ($#a > 0) |
|
813
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
816
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Version Information'}) |
|
826
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
832
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Version Information'}) |
|
838
|
1 |
0 |
unless (defined $$self{'hardware_reboot_day'}) |
|
843
|
0 |
1 |
unless (defined $$self{'hardware_reboot_hour'}) |
|
848
|
0 |
1 |
unless (defined $$self{'hardware_reboot_minute'}) |
|
853
|
0 |
1 |
unless (defined $$self{'hardware_reboot_second'}) |
|
869
|
1 |
0 |
unless (defined $$self{'software_reboot_day'}) |
|
874
|
0 |
1 |
unless (defined $$self{'software_reboot_hour'}) |
|
879
|
0 |
1 |
unless (defined $$self{'software_reboot_minute'}) |
|
884
|
0 |
1 |
unless (defined $$self{'software_reboot_second'}) |
|
897
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
903
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Version Information'}) |
|
912
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
917
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
928
|
1 |
0 |
if (defined $$self{'sgos_sysinfo_sect'}{'Version Information'}) |
|
932
|
0 |
1 |
if ($$self{'_debuglevel'} > 0) |
|
956
|
0 |
0 |
if ($$self{'_debuglevel'} > 0) |
|
960
|
0 |
0 |
unless (defined $$self{'_lwpua'}) |
|
970
|
0 |
0 |
if ($response->is_success) { } |