SNMP编程

开发平台：

Unix_Linux

Format.pm：源码内容

							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 typen"; '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_namesn";
    # XXX: get mib column names
    2;
}
sub seek_first_record {
#    print "seek_firstn";
    my $self = shift;
    my $var = [$self->{'mibnode'}];
    $self->{'session'}->getnext($var);
    2;
}
sub get_pos {
#    print "get_posn";
    2;
}
sub go_pos {
#    print "go_posn";
    2;
}
sub delete_record {
#    print "del_recn";
    2;
}
sub get_record {
#    print "get_recordn";
    2;
}
sub push_row {
#    print "push_rown";
    2;
}
sub truncate {
#    print "truncaten";
    2;
}
sub close_table {
#    print "close_tablen";
    2;
}
sub drop {
#    print "dropn";
    2;
}
sub seek {
#    print "seekn";
    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_datan";
    2;
}
sub init_parser {
#    print "init_parsern";
    2;
}

						