← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/net-snmp/gutsy-security

« back to all changes in this revision

Viewing changes to perl/AnyData_SNMP/Format.pm

  • Committer: Bazaar Package Importer
  • Author(s): Martin Pitt
  • Date: 2004-09-13 12:06:21 UTC
  • Revision ID: james.westby@ubuntu.com-20040913120621-g952ntonlleihcvm
Tags: upstream-5.1.1
Import upstream version 5.1.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
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
}