From 52140da6cf766ce65a12e6de529f5eafdde0b91a Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Mon, 6 Dec 2010 18:30:40 +0100
Subject: Added central utility function for printing all "supported" tables
 (that is for all functions that we currently have implemented the print
 operation).

---
 lib/snmp/src/agent/snmpa.erl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'lib/snmp/src/agent/snmpa.erl')

diff --git a/lib/snmp/src/agent/snmpa.erl b/lib/snmp/src/agent/snmpa.erl
index 87b191caed..ce208d870b 100644
--- a/lib/snmp/src/agent/snmpa.erl
+++ b/lib/snmp/src/agent/snmpa.erl
@@ -105,6 +105,8 @@
 	 set_request_limit/1, set_request_limit/2
 	]).
 
+-export([print_tables/0, print_tables/1]).
+
 -include("snmpa_atl.hrl").
 
 -define(EXTRA_INFO, undefined).
@@ -281,6 +283,26 @@ whereis_mib(Agent, Mib) when is_atom(Mib) ->
     snmpa_agent:whereis_mib(Agent, Mib).
 
 
+%% -
+
+print_tables() ->
+    Tables = [
+	      {snmp_view_based_acm_mib, [vacmAccessTable, 
+					 vacmSecurityToGroupTable, 
+					 vacmViewTreeFamilyTable]},
+	      {snmp_target_mib, [snmpTargetAddrTable, snmpTargetParamsTable]}
+	     ],
+    print_tables(Tables).
+
+print_tables([]) ->
+    ok;
+print_tables([{Mod, Tables}|MibTables]) ->
+    [(catch Mod:Table(print)) || Table <- Tables],
+    print_tables(MibTables);
+print_tables([_|MibTables]) ->
+    print_tables(MibTables).
+
+
 %% -
 
 mib_of(Oid) ->
-- 
cgit v1.2.3