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.30 by pjm2, Wed Feb 28 11:59:54 2001 UTC vs.
Revision 1.35 by pjm2, Mon Mar 19 09:35:56 2001 UTC

# Line 139 | Line 139 | Dim filterManagerTCPPort As Long
139   Dim seqNo As Long
140   Dim machineName As String
141  
142 + Dim secondsRunning As Long
143 +
144   Dim filterHostname As String
145   Dim filterTCPPort As Integer
146   Dim filterUDPPort As Integer
147   Dim fileList As String
148   Dim lastModified As String
149  
150 + Dim fourtySevenDays As Integer
151 +
152   Dim UDPUpdateTime As Integer
153   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 179 | Line 184 | Private Sub Form_Load()
184          End
185      End If
186      
187 +    ' Assume the host is run within the first 47 days of the machine starting.
188 +    fourtySevenDays = 0
189 +    
190      protocolVersion = "1.1"
191      
192      Status.Caption = "Loading"
# Line 242 | Line 250 | Private Sub Hide_Click()
250      SystemTray.Icon = Val(Form1.Icon)
251   End Sub
252  
245 Private Sub Image1_Click()
253  
247 End Sub
248
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 356 | 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 372 | 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 388 | 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 407 | Line 422 | Private Sub Timer1_Timer()
422          ' prepare the contents of the XML packet.
423          seqNo = seqNo + 1
424          
425 <        ' Comment this line in the next protocol
411 <        'machineName = TCPSock.LocalHostName
425 >        netbiosName = TCPSock.LocalHostName
426          
427          LocalIP = TCPSock.LocalIP
428          packetDate = Date2Num()
# Line 456 | Line 470 | Private Sub Timer1_Timer()
470          memory& = memsts.dwAvailVirtual
471          swapFree = memory& \ 1048576
472          
459        uptime = CUpTime.MilliSecs \ 1000
460        
473          CUpTime.Capture
474          cpu_time = CUpTime.CPUTime
475          percent_idle = CUpTime.PercentIdle
476          
477 +        '' Doesn't work after 47 days :-/
478 +        'uptime = GetTickCount \ 1000
479 +        
480 +        'secondsRunning = secondsRunning + UDPUpdateTime
481 +        'uptime = secondsRunning
482 +        
483 +        uptime = CUpTime.MilliSecs / 1000#
484 +        
485          userCount = wksta.LoggedOnUsers
486          
487          ' build the contents of the XML packet
488          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
489                "<os>" & _
490 +                "<netbios_name>" & netbiosName & "</netbios_name>" & _
491                  "<name>" & osName & "</name>" & _
492 <                "<version>" & osVersionMajor & "</version>" & _
492 >                "<version>" & osVersionMajor & "." & osVersionMinor & "</version>" & _
493                  "<release>" & osBuild & "</release>" & _
494                  "<platform>" & osName & "</platform>" & _
495 <                "<minor_version>" & osVersionMinor & "</minor_version>" & _
475 <                "<processor>" & processorType & "</processor>" & _
495 >                "<architecture>" & processorType & "</architecture>" & _
496                  "<uptime>" & uptime & "</uptime>" & _
497                "</os>" & _
498                "<users><count>" & userCount & "</count></users>" & _

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines