1 package AnyData::Format::SNMP;
3 # AnyData interface to SNMP queries
7 use AnyData::Format::Base;
9 @AnyData::Format::SNMP::ISA = qw( AnyData::Format::Base );
13 # print "calling storage type\n"; 'SNMP';
17 # print "new format: ", Dumper(@_), "\n";
19 my $self = shift || {};
21 $self->{'storage'} = 'SNMP';
22 $self->{'has_update_function'} = 'SNMP';
23 # print Dumper($self), "\n";
29 # print "get_col_names\n";
30 # XXX: get mib column names
34 sub seek_first_record {
35 # print "seek_first\n";
37 my $var = [$self->{'mibnode'}];
38 $self->{'session'}->getnext($var);
58 # print "get_record\n";
73 # print "close_table\n";
88 # print STDERR "write_fields: ",Dumper(\@_), "\n";
94 # print STDERR "read_fields: ",Dumper(\@_), "\n";
101 # print "get_data\n";
106 # print "init_parser\n";