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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
#!/usr/bin/perl
# MIB WRITER -- takes a description of a table (or a sequence thereof) in the
# following format and turns it into an SNMP MIB
# -- Lines beginning with -- are comments
# -- Fields are tab-delimited
# -- All fields can be double-quote-delimited, entering "" means the field is empty, and will default to whatever its default is, if it has one
# tablename "description, can be double-quote-delimited" parentObject tableOID indexField1[,indexField2,...indexFieldN] max-access status
# -- since I'm expecting these tables to come from PostgreSQL, I'll make this script translate pg_class into pgClass, for instance
# -- max-access and status default to "not-accessible" and "current" if not supplied
# fieldName1 fieldType1 "description1" OID1 max-access1 status1
# fieldName2 fieldType2 "description2" OID2 max-access2 status2
# fieldName3 fieldType3 "description3" OID3 max-access3 status3
# ...
# fieldNameN fieldTypeN "descriptionN" OIDN max-accessN statusN
# -- max-access defaults to read-only; status defaults as for a table. OID defaults to the next avaliable OID starting with 1
#
# -- multiple tables may be defined at once, if separated by a blank line
# The definition file should be piped into this script as STDIN
use strict;
my $tableDef = 1;
my $lineNum = 0;
my ($finalTableName, $tableName, $tableDesc, $rowDesc, $tableParent, $tableOID, $tableIndexList, $tableMaxAccess, $tableStatus);
my ($fieldName, $fieldType, $fieldDesc, $fieldOID, $fieldMaxAccess, $fieldStatus);
my @fields;
sub printTable {
# Convert _[a-z] to [A-Z], remove all underscores that are left somehow, and
# capitalize the first letter
my $entryType = "pgsql".$tableName."Entry";
my $singleEntryType = "Pgsql".$tableName."Entry";
# TODO : Should pgsql<name>MaxAccess and status be the same as the table's entries?
print <<EOF
$finalTableName OBJECT-TYPE
SYNTAX SEQUENCE OF $entryType
MAX-ACCESS $tableMaxAccess
STATUS $tableStatus
DESCRIPTION
"$tableDesc"
::= { $tableParent $tableOID }
$entryType OBJECT-TYPE
SYNTAX $singleEntryType
MAX-ACCESS $tableMaxAccess
STATUS $tableStatus
DESCRIPTION
"$rowDesc"
INDEX { $tableIndexList }
::= { $finalTableName 1 }
$singleEntryType ::=
SEQUENCE {
EOF
;
my $tmp = 0;
foreach my $i (@fields) {
print "\t\t". $i->{NAME}. "\t\t". $i->{TYPE};
if ($tmp == $#fields) { print "\n"; }
else { print ",\n"; }
$tmp++;
}
print "\t}\n\n";
$tmp = 1;
foreach my $i (@fields) {
my ($fname, $fma, $fsyn, $fstat, $fdesc, $foid) =
($i->{NAME}, $i->{MA}, $i->{TYPE}, $i->{STATUS}, $i->{DESC}, $i->{OID});
print <<EOF2
$fname OBJECT-TYPE
SYNTAX $fsyn
MAX-ACCESS $fma
STATUS $fstat
DESCRIPTION
"$fdesc"
::= { $entryType $foid }
EOF2
;
}
print "\n---------------------------------------\n";
}
while (<STDIN>) {
chomp;
$lineNum++;
if (/^$/) {
&printTable if ($tableName ne "");
$tableDef = 1;
undef $tableName;
undef @fields;
next;
}
if (/^\s*--/) { print $_."\n"; next; }
if ($tableDef) {
die "Invalid table definition at line $lineNum\n"
if (!m/^"?([^"\t]+)"?\t"?([^"\t]+)"?\t"?([^"\t]+)"?\t"?([^"\t]+)"?\t"?([^"\t]+)"?(\t"?([^"\t]+)"?)?(\t"?([^"\t]+)"?)?/);
($tableName, $tableDesc, $rowDesc, $tableParent, $tableOID, $tableIndexList, $tableMaxAccess, $tableStatus) =
($1, $2, $3, $4, $5, $7, $9, $11);
while ($tableName =~ /_(\w)/) {
my $tmp = uc $1;
$tableName =~ s/_$1/$tmp/;
}
$tableName =~ s/_//g;
$tableName =~ /^(\w)/;
my $tmp = uc $1;
$tableName =~ s/^\w/$tmp/;
$finalTableName = "pgsql".$tableName."Table";
$tableMaxAccess = "not-accessible" if ($tableMaxAccess eq "");
$tableStatus = "current" if ($tableStatus eq "");
$tableDef = 0;
$tmp = 'pgsql' . $tableName . 'EntryOID';
$tableIndexList =~ s/entryOID/$tmp/;
next;
}
die "Invalid field definition at line $lineNum\n"
if (!m/^"?([^"\t]+)"?\t"?([^"\t]+)"?\t"?([^"\t]+)"?(\t"?([^"\t]+)"?)?(\t"?([^"\t]+)"?)?(\t"?([^"\t]+)"?)?/);
($fieldName, $fieldType, $fieldDesc, $fieldOID, $fieldMaxAccess, $fieldStatus) =
($1, $2, $3, $5, $7, $9);
$fieldMaxAccess = "read-only" if ($fieldMaxAccess eq "");
$fieldStatus = "current" if ($fieldStatus eq "");
if ($fieldOID eq "") {
$fieldOID = $#fields + 2 if ($fieldOID eq "");
if ($fieldOID < 1) {
$fieldOID = 1;
}
}
while ($fieldName =~ /_(\w)/) {
my $tmp = uc $1;
$fieldName =~ s/_$1/$tmp/;
}
$fieldName =~ /^(\w)/;
my $tmp = "pgsql" . $tableName . uc $1;
$fieldName =~ s/^\w/$tmp/;
push @fields,
{
NAME => $fieldName,
TYPE => $fieldType,
DESC => $fieldDesc,
OID => $fieldOID,
MA => $fieldMaxAccess,
STATUS => $fieldStatus
};
}
&printTable if ($tableName ne "");
|
