package AnyData::Format::SNMP;## AnyData interface to SNMP queries#use strict;use AnyData::Format::Base;use vars qw( @ISA );@AnyData::Format::SNMP::ISA = qw( AnyData::Format::Base );use Data::Dumper;sub storage_type {#    print "calling storage type\n"; 'SNMP';}sub new {#    print "new format: ", Dumper(@_), "\n";    my $class = shift;    my $self  = shift ||  {};    bless $self, $class;    $self->{'storage'} = 'SNMP';    $self->{'has_update_function'} = 'SNMP';#    print Dumper($self), "\n";    return $self;    2;}sub get_col_names {#    print "get_col_names\n";    # XXX: get mib column names    2;}sub seek_first_record {#    print "seek_first\n";    my $self = shift;    my $var = [$self->{'mibnode'}];    $self->{'session'}->getnext($var);    2;}sub get_pos {#    print "get_pos\n";    2;}sub go_pos {#    print "go_pos\n";    2;}sub delete_record {#    print "del_rec\n";    2;}sub get_record {#    print "get_record\n";    2;}sub push_row {#    print "push_row\n";    2;}sub truncate {#    print "truncate\n";    2;}sub close_table {#    print "close_table\n";    2;}sub drop {#    print "drop\n";    2;}sub seek {#    print "seek\n";    2;}sub write_fields {#    print STDERR "write_fields: ",Dumper(\@_), "\n";    my $self   = shift;    my @ary = @_;    return \@ary;}sub read_fields {#    print STDERR "read_fields: ",Dumper(\@_), "\n";    my $self   = shift;    my $aryref = shift;    return @$aryref;}sub get_data {#    print "get_data\n";    2;}sub init_parser {#    print "init_parser\n";    2;}