1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
#!@@PERL@@ @@PERLOPTS@@
# snmp-get - a simple way to test if you've configured communities correctly
# without having to fetch and build a large SNMP package.
# $Id: snmp-get.pl,v 1.11 2002/08/19 18:43:06 remstats Exp $
# from remstats @@VERSION@@
# Copyright 1999, 2000, 2001, 2002 (c) Thomas Erskine <@@AUTHOR@@>
# See the COPYRIGHT file with the distribution.
# - - - Configuration - - -
use strict;
# What is this program called, for file-names and error-messages
$main::prog = 'snmp-get';
# Where is the default configuration dir
$main::config_dir = '@@CONFIGDIR@@';
# - - - Version History - - -
$main::version = (split(' ', '$Revision: 1.11 $'))[1];
# - - - Setup - - -
use lib '.', '@@LIBDIR@@', '@@RRDLIBDIR@@';
require "remstats.pl";
require "snmpstuff.pl";
my %opt = ();
my ($community, $realrrd, $host, $oid, $wildrrd, $comhost, $value, $port, $rrdport);
use Getopt::Std;
getopts('c:d:f:hr:', \%opt);
if (defined $opt{'h'}) { &usage; } # no return
if (defined $opt{'c'}) { $community = $opt{'c'}; }
if (defined $opt{'d'}) { $main::debug = $opt{'d'}; } else { $main::debug = 0; }
if (defined $opt{'f'}) { $main::config_dir = $opt{'d'}; }
if (defined $opt{'p'}) { $port = $opt{'p'}; }
if (defined $opt{'r'}) { $realrrd = $opt{'r'}; }
unless (defined $community or defined $realrrd) { &usage; } # no return
if (defined $community and defined $realrrd) { &usage; } # no return
&read_config_dir($main::config_dir, 'general', 'html', 'oids', 'times',
'rrds', 'groups', 'host-templates', 'hosts');
if (@ARGV != 2) { &usage; } # no return
($host, $oid) = @ARGV;
&snmp_load_oids();
# - - - Mainline - - -
my $ip = &get_ip( $host);
if (defined $realrrd) {
if ($realrrd =~ /^(.+-)\*?$/) {
$wildrrd = $realrrd;
}
else {
($wildrrd) = &get_rrd($realrrd);
}
$comhost = &get_comhost( $host, $realrrd, $wildrrd, $ip);
print "comhost='$comhost' from rrd=$wildrrd\n";
}
elsif (defined $community) {
if( defined $ip) { $comhost = $community . '@' . $ip; }
else { $comhost = $community .'@'. $host; }
print "comhost='$comhost'\n";
}
else { &usage; } # no return
if (defined $port) {
if ($comhost =~ /^([^:]+):(.*)$/) {
$comhost = $1;
$rrdport = $2;
warn "$main::prog: overriding rrd-specified port ($rrdport) with $port\n";
}
$comhost .= ':'. $port;
}
($value) = &snmpget( $comhost, $oid);
if (defined $value) { print "$oid = $value\n"; }
else { print "$oid: oid unknown, incorrect community, or host unknown/down/unreachable\n"; }
exit 0;
#---------------------------------------------------------------- usage ---
sub usage {
print STDERR <<"EOD_USAGE";
$main::prog version $main::version from remstats @@VERSION@@
usage: $main::prog [options] {-c ccc | -r rrr} host oid
where options are:
-d ddd set debugging output to level 'ddd'
-h show this help
-f fff use 'fff' for config-dir [$main::config_dir]
-p ppp use port 'ppp' instead of the usual port
required args are only one of:
-c ccc use 'ccc' as SNMP community-string
-r rrr get SNMP community-string from RRD 'rrr'
- 'host' is the host to query
- 'oid' is the Object ID to return the value of, either fully numeric or
as defined in the 'oids' config-file
EOD_USAGE
exit 0;
}
#---------------------------------------------------------------- debug ---
sub debug {
print STDERR 'DEBUG: ', @_, "\n";
}
#---------------------------------------------------------------- error ---
sub error {
print STDERR 'ERROR: ', @_, "\n";
}
#---------------------------------------------------------------- abort ---
sub abort {
print STDERR 'ABORT: ', @_, "\n";
exit 6;
}
|
