diff options
Diffstat (limited to 'perl/AnyData_SNMP/Format.pm')
-rw-r--r-- | perl/AnyData_SNMP/Format.pm | 109 |
1 files changed, 109 insertions, 0 deletions
diff --git a/perl/AnyData_SNMP/Format.pm b/perl/AnyData_SNMP/Format.pm new file mode 100644 index 0000000..4f3860d --- /dev/null +++ b/perl/AnyData_SNMP/Format.pm @@ -0,0 +1,109 @@ +package AnyData::Format::SNMP; +# +# AnyData interface to SNMP queries +# + +use strict; +use warnings; +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; +} |