# Parse trap configuration lines, and send traps. Bad formats silently ignored.
$error = 0;
open(SNMP, $naspath);
while (<SNMP>) {
        my @token = split;
        if ($token[0] eq 'snmpmanager' && $token[2] eq ';' &&
            $token[3] eq 'communityname') {
                if(snmptrap($token[1], $token[4])) {
                        print STDERR ("error in sending out snmp pdu\n");
                        $error = 1;
                }
        }
}
close(SNMP);