$head_lines .= <$sysname Processor Load
System:$sysname
Location:$syslocation
CPU ; } 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_connect,'ciscoMemoryPoolName'); foreach my $tempi(@temp) { $tempi =~ /(\d+):(.+)/; my $instance=$1; my ($used, $free) = snmpget($router_connect,'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 ; } snmpMIB_to_OID("/usr/share/snmp/mibs/CISCO-FIREWALL-MIB-V1SMI.my"); my (@temp) = snmpwalk($router_connect,'cfwConnectionStatDescription'); foreach my $tempi(@temp) { $tempi =~ /([\d\.]+):(.+)/; my $instance=$1; my $description = $2; my $target_name=$router_name.'conn.'.$instance; my $maxsize = 50000; $target_lines .= <Memory on $sysname/H1>
System:$sysname
Location:$syslocation
Table:$description
CONNECT ; }