[ViewVC] Diff of: i-scream/projects/cms/source/host/winhost/nettest.frm

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.25 by pjm2, Wed Feb 28 08:19:00 2001 UTC vs.
Revision 1.27 by pjm2, Wed Feb 28 09:18:26 2001 UTC

#	Line 4 \| Line 4 \| Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0
4		Begin VB.Form Form1
5		BorderStyle = 3 'Fixed Dialog
6		Caption = "i-scream Winhost"
7	<	ClientHeight = 1275
7	>	ClientHeight = 1185
8		ClientLeft = 45
9		ClientTop = 330
10		ClientWidth = 4710
#	Line 12 \| Line 12 \| Begin VB.Form Form1
12		LinkTopic = "Form1"
13		MaxButton = 0 'False
14		MinButton = 0 'False
15	<	ScaleHeight = 1275
15	>	ScaleHeight = 1185
16		ScaleWidth = 4710
17		ShowInTaskbar = 0 'False
18		StartUpPosition = 2 'CenterScreen
19		Visible = 0 'False
20	+	Begin VB.CommandButton Command1
21	+	Caption = "more"
22	+	Height = 255
23	+	Left = 3960
24	+	TabIndex = 8
25	+	Top = 840
26	+	Width = 615
27	+	End
28	+	Begin VB.TextBox Text1
29	+	Height = 2055
30	+	Left = 120
31	+	Locked = -1 'True
32	+	MultiLine = -1 'True
33	+	ScrollBars = 2 'Vertical
34	+	TabIndex = 7
35	+	Top = 1200
36	+	Width = 4455
37	+	End
38		Begin VB.CommandButton Hide
39	<	Caption = "Hide Window"
40	<	Height = 375
41	<	Left = 3120
39	>	Caption = "hide"
40	>	Height = 255
41	>	Left = 3960
42		TabIndex = 6
43		Top = 480
44	<	Width = 1455
44	>	Width = 615
45		End
46		Begin SysTray.SystemTray SystemTray
47	<	Left = 2160
48	<	Top = 1800
47	>	Left = 2520
48	>	Top = 4200
49		_ExtentX = 847
50		_ExtentY = 847
51		SysTrayText = "i-scream Winhost"
52		IconFile = 0
53		End
54		Begin VB.Timer Timer1
55	<	Left = 2760
56	<	Top = 1800
55	>	Left = 3120
56	>	Top = 4200
57		End
58		Begin VB.CommandButton Reconfigure
59		Caption = "Reconfigure with FilterManager"
60		Height = 375
61	<	Left = 120
61	>	Left = 840
62		TabIndex = 0
63	<	Top = 480
63	>	Top = 3480
64		Width = 2895
65		End
66		Begin MSWinsockLib.Winsock TCPSock
67	<	Left = 3720
68	<	Top = 1800
67	>	Left = 4080
68	>	Top = 4200
69		_ExtentX = 741
70		_ExtentY = 741
71		_Version = 393216
72		End
73		Begin MSWinsockLib.Winsock UDPSock
74	<	Left = 3240
75	<	Top = 1800
74	>	Left = 3600
75	>	Top = 4200
76		_ExtentX = 741
77		_ExtentY = 741
78		_Version = 393216
#	Line 64 \| Line 82 \| Begin VB.Form Form1
82		Alignment = 1 'Right Justify
83		Caption = "Next heartbeat:"
84		Height = 255
85	<	Left = 2400
85	>	Left = 120
86		TabIndex = 5
87	<	Top = 120
87	>	Top = 480
88		Width = 1455
89		End
90		Begin VB.Label Label1
#	Line 82 \| Line 100 \| Begin VB.Form Form1
100		BorderStyle = 1 'Fixed Single
101		Caption = "0"
102		Height = 255
103	<	Left = 3960
103	>	Left = 1680
104		TabIndex = 3
105	<	Top = 120
105	>	Top = 480
106		Width = 615
107		End
108		Begin VB.Label Label3
#	Line 102 \| Line 120 \| Begin VB.Form Form1
120		Height = 255
121		Left = 0
122		TabIndex = 1
123	<	Top = 960
124	<	Width = 4695
123	>	Top = 840
124	>	Width = 3855
125		End
126		End
127		Attribute VB_Name = "Form1"
#	Line 136 \| Line 154 \| Dim connected As Boolean
154		Dim CUpTime As New CUpTime
155		Dim wksta As New CNetWksta
156
157	+	Dim windowBig As Boolean
158	+
159		Dim responseNumber As Integer
160
161	+	Private Sub Command1_Click()
162	+
163	+	' Toggle visibility of the debug output.
164	+
165	+	If windowBig Then
166	+	Form1.Height = 1500
167	+	windowBig = False
168	+	Else
169	+	Form1.Height = 4350
170	+	windowBig = True
171	+	End If
172	+
173	+	End Sub
174	+
175		Private Sub Form_Load()
176
177		If App.PrevInstance Then
#	Line 157 \| Line 191 \| Private Sub Form_Load()
191		End
192		End If
193
194	+	windowBig = False
195	+
196		''''TEMP
197		'filterManagerHostname = "killigrew.ukc.ac.uk"
198		'filterManagerTCPPort = 4567
#	Line 256 \| Line 292 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
292		Case 1:
293		If Not response = "OK" Then GoTo configError
294		TCPSock.SendData "LASTMODIFIED" & vbCrLf
295	+	Text1.Text = "Requesting configuration from FilterManager:- " & vbCrLf
296	+	Text1.Text = Text1.Text & response & vbCrLf
297		Case 2:
298		If response = "ERROR" Then GoTo configError
299		lastModified = response
300	+	Text1.Text = Text1.Text & response & vbCrLf
301		TCPSock.SendData "FILELIST" & vbCrLf
302	+	''' Uncomment this for new protocol release.
303	+	'Case 2a:
304	+	'If response = "ERROR" Then GoTo configError
305	+	'fileList = response
306	+	'Text1.Text = Text1.Text & response & vbCrLf
307	+	'TCPSock.SendData "FQDN" & vbCrLf
308		Case 3:
309		If response = "ERROR" Then GoTo configError
310		fileList = response
311	+	Text1.Text = Text1.Text & response & vbCrLf
312	+	' REMOVE above line, uncomment next
313	+	'machineName = response
314		TCPSock.SendData "UDPUpdateTime" & vbCrLf
315		Case 4:
316		If response = "ERROR" Then GoTo configError
317		UDPUpdateTime = response
318	+	Text1.Text = Text1.Text & response & vbCrLf
319		TCPSock.SendData "TCPUpdateTime" & vbCrLf
320		Case 5:
321		If response = "ERROR" Then GoTo configError
322		TCPUpdateTime = response
323	+	Text1.Text = Text1.Text & response & vbCrLf
324		TCPSock.SendData "ENDCONFIG" & vbCrLf
325		Case 6:
326		If Not response = "OK" Then GoTo configError
327	+	Text1.Text = Text1.Text & response & vbCrLf
328		TCPSock.SendData "FILTER" & vbCrLf
329		Case 7:
330	+	Text1.Text = Text1.Text & response & vbCrLf
331		'we got a filter list here.
332		readTo = 0
333		' get hostname
#	Line 294 \| Line 346 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
346		connected = True
347		responseNumber = 0
348		TCPSock.Close
349	+	Text1.Text = Text1.Text & response & vbCrLf
350		'Text4.Text = Text4.Text & vbCrLf & " <closed>"
351		Status.Caption = "Configuration successful"
352		Label3.Caption = UDPUpdateTime
#	Line 306 \| Line 359 \| Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
359		Select Case responseNumber
360		Case 1:
361		If Not response = "OK" Then GoTo heartbeatError
362	+	Text1.Text = "Performing heartbeat: -" & vbCrLf
363	+	Text1.Text = Text1.Text & response & vbCrLf
364		TCPSock.SendData "CONFIG" & vbCrLf
365		Case 2:
366		If Not response = "OK" Then GoTo heartbeatError
367	+	Text1.Text = Text1.Text & response & vbCrLf
368		TCPSock.SendData fileList & vbCrLf
369		Case 3:
370		If Not response = "OK" Then GoTo heartbeatError
371	+	Text1.Text = Text1.Text & response & vbCrLf
372		TCPSock.SendData lastModified & vbCrLf
373		Case 4:
374		If Not response = "OK" Then GoTo heartbeatError
375	+	Text1.Text = Text1.Text & response & vbCrLf
376		TCPSock.SendData "ENDHEARTBEAT" & vbCrLf
377		Case 5:
378		If Not response = "OK" Then GoTo heartbeatError
379	+	Text1.Text = Text1.Text & response & vbCrLf
380		TCPSock.Close
381		Status.Caption = "Heartbeat sent successfully."
382		End Select
#	Line 346 \| Line 405 \| Private Sub Timer1_Timer()
405
406		' prepare the contents of the XML packet.
407		seqNo = seqNo + 1
408	+
409	+	' Comment this line in the next protocol
410		machineName = TCPSock.LocalHostName
411	+
412		LocalIP = TCPSock.LocalIP
413		packetDate = Date2Num()
414
#	Line 414 \| Line 476 \| Private Sub Timer1_Timer()
476		"<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
477		"<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _
478		"</packet>"
479	<	'Text4.Text = Text4.Text + xml
479	>	Text1.Text = "Last packet contained: -" & vbCrLf & xml
480
481		' Use the first winsock control to send a UDP packet.
482		UDPSock.RemoteHost = filterHostname

Diff Legend

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

Comparing projects/cms/source/host/winhost/nettest.frm (file contents): Revision 1.25 by pjm2, Wed Feb 28 08:19:00 2001 UTC vs. Revision 1.27 by pjm2, Wed Feb 28 09:18:26 2001 UTC

Diff Legend

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.25 by pjm2, Wed Feb 28 08:19:00 2001 UTC vs.
Revision 1.27 by pjm2, Wed Feb 28 09:18:26 2001 UTC