ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/host/winhost/nettest.frm
(Generate patch)

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.32 by pjm2, Thu Mar 1 09:30:55 2001 UTC vs.
Revision 1.34 by pjm2, Wed Mar 14 11:03:45 2001 UTC

# Line 154 | Line 154 | Dim TCPUpdateTime As Integer
154  
155   Dim protocolVersion As String
156   Dim connected As Boolean
157 + Dim heartBeating As Boolean
158  
159   Dim CUpTime As New CUpTime
160   Dim wksta As New CNetWksta
# Line 249 | Line 250 | Private Sub Hide_Click()
250      SystemTray.Icon = Val(Form1.Icon)
251   End Sub
252  
252 – Private Sub Image1_Click()
253  
254 – End Sub
255 –
254   Private Sub Reconfigure_Click()
255      ' establish a TCP connection to a filtermanager
256 <    connected = False
257 <    TCPSock.Close
258 <    TCPSock.Connect filterManagerHostname, filterManagerTCPPort
256 >    If Not heartBeating Then
257 >        connected = False
258 >        TCPSock.Close
259 >        TCPSock.Connect filterManagerHostname, filterManagerTCPPort
260 >    Else
261 >        Status.Caption = "Cannot reconfigure while heartbeating"
262 >    End If
263   End Sub
264  
265  
# Line 363 | Line 365 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
365          End Select
366      Else
367          ' Perform a heartbeat (1.1)
368 +        heartBeating = True
369          On Error GoTo heartbeatError
370          Select Case responseNumber
371              Case 1:
# Line 379 | Line 382 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
382                  Text1.Text = Text1.Text & response & vbCrLf
383                  TCPSock.SendData lastModified & vbCrLf
384              Case 4:
385 <                If Not response = "OK" Then GoTo heartbeatError
385 >                If Not response = "OK" Then
386 >                    heartBeating = False
387 >                    Reconfigure_Click
388 >                End If
389                  Text1.Text = Text1.Text & response & vbCrLf
390                  TCPSock.SendData "ENDHEARTBEAT" & vbCrLf
391              Case 5:
# Line 395 | Line 401 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
401      Exit Sub
402      
403   configError:
404 <    Status.Caption = "FAILED to get configuration"
404 >    heartBeating = False
405 >    Status.Caption = "FAILED to get configuration from the server"
406      Exit Sub
407   heartbeatError:
408 +    heartBeating = False
409      Status.Caption = "Heatbeat FAILED"
410      Exit Sub
411   End Sub
# Line 466 | Line 474 | Private Sub Timer1_Timer()
474          cpu_time = CUpTime.CPUTime
475          percent_idle = CUpTime.PercentIdle
476          
469 –        '' Causes numbers to be too big :-/
470 –        'uptime = CUpTime.MilliSecs \ 1000
471 –        
477          '' Doesn't work after 47 days :-/
478          'uptime = GetTickCount \ 1000
479          
480 <        secondsRunning = secondsRunning + UDPUpdateTime
481 <        uptime = secondsRunning
480 >        'secondsRunning = secondsRunning + UDPUpdateTime
481 >        'uptime = secondsRunning
482 >        
483 >        uptime = CUpTime.MilliSecs / 1000#
484          
485          userCount = wksta.LoggedOnUsers
486          

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines