Branch Coverage

blib/lib/Router/Statistics.pm
Criterion Covered Total %
branch 0 1002 0.0


line true false branch
573 0 0 if (not $$self{'_GLOBAL'}{'64Bit'}) { }
609 0 0 unless ($$self{'_GLOBAL'}{'CPE'}{$ip_address})
611 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
613 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
627 0 0 unless ($$self{'_GLOBAL'}{'CPE'}{$ip_address})
643 0 0 if ($error)
646 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
661 0 0 unless ($$self{'_GLOBAL'}{'Router'}{$ip_address})
674 0 0 if ($error)
690 0 0 unless ($$self{'_GLOBAL'}{'Router'}{$ip_address})
703 0 0 if ($error)
734 0 0 unless ($ip_address and $snmp_key)
737 0 0 unless ($timeout)
746 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
747 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
758 0 0 unless ($ip_address and $snmp_key)
761 0 0 unless ($timeout)
782 0 0 unless ($ip_address)
784 0 0 if ($$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'})
811 0 0 if ($format =~ /xml-dtd/i)
823 0 0 unless ($format =~ /xml-dtd/i)
851 0 0 unless (${$cpe_data;}{$ip_address})
854 0 0 unless ($format)
857 0 0 unless ($handle)
862 0 0 unless ($fields)
865 0 0 if ($$self{'_GLOBAL'}{'EXPORT'}{'START'} == 1 and $format =~ /xml/i)
871 0 0 if ($$self{'_GLOBAL'}{'EXPORT'}{'START'} == 1 and $format =~ /csv/i)
879 0 0 if ($format =~ /xml/i)
888 0 0 if ($format =~ /csv/i)
898 0 0 unless ($format =~ /xml/i or $format =~ /csv/i)
914 0 0 if (scalar(keys %{$cpes;} == 0))
929 0 0 if (scalar keys %{$data;} == 0)
945 0 0 if (scalar(keys %{$cpes;} == 0))
965 0 0 if ($attribute =~ /ifPhysAddress/)
972 0 0 if (scalar keys %{$data;} == 0)
988 0 0 if (scalar keys %{$current_ubrs;} == 0)
993 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1003 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1050 0 0 unless ${$data;}{$router}{$interface}{'address'}{$ip_address}{'ipAdEntNetMask'}
1058 0 0 if (${$data;}{$router}{$interface}{'address'}{$ip_address}{'ipAdEntIfIndex'}) { }
1079 0 0 unless ${$data;}{$router}{$interface}{'address'}{$ip_address}{'ipAdEntNetMask'}
1083 0 0 if (scalar @remote_link > 1) { }
1085 0 0 unless ($remote)
1087 0 0 if $interface_remapper{$ip_address}{$router}{'type'} =~ /remote/i
1092 0 0 if $self->_IpQuadToInt($not_local) != $self->_IpQuadToInt($ip_address)
1093 0 0 if ($self->_IpQuadToInt($remote_router) == $self->_IpQuadToInt($router))
1097 0 0 unless ($remote)
1101 0 0 if (scalar @network_link > 1)
1105 0 0 if $self->_IpQuadToInt($not_local) != $self->_IpQuadToInt($local)
1132 0 0 if (scalar keys %{$current_ubrs;} == 0)
1134 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1142 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1143 0 0 if ($password)
1147 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1148 0 0 if ($router_name)
1157 0 0 if ($login_router)
1159 0 0 if ($username)
1161 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1162 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1169 0 0 if ($enable)
1171 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1207 0 0 if ($$self{'_GLOBAL'}{'STM_Safety_Limit'} and not $safety_offset)
1210 0 0 unless ($safety_offset)
1216 0 0 if (scalar keys %{$current_ubrs;} == 0)
1224 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1225 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1235 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1236 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1249 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1261 0 0 if ($high_start_time > $private_data{$ip_address}{'time'}{'total_minutes'})
1264 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1268 0 0 if ($private_data{$ip_address}{'time'}{'total_minutes'} >= $high_start_time and $private_data{$ip_address}{'time'}{'total_minutes'} < $high_end_time) { }
1273 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1278 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1279 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1280 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1281 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1288 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1289 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1290 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1295 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1296 0 0 if ($private_data{$ip_address}{'stm_rule_not_allowed'} != scalar keys %{$private_data{$ip_address}{'stm_rule_set'};})
1298 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1307 0 0 if ($$self{'_GLOBAL'}{'Telnet'} == 1)
1312 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1313 0 0 if ($private_data{$ip_address}{'stm_rule_not_allowed'} != scalar keys %{$private_data{$ip_address}{'stm_rule_set'};})
1315 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1316 0 0 if ($username and $password)
1319 0 0 if ($router_name)
1327 0 0 if ($login_router)
1330 0 0 if ($enable)
1349 0 0 if $line =~ /^$safe_router_name/
1350 0 0 unless $line =~ /^[0-9]/
1351 0 0 unless length $line > 10
1372 0 0 if ($private_data{$ip_address}{'stm_rule_not_allowed'} != scalar keys %{$private_data{$ip_address}{'stm_rule_set'};})
1376 0 0 if $instance =~ /^cntpSysClock/gi
1400 0 0 if ($$self{'_GLOBAL'}{'STM_Safety_Limit'} and not $safety_offset)
1403 0 0 unless ($safety_offset)
1407 0 0 if (scalar keys %{$current_ubrs;} == 0)
1419 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1420 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1428 0 0 unless ($attribute =~ /^PRIVATE/)
1430 0 0 if ($foo =~ /^${$snmp_variables;}{$attribute}/)
1436 0 0 if $character < 15
1447 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1455 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1460 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1461 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1475 0 0 if ($high_start_time > $private_data{$ip_address}{'time'}{'total_minutes'})
1478 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1482 0 0 if ($private_data{$ip_address}{'time'}{'total_minutes'} >= $high_start_time and $private_data{$ip_address}{'time'}{'total_minutes'} < $high_end_time) { }
1487 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1492 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1493 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1494 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1495 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1499 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1502 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1503 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1505 0 0 if ($private_data{$ip_address}{'stm_rule_not_allowed'} != scalar keys %{$private_data{$ip_address}{'stm_rule_set'};})
1507 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1514 0 0 if ($foo =~ /^${$snmp_variables;}{'ccqmEnfRuleViolateMacAddr'}.(\d+).(\d+)/)
1517 0 0 if ($foo =~ /^${$snmp_variables;}{'ccqmEnfRuleViolateLastDetectTime'}.(\d+).(\d+)/)
1520 0 0 if ($foo =~ /^${$snmp_variables;}{'ccqmEnfRuleViolatePenaltyExpTime'}.(\d+).(\d+)/)
1523 0 0 if ($foo =~ /^${$snmp_variables;}{'ccqmEnfRuleViolateRuleName'}.(\d+).(\d+)/)
1526 0 0 if ($foo =~ /^${$snmp_variables;}{'ccqmEnfRuleViolateByteCount'}.(\d+).(\d+)/)
1529 0 0 if ($foo =~ /^${$snmp_variables;}{'ccqmEnfRuleViolateID'}.(\d+).(\d+)/)
1534 0 0 if ($$self{'_GLOBAL'}{'Telnet'} == 1)
1538 0 0 if ($username and $password)
1542 0 0 if ($router_name)
1550 0 0 if ($login_router)
1553 0 0 if ($enable)
1572 0 0 if $line =~ /^$safe_router_name/
1573 0 0 unless $line =~ /^[0-9]/
1574 0 0 unless length $line > 10
1621 0 0 if (scalar keys %{$current_ubrs;} == 0)
1625 0 0 if ($$self{'_GLOBAL'}{'32Bit'} == 1 or $type =~ /^32Bit$/i)
1629 0 0 if ($$self{'_GLOBAL'}{'64Bit'} == 1 or $type =~ /^64Bit$/i)
1635 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1645 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1676 0 0 if (scalar keys %{$current_ubrs;} == 0)
1678 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1684 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1685 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1693 0 0 unless $foo =~ /^${$snmp_variables;}{'entPhysicalName'}.(\d+)/
1694 0 0 if ($foo =~ /^${$snmp_variables;}{'entPhysicalName'}.(\d+)/)
1709 0 0 if (scalar keys %{$current_ubrs;} == 0)
1711 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1717 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1718 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1726 0 0 unless $foo =~ /^${$snmp_variables;}{'PRIVATE_interface_base'}.(\d+)/
1727 0 0 if ($foo =~ /^${$snmp_variables;}{'ifDescr'}.(\d+)/)
1741 0 0 if (scalar keys %{$current_ubrs;} == 0)
1743 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1750 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1751 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1759 0 0 unless $foo =~ /^${$snmp_variables;}{'ccwbRFChannelMpegPkts'}.(\d+)/
1760 0 0 if ($foo =~ /^${$snmp_variables;}{'ccwbRFChannelMpegPkts'}.(\d+).(\d+)/)
1774 0 0 if (scalar keys %{$current_ubrs;} == 0)
1776 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1786 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1795 0 0 if ($foo =~ /^${$snmp_variables;}{$snmp_value}.(\d+)/)
1805 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1807 0 0 unless $temp{$ip_address}{$key_id}{'ifDescr'}
1809 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1826 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1828 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1879 0 0 if (scalar keys %{$current_ubrs;} == 0)
1881 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1888 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1889 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1897 0 0 unless $foo =~ /^${$snmp_variables;}{'ccwbWBtoRFBandwidth'}/
1898 0 0 if ($foo =~ /^${$snmp_variables;}{'ccwbWBtoRFBandwidth'}.(\d+).(\d+).(\d+)/)
1921 0 0 if (scalar keys %{$current_ubrs;} == 0)
1923 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1928 0 0 if ($$self{'_GLOBAL'}{'32Bit'} == 1 or $type =~ /^32Bit$/i)
1932 0 0 if ($$self{'_GLOBAL'}{'64Bit'} == 1 or $type =~ /^64Bit$/i)
1936 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1937 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1938 0 0 if ($$self{'_GLOBAL'}{'DEBUG'} == 1)
1949 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
1950 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
1958 0 0 unless $foo =~ /^${$snmp_variables;}{'PRIVATE_interface_base'}.(\d+)/
1959 0 0 if ($foo =~ /^${$snmp_variables;}{'ifDescr'}.(\d+)/)
1961 0 0 if ($foo =~ /^${$snmp_variables;}{'ifType'}.(\d+)/)
1963 0 0 if ($foo =~ /^${$snmp_variables;}{'ifMtu'}.(\d+)/)
1965 0 0 if ($foo =~ /^${$snmp_variables;}{'ifSpeed'}.(\d+)/)
1967 0 0 if ($foo =~ /^${$snmp_variables;}{'ifPhysAddress'}.(\d+)/)
1969 0 0 if ($foo =~ /^${$snmp_variables;}{'ifAdminStatus'}.(\d+)/)
1971 0 0 if ($foo =~ /^${$snmp_variables;}{'ifOperStatus'}.(\d+)/)
1973 0 0 if ($foo =~ /^${$snmp_variables;}{'ifLastChange'}.(\d+)/)
1975 0 0 if ($foo =~ /^${$snmp_variables;}{'ifInOctets'}.(\d+)/)
1977 0 0 if ($foo =~ /^${$snmp_variables;}{'ifInUcastPkts'}.(\d+)/)
1979 0 0 if ($foo =~ /^${$snmp_variables;}{'ifInNUcastPkts'}.(\d+)/)
1981 0 0 if ($foo =~ /^${$snmp_variables;}{'ifInDiscards'}.(\d+)/)
1983 0 0 if ($foo =~ /^${$snmp_variables;}{'ifInErrors'}.(\d+)/)
1985 0 0 if ($foo =~ /^${$snmp_variables;}{'ifInUnknownProtos'}.(\d+)/)
1987 0 0 if ($foo =~ /^${$snmp_variables;}{'ifOutOctets'}.(\d+)/)
1989 0 0 if ($foo =~ /^${$snmp_variables;}{'ifOutUcastPkts'}.(\d+)/)
1991 0 0 if ($foo =~ /^${$snmp_variables;}{'ifOutNUcastPkts'}.(\d+)/)
1993 0 0 if ($foo =~ /^${$snmp_variables;}{'ifOutDiscards'}.(\d+)/)
1995 0 0 if ($foo =~ /^${$snmp_variables;}{'ifOutErrors'}.(\d+)/)
1998 0 0 if ($foo =~ /^${$snmp_variables;}{'ifName'}.(\d+)/)
2001 0 0 if ($foo =~ /^${$snmp_variables;}{'ifInMulticastPkts'}.(\d+)/)
2004 0 0 if ($foo =~ /^${$snmp_variables;}{'ifInBroadcastPkts'}.(\d+)/)
2007 0 0 if ($foo =~ /^${$snmp_variables;}{'ifOutMulticastPkts'}.(\d+)/)
2010 0 0 if ($foo =~ /^${$snmp_variables;}{'ifOutBroadcastPkts'}.(\d+)/)
2012 0 0 if ($foo =~ /^${$snmp_variables;}{'ifHCInOctets'}.(\d+)/)
2014 0 0 if ($foo =~ /^${$snmp_variables;}{'ifHCInUcastPkts'}.(\d+)/)
2016 0 0 if ($foo =~ /^${$snmp_variables;}{'ifHCInMulticastPkts'}.(\d+)/)
2018 0 0 if ($foo =~ /^${$snmp_variables;}{'ifHCInBroadcastPkts'}.(\d+)/)
2020 0 0 if ($foo =~ /^${$snmp_variables;}{'ifHCOutOctets'}.(\d+)/)
2022 0 0 if ($foo =~ /^${$snmp_variables;}{'ifHCOutUcastPkts'}.(\d+)/)
2024 0 0 if ($foo =~ /^${$snmp_variables;}{'ifHCOutMulticastPkts'}.(\d+)/)
2026 0 0 if ($foo =~ /^${$snmp_variables;}{'ifHCOutBroadcastPkts'}.(\d+)/)
2028 0 0 if ($foo =~ /^${$snmp_variables;}{'ifLinkUpDownTrapEnable'}.(\d+)/)
2030 0 0 if ($foo =~ /^${$snmp_variables;}{'ifHighSpeed'}.(\d+)/)
2032 0 0 if ($foo =~ /^${$snmp_variables;}{'ifPromiscuousMode'}.(\d+)/)
2034 0 0 if ($foo =~ /^${$snmp_variables;}{'ifConnectorPresent'}.(\d+)/)
2036 0 0 if ($foo =~ /^${$snmp_variables;}{'ifAlias'}.(\d+)/)
2038 0 0 if ($foo =~ /^${$snmp_variables;}{'ifCounterDiscontinuityTime'}.(\d+)/)
2049 0 0 if ($foo =~ /^${$snmp_variables;}{'ifAlias'}.(\d+)/)
2064 0 0 if (scalar keys %{$current_ubrs;} == 0)
2071 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2083 0 0 if ($temp{$ip_address}{$relative}{'entPhysicalName'} =~ /^Line Card (\d+)/)
2085 0 0 if ($temp{$ip_address}{$relative}{'entPhysicalName'} =~ /^RSP at Slot (\d+)/)
2087 0 0 if ($temp{$ip_address}{$relative}{'entPhysicalName'} =~ /^Card Slot (\d+), Bay (\d+)/)
2089 0 0 if ($temp{$ip_address}{$relative}{'entPhysicalName'} =~ /^PA at Slot (\d+), Bay (\d+)/)
2098 0 0 if $attribute =~ /PRIVATE/
2106 0 0 if $attribute =~ /PRIVATE/
2127 0 0 if (scalar keys %{$data;} == 0)
2130 0 0 if (scalar keys %{$router_list;} == 0)
2133 0 0 unless ($handle)
2136 0 0 unless ($format =~ /csv/i)
2139 0 0 if ($format =~ /csv/i)
2144 0 0 if ($format =~ /csv/i)
2148 0 0 unless (${$data;}{$ip_address}{'slot'}{$slot}{'main'}{'entPhysicalDescr'})
2156 0 0 unless (${$data;}{$ip_address}{'slot'}{$slot}{'child'}{$bay}{'entPhysicalDescr'})
2159 0 0 unless ${$data;}{$ip_address}{'slot'}{$slot}{'child'}{$bay}{'entPhysicalSerialNum'} or ${$data;}{$ip_address}{'slot'}{$slot}{'child'}{$bay}{'entPhysicalDescr'} =~ /^Empty/
2180 0 0 if (scalar keys %{$data;} == 0)
2183 0 0 if (scalar keys %{$router_list;} == 0)
2186 0 0 unless ($handle)
2189 0 0 unless ($format =~ /csv/i)
2192 0 0 if ($format =~ /csv/i)
2197 0 0 if ($format =~ /csv/i)
2202 0 0 if (${$data;}{$ip_address}{$interface}{'ifDescr'} =~ /(\d+)$/)
2204 0 0 if (${$data;}{$ip_address}{$interface}{'ifDescr'} =~ m[(\d+)/(\d+)/(\d+)])
2224 0 0 if (scalar keys %{$current_ubrs;} == 0)
2231 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2242 0 0 unless $temp{$ip_address}{$relative}{'entPhysicalName'} =~ /^slot (\d+)/
2249 0 0 if $attribute =~ /PRIVATE/
2269 0 0 if (scalar keys %{$data;} == 0)
2272 0 0 if (scalar keys %{$router_list;} == 0)
2275 0 0 unless ($handle)
2278 0 0 unless ($format =~ /csv/i)
2281 0 0 if ($format =~ /csv/i)
2286 0 0 if ($format =~ /csv/i)
2290 0 0 unless (${$data;}{$ip_address}{'slot'}{$slot}{'entPhysicalDescr'})
2310 0 0 if (scalar keys %{$data;} == 0)
2313 0 0 if (scalar keys %{$router_list;} == 0)
2316 0 0 unless ($handle)
2319 0 0 unless ($format =~ /csv/i)
2322 0 0 if ($format =~ /csv/i)
2327 0 0 if ($format =~ /csv/i)
2332 0 0 if (${$data;}{$ip_address}{$interface}{'ifDescr'} =~ /(\d+)$/)
2334 0 0 if (${$data;}{$ip_address}{$interface}{'ifDescr'} =~ m[(\d+)/(\d+)])
2357 0 0 if (scalar keys %{$data;} == 0)
2360 0 0 if (scalar keys %{$router_list;} == 0)
2363 0 0 unless ($handle)
2366 0 0 unless ($format =~ /csv/i)
2369 0 0 if ($format =~ /csv/i)
2374 0 0 if ($format =~ /csv/i)
2378 0 0 unless (${$data;}{$ip_address}{'slot'}{$slot}{'main'}{'entPhysicalDescr'})
2386 0 0 unless (${$data;}{$ip_address}{'slot'}{$slot}{'child'}{$bay}{'entPhysicalDescr'})
2407 0 0 if (scalar keys %{$data;} == 0)
2410 0 0 if (scalar keys %{$router_list;} == 0)
2413 0 0 unless ($handle)
2416 0 0 unless ($format =~ /csv/i)
2419 0 0 if ($format =~ /csv/i)
2424 0 0 if ($format =~ /csv/i)
2429 0 0 if (${$data;}{$ip_address}{$interface}{'ifDescr'} =~ /(\d+)$/)
2431 0 0 if (${$data;}{$ip_address}{$interface}{'ifDescr'} =~ m[(\d+)/(\d+)])
2467 0 0 if (scalar keys %{$current_ubrs;} == 0)
2472 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2483 0 0 unless $temp{$ip_address}{$relative}{'entPhysicalDescr'} =~ /mc/i or $temp{$ip_address}{$relative}{'entPhysicalDescr'} =~ /ether/i
2492 0 0 if $attribute =~ /PRIVATE/
2508 0 0 if (scalar keys %{$current_ubrs;} == 0)
2515 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2522 0 0 if ($foo =~ /^${$snmp_variables;}{$snmp_value}.(\d+)/)
2546 0 0 unless $temp{$ip_address}{$relative}{'entPhysicalDescr'} =~ /mc/i or $temp{$ip_address}{$relative}{'entPhysicalDescr'} =~ /ether/i
2555 0 0 if $attribute =~ /PRIVATE/
2575 0 0 if (scalar keys %{$data;} == 0)
2578 0 0 if (scalar keys %{$router_list;} == 0)
2581 0 0 unless ($handle)
2584 0 0 unless ($format =~ /csv/i)
2587 0 0 if ($format =~ /csv/i)
2592 0 0 if ($format =~ /csv/i)
2596 0 0 unless (${$data;}{$ip_address}{$slot}{'entPhysicalDescr'})
2617 0 0 if (scalar keys %{$data;} == 0)
2620 0 0 if (scalar keys %{$router_list;} == 0)
2623 0 0 unless ($handle)
2626 0 0 unless ($format =~ /csv/i)
2629 0 0 if ($format =~ /csv/i)
2634 0 0 if ($format =~ /csv/i)
2639 0 0 if (${$data;}{$ip_address}{$interface}{'ifDescr'} =~ /(\d+)$/)
2641 0 0 if (${$data;}{$ip_address}{$interface}{'ifDescr'} =~ m[(\d+)/(\d+)])
2661 0 0 if (scalar keys %{$current_ubrs;} == 0)
2668 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2681 0 0 if ($temp{$ip_address}{$relative}{'entPhysicalName'} =~ /^(\d+)$/)
2683 0 0 if ($temp{$ip_address}{$relative}{'entPhysicalName'} =~ m[(\d+)/(\d+)$])
2692 0 0 if $attribute =~ /PRIVATE/
2699 0 0 if $attribute =~ /PRIVATE/
2716 0 0 if (scalar keys %{$current_ubrs;} == 0)
2723 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2736 0 0 if ($attribute =~ /docsIfCmtsModType/i)
2743 0 0 if ($attribute =~ /docsIfCmtsModDifferentialEncoding/i)
2749 0 0 if ($attribute =~ /docsIfCmtsModLastCodewordShortened/i)
2755 0 0 if ($attribute =~ /docsIfCmtsModScrambler/i)
2761 0 0 if ($attribute =~ /docsIfCmtsModPreambleType/i)
2767 0 0 if ($attribute =~ /docsIfCmtsModTcmErrorCorrectionOn/i)
2773 0 0 if ($attribute =~ /docsIfCmtsModScdmaSpreaderEnable/i)
2779 0 0 if ($attribute =~ /docsIfCmtsModChannelType/i)
2805 0 0 if (scalar keys %{$current_ubrs;} == 0)
2810 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2821 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2840 0 0 if (scalar keys %{$current_ubrs;} == 0)
2845 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2851 0 0 if ($foo =~ /^${$snmp_variables;}{$snmp_value}.(\d+)/)
2860 0 0 if ($foo =~ /^${$snmp_variables;}{$snmp_value}.(\d+)/)
2876 0 0 if (scalar keys %{$current_ubrs;} == 0)
2881 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2900 0 0 if (scalar keys %{$current_ubrs;} == 0)
2905 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2911 0 0 if ($foo =~ /^${$snmp_variables;}{$snmp_value}.(\d+)/)
2927 0 0 if (scalar keys %{$current_ubrs;} == 0)
2932 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2961 0 0 if (scalar keys %{$current_ubrs;} == 0)
2966 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
2972 0 0 if ($foo =~ /^${$snmp_variables;}{$snmp_value}.(\d+)/)
2995 0 0 if (scalar keys %{$current_ubrs;} == 0)
3000 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3013 0 0 if ($attribute =~ /docsIfCmtsModType/)
3041 0 0 if (scalar keys %{$current_ubrs;} == 0)
3046 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3053 0 0 if ($foo =~ /^${$snmp_variables;}{$snmp_value}.(\d+)/)
3086 0 0 if (scalar keys %{$current_ubrs;} == 0)
3089 0 0 if ($data_selector =~ /QOSPROFILE/i or $data_selector =~ /ALL/i)
3093 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3100 0 0 if ($foo =~ /^${$snmp_variables;}{'cdxCmtsCmCurrQoSPro'}.(\d+)/)
3108 0 0 if ($data_selector =~ /CPEMAC/i or $data_selector =~ /ALL/i)
3112 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3118 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfCmtsCmStatusMacAddress'}.(\d+)/)
3143 0 0 if (scalar keys %{$current_ubrs;} == 0)
3149 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3155 0 0 if ($foo =~ /^${$snmp_variables;}{'docsQosParamSetServiceClassName'}.(\d+).(\d+).(\d+)/)
3165 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3171 0 0 if ($foo =~ /^${$snmp_variables;}{'docsQosParamSetMaxTrafficRate'}.(\d+).(\d+).(\d+)/)
3182 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3188 0 0 if ($foo =~ /^${$snmp_variables;}{'docsQosParamSetSchedulingType'}.(\d+).(\d+).(\d+)/)
3199 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3205 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfCmtsCmStatusMacAddress'}.(\d+)/)
3215 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3221 0 0 if ($foo =~ /^${$snmp_variables;}{'docsQosCmtsIfIndex'}.(\d+).(\d+).(\d+).(\d+).(\d+).(\d+).(\d+)/)
3234 0 0 if $service_flows{'flow_speed'}{$mac_flows{$real_mac}{$flows}}{$flows}{'1'} == 0
3246 0 0 unless (${$data;}{$real_mac}{'direction'}{'Upstream'})
3247 0 0 unless (${$data;}{$real_mac}{'direction'}{'Downstream'})
3285 0 0 if (scalar keys %{$current_ubrs;} == 0)
3292 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3302 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfCmtsServiceCmStatusIndex'}.(\d+).(\d+)/)
3313 0 0 if ($data_selector =~ /CPEIP/i or $data_selector =~ /ALL/i)
3317 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3323 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfCmtsCmStatusIpAddress'}.(\d+)/)
3331 0 0 if ($data_selector =~ /USERIP/i or $data_selector =~ /ALL/i)
3335 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3341 0 0 if ($foo =~ /^${$snmp_variables;}{'cdxCmCpeIpAddress'}.(\d+).(\d+).(\d+).(\d+).(\d+).(\d+)/)
3351 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3357 0 0 if ($foo =~ /^${$snmp_variables;}{'cdxCmCpeCmStatusIndex'}.(\d+).(\d+).(\d+).(\d+).(\d+).(\d+)/)
3368 0 0 if ($data_selector =~ /IFINDEX/i or $data_selector =~ /ALL/i)
3372 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3377 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfCmtsCmStatusUpChannelIfIndex'}.(\d+)/)
3386 0 0 if ($data_selector =~ /QOSPROFILE/i or $data_selector =~ /ALL/i)
3390 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3400 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfCmtsServiceQosProfile'}.(\d+).(\d+)/)
3412 0 0 if ($data_selector =~ /INOCTETS/i or $data_selector =~ /ALL/i)
3416 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3426 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfCmtsServiceInOctets'}.(\d+).(\d+)/)
3438 0 0 if ($data_selector =~ /INPACKETS/i or $data_selector =~ /ALL/i)
3442 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3452 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfCmtsServiceInPackets'}.(\d+).(\d+)/)
3465 0 0 if ($data_selector =~ /OUTOCTETS/i or $data_selector =~ /ALL/i)
3469 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3479 0 0 if ($foo =~ /^${$snmp_variables;}{'cdxIfCmtsServiceOutOctets'}.(\d+).(\d+)/)
3491 0 0 if ($data_selector =~ /OUTPACKETS/i or $data_selector =~ /ALL/i)
3495 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3505 0 0 if ($foo =~ /^${$snmp_variables;}{'cdxIfCmtsServiceOutPackets'}.(\d+).(\d+)/)
3517 0 0 if ($data_selector =~ /CPEMAC/i or $data_selector =~ /ALL/i)
3521 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3527 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfCmtsCmStatusMacAddress'}.(\d+)/)
3536 0 0 if ($data_selector =~ /STATUS/i or $data_selector =~ /ALL/i)
3540 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3546 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfCmtsCmStatusValue'}.(\d+)/)
3598 0 0 if (scalar keys %{$current_ubrs;} == 0)
3605 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3618 0 0 if ($data_selector =~ /CPEIP/i or $data_selector =~ /ALL/i)
3622 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3631 0 0 if ($data_selector =~ /USERIP/i or $data_selector =~ /ALL/i)
3635 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3644 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3654 0 0 if ($data_selector =~ /IFINDEX/i or $data_selector =~ /ALL/i)
3658 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3667 0 0 if ($data_selector =~ /QOSPROFILE/i or $data_selector =~ /ALL/i)
3671 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3685 0 0 if ($data_selector =~ /INOCTETS/i or $data_selector =~ /ALL/i)
3689 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3703 0 0 if ($data_selector =~ /INPACKETS/i or $data_selector =~ /ALL/i)
3707 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3721 0 0 if ($data_selector =~ /OUTOCTETS/i or $data_selector =~ /ALL/i)
3725 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3739 0 0 if ($data_selector =~ /OUTPACKETS/i or $data_selector =~ /ALL/i)
3743 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3757 0 0 if ($data_selector =~ /CPEMAC/i or $data_selector =~ /ALL/i)
3761 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3778 0 0 if ($data_selector =~ /STATUS/i or $data_selector =~ /ALL/i)
3782 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3814 0 0 if (scalar keys %{$data;} == 0)
3829 0 0 unless ($$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'})
3832 0 0 unless ($profiles)
3835 0 0 unless ($cpe_information)
3838 0 0 unless ($mac_to_change)
3841 0 0 unless ($profile_change)
3846 0 0 if (scalar @profile_definition != 2)
3853 0 0 if ($merge =~ /^$profile_change$/)
3857 0 0 unless ($lock_profile)
3863 0 0 if (${$cpe_information;}{$ip_address}{$mac_find}{'docsIfCmtsCmStatusMacAddress'} =~ /^$mac_to_change$/i)
3869 0 0 unless ($lock_profile)
3888 0 0 if ($$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}->error)
3900 0 0 unless ($$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'})
3907 0 0 if (scalar @mac_split == 6)
3910 0 0 if (scalar @mac_split == 3)
3918 0 0 unless ($index)
3932 0 0 if ($$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}->error)
3945 0 0 if (scalar keys %{$current_ubrs;} == 0)
3950 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3968 0 0 if (scalar keys %{$current_ubrs;} == 0)
3973 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
3980 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfQosProfPriority'}.(\d+)/)
3982 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfQosProfMaxDownBandwidth'}.(\d+)/)
3984 0 0 if ($foo =~ /^${$snmp_variables;}{'docsIfQosProfMaxUpBandwidth'}.(\d+)/)
3999 0 0 unless ($$self{'_GLOBAL'}{'CPE'}{$ip_address}{'SESSION'})
4021 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
4036 0 0 unless (${$data;}{$ip_address}{'sysUpTime'})
4040 0 0 if (not ${$data;}{$ip_address}{'hostName'} or ${$data;}{$ip_address}{'hostName'} =~ /^noSuchObject/i)
4060 0 0 unless $$self{'_GLOBAL'}{'Router'}{$ip_address}{'SESSION'}
4070 0 0 if ($$result{${$snmp_variables;}{'sysUpTime'}}) { }
4076 0 0 if (not ${$data;}{$ip_address}{'hostName'} or ${$data;}{$ip_address}{'hostName'} =~ /^noSuchObject/i)
4096 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
4098 0 0 unless $$self{'_GLOBAL'}{'CPE'}{$ip_address}{'SESSION'}
4099 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
4104 0 0 if ($$self{'_GLOBAL'}{'CPE'}{$ip_address}{'SESSION'}->error)
4106 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
4114 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
4117 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
4123 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
4124 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
4128 0 0 if ($$self{'_GLOBAL'}{'CPE'}{$ip_address}{'SESSION'})
4130 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
4142 0 0 unless (${$data;}{$ip_address}{'sysUpTime'})
4144 0 0 if $$self{'_GLOBAL'}{'DEBUG'} == 1
4156 0 0 unless ($data)
4218 0 0 if $char1 =~ /x/g
4219 0 0 if $char2 =~ /x/g
4220 0 0 if $char3 =~ /x/g
4221 0 0 if $char4 =~ /x/g
4222 0 0 if $char5 =~ /x/g
4223 0 0 if $char6 =~ /x/g
4234 0 0 if $attribute =~ /^PRIVATE/
4235 0 0 if ($oid =~ /^${$snmp_variables;}{$attribute}/)
4252 0 0 if $attribute =~ /^PRIVATE/
4253 0 0 if ($oid =~ /^${$snmp_variables;}{$attribute}.(\d+)/)
4272 0 0 if $attribute =~ /^PRIVATE/
4273 0 0 if ($oid =~ /^${$snmp_variables;}{$attribute}.(\d+)/)
4292 0 0 if $attribute =~ /^PRIVATE/
4293 0 0 if ($oid =~ /^${$snmp_variables;}{$attribute}.(\d+).(\d+)/)
4311 0 0 if ($oid =~ /^${$snmp_variables;}{'docsIfCmtsServiceCmStatusIndex'}.(\d+).(\d+)/)
4330 0 0 if $attribute =~ /^PRIVATE/
4331 0 0 if ($oid =~ /^${$snmp_variables;}{$attribute}.(\d+).(\d+)/)
4351 0 0 if $attribute =~ /^PRIVATE/
4352 0 0 if ($oid =~ /^${$snmp_variables;}{$attribute}\./)
4360 0 0 if $character < 15
4381 0 0 if $attribute =~ /^PRIVATE/
4382 0 0 if ($oid =~ /^${$snmp_variables;}{$attribute}.(\d+).(\d+)/)
4401 0 0 if $attribute =~ /^PRIVATE/
4402 0 0 if ($oid =~ /^${$snmp_variables;}{$attribute}.(\d+).(\d+).(\d+).(\d+).(\d+).(\d+)/)
4421 0 0 if $attribute =~ /^PRIVATE/
4422 0 0 if ($oid =~ /^${$snmp_variables;}{$attribute}.(\d+).(\d+).(\d+).(\d+).(\d+).(\d+)/)
4444 0 0 if ($attribute =~ /ipAdEntIfIndex/i)
4446 0 0 if ($oid =~ /^${$snmp_variables;}{$attribute}.(\d+).(\d+).(\d+).(\d+)/)
4459 0 0 if $attribute =~ /^PRIVATE/
4460 0 0 if ($oid =~ /^${$snmp_variables;}{$attribute}.(\d+).(\d+).(\d+).(\d+)/)
4479 0 0 if $attribute =~ /^PRIVATE/
4480 0 0 if ($oid =~ /^${$snmp_variables;}{$attribute}/)