jungerl/lib/mibs/src Makefile,NONE,1.1 event_mib.erl,NONE,1.1 event_mib.hrl,NONE,1.1 event_mib_cfg.erl,NONE,1.1

[Martin B. <mb...@us...>]

Update of /cvsroot/jungerl/jungerl/lib/mibs/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9730/mibs/src

Added Files:
	Makefile event_mib.erl event_mib.hrl event_mib_cfg.erl 
Log Message:
added mibs application

--- NEW FILE: Makefile ---
MODULES = \
	event_mib \
	event_mib_cfg

ERL_FILES = $(MODULES:%=%.erl)

HRLS =  event_mib.hrl

HRL_FILES = $(HRLS:%=%.hrl)

TARGET_FILES = $(MODULES:%=../ebin/%.beam)

all: $(TARGET_FILES)

../ebin/%.beam: %.erl $(HRLS)
	erlc $(ERLC_FLAGS) -o ../ebin $<

clean:
	rm -f $(TARGET_FILES)

--- NEW FILE: event_mib.hrl ---
-include("../include/DISMAN-EVENT-MIB.hrl").
-include_lib("snmp/include/SNMPv2-TC.hrl").

-define(bit_is_set(Fs, F), (Fs) band F =/= 0).
-define(bit_is_clr(Fs, F), (Fs) band F == 0).
-define(bit_clr(Fs,F), (Fs) band (bnot (F))).
-define(bit_set(Fs,F), (Fs) bor (F)).

-define(existence, 1).
-define(boolean,   2).
-define(threshold, 4).

-define(absoluteValue, 1).
-define(deltaValue, 2).

-record(mteTriggerTable, {
	  key, % {mteOwner, mteTriggerName}
	  comment = "",
	  test = ?boolean,
	  sampleType = ?absoluteValue,
	  valueID = [0,0],
	  valueIDWildcard = ?TruthValue_false,
	  targetTag = "",
	  contextName = "",
	  contextNameWildcard = ?TruthValue_false,
	  frequency = 600,
	  objectsOwner= "",
	  objects = "",
	  enabled = ?TruthValue_false,
	  entryStatus
	 }).  

-define(timeTicks, 1).
-define(timeStamp, 2).
-define(dateAndTime, 3).

-record(mteTriggerDeltaTable, {
	  key, % {mteOwner, mteTriggerName}
	  discontinuityID = ?sysUpTimeInstance,
	  discontinuityIDWildcard = ?TruthValue_false,
	  discontinuityIDType = ?timeTicks
	 }).

-define(present, 1).
-define(absent,  2).
-define(changed, 4).

-record(mteTriggerExistenceTable, {
	  key, % {mteOwner, mteTriggerName}
	  test = ?present bor ?absent,
	  startup = ?present bor ?absent,
	  objectsOwner = "",
	  objects = "",
	  eventOwner = "",
          event = ""
	 }).

-define(unequal, 1).
-define(equal, 2).
-define(less, 3).
-define(lessOrEqual, 4).
-define(greater, 5).
-define(greaterOrEqual, 6).

-record(mteTriggerBooleanTable, {
	  key, % {mteOwner, mteTriggerName}
	  comparison = ?unequal,
	  value = 0,
	  startup = ?TruthValue_true,
	  objectsOwner = "",
	  objects = "",
	  eventOwner = "",
	  event = ""
	 }).

-define(rising, 1).
-define(falling, 2).
-define(risingOrFalling, 3).

-record(mteTriggerThresholdTable, {
	  key, % {mteOwner, mteTriggerName}
	  startup = ?risingOrFalling,
	  rising = 0,
	  falling = 0,
	  deltaRising = 0,
	  deltaFalling = 0,
	  objectsOwner = "",
	  objects = "",
	  risingEventOwner = "",
	  risingEvent = "",
	  fallingEventOwner = "",
	  fallingEvent = "",
	  deltaRisingEventOwner = "",
	  deltaRisingEvent = "",
	  deltaFallingEventOwner = "",
	  deltaFallingEvent = ""
	 }).

-record(mteObjectsTable, {
	  key, % {mteOwner, mteObjectsName, mteObjectsIndex},
	  iD = [0,0],
	  iDWildcard = ?TruthValue_false,
	  entryStatus
	 }).

-define(notification, 1).
-define(set,          2).

-record(mteEventTable, {
	  key, % {mteOwner, mteEventName}
	  comment = "",
	  actions = 0,
	  enabled = ?TruthValue_false,
	  entryStatus
	 }).

-record(mteEventNotificationTable, {
	  key, % {mteOwner, mteEventName}
	  notification = [0,0],
	  objectsOwner = "",
	  objects = ""
	 }).

-record(mteEventSetTable, {
	  key, % {mteOwner, mteEventName}
	  object = [0,0],
	  objectWildcard = ?TruthValue_false,
	  value = 0,
	  targetTag = "",
	  contextName = "",
	  contextNameWildcard = ?TruthValue_false
	 }).

-record(mteVariables, {
	  name,
	  val
	 }).

--- NEW FILE: event_mib.erl ---
%%%-------------------------------------------------------------------
%%% File    : event_mib.erl
%%% Created : 12 May 2004 by  <mb...@bl...>
%%%
%%% I'm using edoc with two changes: No html tags and no @hidden.
%%% It clutters down the code.  This makes it work fine with fdoc/distel :)
%%%
%%% @author Martin Björklund <mb...@bl...>
%%% @reference  <a href="http://www.ietf.org/rfc/rfc2981.txt">rfc2981</a>
%%% @version 1.0
%%% @doc Implements DISMAN-EVENT-MIB (rfc2981).
%%%
%%% The configuration data is persistently stored in mnesia.
%%% The caller can choose to use local_content to have all
%%% configuration per node, instead of globally in the cluster.
%%% Statistics is kept per host.  Events are triggered per
%%% host, since they very well can sample host specific data.
%%% If they sample cluster global data, all hosts will trigger
%%% the same event.
[...1069 lines suppressed...]
			    no_receiver, Objs).
-else.
maybe_send_fail_notification(_Reason, _Key, _Instance) ->
    ok.
-endif.

prefix([H|T1], [H|T2]) ->
    prefix(T1, T2);
prefix([], T) ->
    {true, T};
prefix(_, _) ->
    false.

op2str(?unequal)        -> "/=";
op2str(?equal)          -> "==";
op2str(?less)           -> "<";
op2str(?lessOrEqual)    -> "=<";
op2str(?greater)        -> ">";
op2str(?greaterOrEqual) -> ">=";
op2str(_)               -> "?".

--- NEW FILE: event_mib_cfg.erl ---
(This appears to be a binary file; contents omitted.)