userapps/opensource/net-snmp/perl/AnyData_SNMP/Format.pm

   1 package AnyData::Format::SNMP;
   2 #
   3 # AnyData interface to SNMP queries
   4 #
   5
   6 use strict;
   7 use AnyData::Format::Base;
   8 use vars qw( @ISA );
   9 @AnyData::Format::SNMP::ISA = qw( AnyData::Format::Base );
  10 use Data::Dumper;
  11
  12 sub storage_type {
  13 #    print "calling storage type\n"; 'SNMP';
  14 }
  15
  16 sub new {
  17 #    print "new format: ", Dumper(@_), "\n";
  18     my $class = shift;
  19     my $self  = shift ||  {};
  20     bless $self, $class;
  21     $self->{'storage'} = 'SNMP';
  22     $self->{'has_update_function'} = 'SNMP';
  23 #    print Dumper($self), "\n";
  24     return $self;
  25     2;
  26 }
  27
  28 sub get_col_names {
  29 #    print "get_col_names\n";
  30     # XXX: get mib column names
  31     2;
  32 }
  33
  34 sub seek_first_record {
  35 #    print "seek_first\n";
  36     my $self = shift;
  37     my $var = [$self->{'mibnode'}];
  38     $self->{'session'}->getnext($var);
  39     2;
  40 }
  41
  42 sub get_pos {
  43 #    print "get_pos\n";
  44     2;
  45 }
  46
  47 sub go_pos {
  48 #    print "go_pos\n";
  49     2;
  50 }
  51
  52 sub delete_record {
  53 #    print "del_rec\n";
  54     2;
  55 }
  56
  57 sub get_record {
  58 #    print "get_record\n";
  59     2;
  60 }
  61
  62 sub push_row {
  63 #    print "push_row\n";
  64     2;
  65 }
  66
  67 sub truncate {
  68 #    print "truncate\n";
  69     2;
  70 }
  71
  72 sub close_table {
  73 #    print "close_table\n";
  74     2;
  75 }
  76
  77 sub drop {
  78 #    print "drop\n";
  79     2;
  80 }
  81
  82 sub seek {
  83 #    print "seek\n";
  84     2;
  85 }
  86
  87 sub write_fields {
  88 #    print STDERR "write_fields: ",Dumper(\@_), "\n";
  89     my $self   = shift;
  90     my @ary = @_;
  91     return \@ary;
  92 }
  93 sub read_fields {
  94 #    print STDERR "read_fields: ",Dumper(\@_), "\n";
  95     my $self   = shift;
  96     my $aryref = shift;
  97     return @$aryref;
  98 }
  99
 100 sub get_data {
 101 #    print "get_data\n";
 102     2;
 103 }
 104
 105 sub init_parser {
 106 #    print "init_parser\n";
 107     2;
 108 }