[Sguil-cvs] sguil/client sguil.tk,1.107,1.108

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

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

Modified Files:
	sguil.tk 
Log Message:
Fixed multiple disconnect messages bug.


Index: sguil.tk
===================================================================
RCS file: /cvsroot/sguil/sguil/client/sguil.tk,v
retrieving revision 1.107
retrieving revision 1.108
diff -C2 -d -r1.107 -r1.108
*** sguil.tk	26 May 2004 18:25:12 -0000	1.107
--- sguil.tk	26 May 2004 22:16:57 -0000	1.108
***************
*** 83,87 ****
  
  proc ServerCommandRcvd { socketID } {
!   global DEBUG EMAIL_RESULTS CONNECTED GLOBAL_QRY_LIST 
      # REPORT_QRY_LIST
  
--- 83,87 ----
  
  proc ServerCommandRcvd { socketID } {
!   global DEBUG EMAIL_RESULTS CONNECTED GLOBAL_QRY_LIST
      # REPORT_QRY_LIST
  
***************
*** 89,92 ****
--- 89,93 ----
      #Close the socket and exit
      catch {close $socketID} tmpError
+     set CONNECTED 0
      if { [info exists errorCheck] } {
        ErrorMessage "Lost connection to sguild.\nERROR: $errorCheck\nTrying to reconnect."
***************
*** 94,98 ****
        ErrorMessage "Connection to sguild terminated. Trying to reconnect."
      }
-     set CONNECTED 0
      ReconnectToSguild
    } else {
--- 95,98 ----