[Sguil-cvs] sguil/server/lib SguildSendComms.tcl,1.5,1.6

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

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

Modified Files:
	SguildSendComms.tcl 
Log Message:
SendEvent{} was using wrong index for sid in eventDataList.


Index: SguildSendComms.tcl
===================================================================
RCS file: /cvsroot/sguil/sguil/server/lib/SguildSendComms.tcl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** SguildSendComms.tcl	8 Mar 2007 05:45:06 -0000	1.5
--- SguildSendComms.tcl	8 Mar 2007 15:38:38 -0000	1.6
***************
*** 22,26 ****
  proc SendEvent { eventDataList } {
    global clientMonitorSockets sidNetNameMap
!   set sensorID [lindex $eventDataList 1]
    set netName $sidNetNameMap($sensorID)
    if { [info exists clientMonitorSockets($netName)] } {
--- 22,27 ----
  proc SendEvent { eventDataList } {
    global clientMonitorSockets sidNetNameMap
! 
!   set sensorID [lindex $eventDataList 5]
    set netName $sidNetNameMap($sensorID)
    if { [info exists clientMonitorSockets($netName)] } {