[Sguil-cvs] sguil/server/lib SguildEvent.tcl,1.10,1.11

[Bamm V. <ba...@us...>]

Update of /cvsroot/sguil/sguil/server/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10521/lib

Modified Files:
	SguildEvent.tcl 
Log Message:
Added priority as a filter for emailing events.


Index: SguildEvent.tcl
===================================================================
RCS file: /cvsroot/sguil/sguil/server/lib/SguildEvent.tcl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** SguildEvent.tcl	15 Sep 2005 20:05:44 -0000	1.10
--- SguildEvent.tcl	27 Sep 2005 18:15:12 -0000	1.11
***************
*** 5,10 ****
  #
  proc EventRcvd { eventDataList } {
!   global EMAIL_EVENTS EMAIL_CLASSES EMAIL_DISABLE_SIDS EMAIL_ENABLE_SIDS eventIDCountArray
!   global acRules acCat correlatedEventArray eventIDList correlatedEventIDArray
  
    if { [lindex $eventDataList 2] == "system-info" } {
--- 5,10 ----
  #
  proc EventRcvd { eventDataList } {
!   global EMAIL_EVENTS EMAIL_CLASSES EMAIL_DISABLE_SIDS EMAIL_ENABLE_SIDS EMAIL_PRIORITIES
!   global eventIDCountArray acRules acCat correlatedEventArray eventIDList correlatedEventIDArray
  
    if { [lindex $eventDataList 2] == "system-info" } {
***************
*** 30,35 ****
            set sid [lindex $eventDataList 13]
            set class [lindex $eventDataList 2]
            if { ([lsearch -exact $EMAIL_CLASSES $class] >= 0\
!                && [lsearch -exact $EMAIL_DISABLE_SIDS $sid] < 0)
                 || [lsearch -exact $EMAIL_ENABLE_SIDS $sid] >= 0 } {
              EmailEvent $eventDataList
--- 30,38 ----
            set sid [lindex $eventDataList 13]
            set class [lindex $eventDataList 2]
+           set priority [lindex $eventDataList 1]
            if { ([lsearch -exact $EMAIL_CLASSES $class] >= 0\
!                && [lsearch -exact $EMAIL_DISABLE_SIDS $sid] < 0)\
!                || ([lsearch -exact $EMAIL_PRIORITIES $priority] >= 0\
!                && [lsearch -exact $EMAIL_DISABLE_SIDS $sid] < 0)\
                 || [lsearch -exact $EMAIL_ENABLE_SIDS $sid] >= 0 } {
              EmailEvent $eventDataList