$head_lines .= <$sysname Processor Load
System:$sysname
Location:$syslocation
CPU ; } my (@temp) = snmpwalk($router,$v3opt,'cpmCPUTotal5sec'); foreach my $tempi(@temp) { $tempi =~ /(\d+):\d/; my $instance=$1; next if exists $cpu{$instance}; my $target_name=$router_name.".cpu".$instance; $cpu{$instance}++; $target_lines .= <$sysname Processor Load
System:$sysname
Location:$syslocation
CPUOLD ; } snmpMIB_to_OID("/usr/share/snmp/mibs/CISCO-QOS-PIB-MIB-V1SMI.my"); snmpMIB_to_OID("/usr/share/snmp/mibs/CISCO-MEMORY-POOL-MIB-V1SMI.my"); my (@temp) = snmpwalk($router,$v3opt,'ciscoMemoryPoolName'); foreach my $tempi(@temp) { $tempi =~ /(\d+):(.+)/; my $instance=$1; next if $2 !~ /Processor/; my ($used, $free) = snmpget($router,$v3opt,'ciscoMemoryPoolUsed.'.$instance, 'ciscoMemoryPoolFree.'.$instance); my $target_name=$router_name.".memory"; my $maxsize = $used+$free; $target_lines .= <Memory on $sysname/H1>
System:$sysname
Location:$syslocation
DISK ; }