[Sguil-cvs] sguil/sensor sensor_agent.tcl,1.18,1.19

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

Update of /cvsroot/sguil/sguil/sensor
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30933/sensor

Modified Files:
	sensor_agent.tcl 
Log Message:
Fixed CONNECT bug in non-DEBUG mode.


Index: sensor_agent.tcl
===================================================================
RCS file: /cvsroot/sguil/sguil/sensor/sensor_agent.tcl,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** sensor_agent.tcl	14 Jun 2004 21:21:27 -0000	1.18
--- sensor_agent.tcl	15 Jun 2004 18:22:40 -0000	1.19
***************
*** 248,252 ****
    set CONNECTED 1
    if {$DEBUG} {puts "Connected to $SERVER_HOST"}
!   if {$DEBUG} {puts $sguildSocketID "CONNECT $HOSTNAME"}
    flush $sguildSocketID
  }
--- 248,252 ----
    set CONNECTED 1
    if {$DEBUG} {puts "Connected to $SERVER_HOST"}
!   puts $sguildSocketID "CONNECT $HOSTNAME"
    flush $sguildSocketID
  }