' Last Change By: WM 3/25/09
' Last Change Desc: Removed set date and time commands (never used) and replaced with just one
' for both date & time command.

if document.cookie <> "" then ' only if cookie exists

document.write ("<OBJECT classid=clsid:5220cb21-c88d-11cf-b347-00aa00a28331 VIEWASTEXT id=Microsoft_Licensed_Class_Manager_1_01><param name = 'LPKPath' value = 'Socketx.lpk'></OBJECT>")
document.write ("<OBJECT id='SocketX' classid=clsid:C7212FA0-30E8-11D2-B450-0020AFD69DE6 codebase='Socketx.cab'><param name='SocketType' value='0'></object>")

end if 

const DEMO_NET_NAME = "Demo" ' this is the root name of the Demo raw data string
const DEFAULT_REMOTE_PORT = 1007
const REMOTE_PORT = 1007 ' this for legacy cached pages

const WAITING_FOR_RTS_MSG = "WAITING_FOR_RTS"
const RTS_TIMED_OUT_MSG = "RTS_TIMED_OUT"
const ERROR_LOG_END_MSG = "ERROR_LOG_END"
const EMAIL_MODIFY_OK_MSG = "EMAIL_MODIFY_OK"
const EMAIL_RESERVED_MSG = "EMAIL_RESERVED"
const IC_MODIFY_OK_MSG = "IC_MODIFY_OK"
const IC_RESERVED_MSG = "IC_RESERVED"
const IM_RECEIVED_MSG = "IM_RECEIVED"
const ACK_MSG = "ACK"
const NAK_MSG = "NAK"

const STX = "02"
const ETX = "03"
const EOT = "04"

const RUN_DATA_CMD = "01"
const GET_TOOL_LIST_CMD = "02" 
const OPTION_DATA_CMD = "03"
const RTS_ERROR_LOG_CMD = "04"
const INSTANT_MSG_CMD = "05"

'06,07,08 reserved for special use

const DIAG_DATA_CMD = "10" ' eng use

const APP_ERROR_LOG_CMD = "14" ' eng use

const SET_INFO_CENTER_CMD = "15"
const GET_INFO_CENTER_CMD = "16"
const MODIFY_INFO_CENTER_CMD = "17"
const EXIT_INFO_CENTER_CMD = "18"

const SET_RECIPIENTS_CMD = "20"
const GET_RECIPIENTS_CMD = "21"
const SET_MESSAGES_CMD = "22"
const GET_MESSAGES_CMD = "23"
const MODIFY_EMAIL_CMD = "24"
const EXIT_EMAIL_CMD = "25"

const SET_EMAIL_SETUP_CMD = "26" ' server setup
const GET_EMAIL_SETUP_CMD = "27" 

const UPDATE_FTP_INFO_CMD = "30" ' in case we change host info we can update SP2
const GET_FTP_INFO_CMD = "31" ' to see what they have
const UPDATE_WEB_TOOL_PATH_CMD = "32"
const GET_WEB_TOOL_PATH_CMD = "33"

const UPDATE_BACKUP_PATH_CMD = "34"
const GET_BACKUP_PATH_CMD = "35"
const TEST_NETWORK_DRIVE_CMD = "36"

const REM_SCR_CAP_CMD = "40" ' future use
const REM_SM_SCR_CAP_CMD = "41" ' smaller, therefore faster

const SET_DATE_TIME_CMD = "50" ' sets both time and date on SmartPAC2

const COMMAND_SHELL_CMD = 88 ' strictly for eng use
const COMMIT_RESTART_CMD = 89 ' strictly for eng use

const END_APP_CMD = "99" ' strictly for eng use

dim strLastCmd

Sub SendToSP2(strCmd) ' for convenience
	SocketX.Send (chr(STX) & strCmd & chr(ETX)) 
	strLastCmd = mid(strCmd,1,2)
End Sub

Function strDemoRunData(strDemo)
	Dim strData
	
	Select Case strDemo
	Case DEMO_NET_NAME & "1" ' running medium (ss)
		strData = chr(STX) & "09010,    DemoPress1,1,6160,DEMO TOOL1,4521,78,NO ERROR,1,22303,40000,03/16/03 12:30:01,03/17/03 02:40:50,4,200,25,26,23,22, 0,1,0,0,05DB,0" & chr(ETX)	
	Case DEMO_NET_NAME & "2" ' running slow (ss)
		strData = chr(STX) & "09010,    DemoPress2,1,6170,DEMO TOOL2,5521,29,NO ERROR,0,3223,5000,03/16/03 12:30:01,03/16/03 16:40:00,4,100,15,20,16,14, 0,1,0,0,05DB,0" & chr(ETX)	
	Case DEMO_NET_NAME & "3" ' stopped with error msg (ss)
		strData = chr(STX) & "09010,    DemoPress3,0,6180,DEMO TOOL3,6521,5,High setpoint exceeded on INPUT 2 RIGHT REAR Setpoint of 30.1 Tonnage of 40.6,1,3237,6000,03/14/03 10:30:01,03/14/03 19:40:50,4,150,32,40.6,34,31, 0,1,0,0,05DB,0" & chr(ETX)	
	Case DEMO_NET_NAME & "4" ' running fast (gap)
		strData = chr(STX) & "09011,    DemoPress4,1,6190,DEMO TOOL4,7520,212,NO ERROR,1,4232,7000,03/16/03 12:30:01,03/17/03 02:40:50,4,60,12,12.6,14,11, 0,1,0,0,05DB,0" & chr(ETX)	
	Case DEMO_NET_NAME & "5" ' stopped with no error but brake warning (gap)
		strData = chr(STX) & "09011,    DemoPress5,0,7100,DEMO TOOL5,8522,10,NO ERROR,1,236,0,03/16/03 22:30:01,03/17/03 02:40:50,4,60,0,0.6,0.2,0, 0,1,0,1,05DB,0" & chr(ETX)	
	Case Else ' stopped with no error in program mode (ss)
		strData = chr(STX) & "09010,    DemoPressX,0,8100,DEMO TOOLX,9522,355,NO ERROR,1,5336,0,03/16/03 22:30:01,03/17/03 02:40:50,4,100,0,0.3,0.2,0, 23784,0,0,0,05DB,0" & chr(ETX)	
	End Select

	strDemoRunData = strData

End Function

Function strDemoOptionData

	strDemoOptionData = chr(STX) & "03V0.00 3/03 ,03030001, 1.00,   0,16,16, 5.04,4, 1.49,0,0.00,0.00,0.00,0,0.00,0.00,3.9.7,2.7.0,,03-14-2003 15:21:13,Y,N,N,N,N,N,N,N,N" & chr(3)

End Function

Function strDemoErrorLog
	dim strTemp
	strTemp = "03-14-2003 14:56:03" & vbcrlf & "Demo Error Log Entry" & vbcrlf & vbcrlf
	strTemp = strTemp & "06-05-2003 08:40:48 265       0" & vbcrlf & "     High setpoint exceeded on        INPUT 2 RIGHT REAR" & vbcrlf & "  Setpoint of 30.1 Tonnage of 32.6" & vbcrlf & vbcrlf
	strTemp = strTemp & "06-05-2003 08:40:41 265       0 " & vbcrlf & "     F28 FLYWHEEL STILL TURNING The flywheel was still turning" & vbcrlf & "when the motor was started in opposite direction. " & vbcrlf & vbcrlf
	strTemp = strTemp & "06-05-2003 08:40:38 265       0 " & vbcrlf & "  F46 COUNTER BALANCE PRESSURE IS        OUTSIDE THE LIMITS" & vbcrlf & "Check the cntr. bal. air pressure and make sure it is set within the" & vbcrlf & "limits for the loaded tool number." & vbcrlf & vbcrlf
	strTemp = strTemp & "06-05-2003 08:40:32             " & vbcrlf & " Dipro sensors disabled " & vbcrlf & vbcrlf
	strTemp = strTemp & "06-05-2003 08:40:32             " & vbcrlf & " New tool loaded #    6160" & vbcrlf & vbcrlf
	strTemp = strTemp & "06-05-2003 08:40:11             " & vbcrlf & " Initialization mode entered " & vbcrlf & vbcrlf
	strTemp = strTemp & "06-05-2003 08:40:05 265       0 " & vbcrlf & "  F53 USER INPUT 3: DIE NITROGEN  " & vbcrlf & vbcrlf
	
	strDemoErrorLog = strTemp & "ERROR_LOG_END"

End Function