[Sguil-cvs] sguil/server/lib SguildConnect.tcl,1.19,1.20

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

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

Modified Files:
	SguildConnect.tcl 
Log Message:
Added tls::handshake during AgentVersionCheck to fix unregistering agents bug. -- tks VictorJ


Index: SguildConnect.tcl
===================================================================
RCS file: /cvsroot/sguil/sguil/server/lib/SguildConnect.tcl,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** SguildConnect.tcl	25 Mar 2007 14:31:45 -0000	1.19
--- SguildConnect.tcl	6 Sep 2007 19:17:14 -0000	1.20
***************
*** 56,59 ****
--- 56,61 ----
          close $socketID
          ClientExitClose socketID
+     } else {
+         puts "DEBUG #### results for $socketID ==> $results"
      }
  
***************
*** 103,107 ****
--- 105,117 ----
          catch {close $socketID}
          CleanUpDisconnectedAgent $socketID
+         return
      }
+ 
+     if { [catch {tls::handshake $socketID} results] } {
+         LogMessage "ERROR: $results"
+         close $socketID
+         ClientExitClose socketID
+     } 
+ 
    }