Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

		public function downloadFirmware(param1:Host = null) : void
		{
			if(param1 == null)
			{
				param1 = this.smile;
			}
			if(!param1.connected)
			{
				trace("SmileModel downloadFirmware NO HOST CONNECTION");
				return;
			}
			var _loc_4:getString = resourceManager.getString("resources", "Downloading_firmware_update_for_the_Smile...");
			this.activityText = _loc_4;
			this.errorText = _loc_4;
			this.plugwiseService.headers = {AUTHORIZATION:param1.basicAuthorizationString(), x-connection-override:"close"};
			this.plugwiseService.url = param1.hostURL(param1.port, "update/firmware");
			this.plugwiseService.resultFormat = "e4x";
			this.plugwiseService.contentType = "application/xml";
			this.plugwiseService.method = "POST";
			this.plugwiseService.requestTimeout = 0;
			var _loc_2:XML = new XML("<upgrade>\r\n\t\t\t\t\t\t\t\t\t\t<state>downloading</state>\r\n\t\t\t\t\t\t\t\t\t</upgrade>");
			var _loc_3:AsyncToken = sendHttpService(this.plugwiseService, _loc_2);
			_loc_3.action = "downloadFirmware";
		}

		public function installFirmware(param1:Host = null) : void
		{
			if(param1 == null)
			{
				param1 = this.smile;
			}
			if(!param1.connected)
			{
				trace("SmileModel installFirmware NO HOST CONNECTION");
				return;
			}
			var _loc_4:getString = resourceManager.getString("resources", "Installing_firmware_update_for_the_Smile...");
			this.activityText = _loc_4;
			this.errorText = _loc_4;
			this.plugwiseService.headers = {AUTHORIZATION:param1.basicAuthorizationString(), x-connection-override:"close"};
			this.plugwiseService.url = param1.hostURL(param1.port, "update/firmware");
			this.plugwiseService.resultFormat = "e4x";
			this.plugwiseService.contentType = "application/xml";
			this.plugwiseService.method = "POST";
			this.plugwiseService.requestTimeout = 0;
			var _loc_2:XML = new XML("<upgrade>\r\n\t\t\t\t\t\t\t\t\t\t<state>installing</state>\r\n\t\t\t\t\t\t\t\t\t</upgrade>");
			var _loc_3:AsyncToken = sendHttpService(this.plugwiseService, _loc_2);
			_loc_3.action = "installFirmware";
		}

Code: Select all

; Stretch 2.0 setup
Global $StretchIp = "192.168.1.101" ;The IP adres of the Stretch 2.0, like: 192.168.1.X
Global $StretchId = "abcdfghj" ;The 8 letters of the Stretch 2.0 ID

; Kernel
Global $PostAdres = "http://" & $StretchIp & "/update/firmware"

Global $PostGegevens = "<upgrade>\r\n\t\t\t\t\t\t\t\t\t\t<state>downloading</state>\r\n\t\t\t\t\t\t\t\t\t</upgrade>"

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("POST", $PostAdres, False)
$oHTTP.SetRequestHeader("Connection", "Close")
$oHTTP.SetRequestHeader("Content-Type", "application/xml")
$oHTTP.SetRequestHeader("Host", $StretchIp)
$oHTTP.SetRequestHeader("Authorization", "Basic " & _Base64Encode("stretch:" & $StretchId))
$oHTTP.Send(Linux2WinString($PostGegevens))
Global $PostResponse = $oHTTP.ResponseText

If $oHTTP.Status <> "200" Then
    MsgBox(64, "Error", $PostResponse)
Else
    MsgBox(64, "Done!", $PostResponse)
EndIf
Exit

Func _Base64Encode($sData)
    Local $oXml = ObjCreate("Msxml2.DOMDocument")
    If Not IsObj($oXml) Then
        SetError(1, 1, 0)
    EndIf

    Local $oElement = $oXml.createElement("b64")
    If Not IsObj($oElement) Then
        SetError(2, 2, 0)
    EndIf

    $oElement.dataType = "bin.base64"
    $oElement.nodeTypedValue = Binary($sData)
    Local $sReturn = $oElement.Text

    If StringLen($sReturn) = 0 Then
        SetError(3, 3, 0)
    EndIf

    Return $sReturn
EndFunc

Func Linux2WinString($data)
$data = StringReplace($data, "\r", @CR)   ; \r carriage return
$data = StringReplace($data, "\n", @CRLF) ; \n new line
$data = StringReplace($data, "\t", @TAB)  ; \t horizontal tab
Return $data
EndFunc

Code: Select all

; Stretch 2.0 setup
Global $StretchIp = "192.168.1.101" ;The IP adres of the Stretch 2.0, like: 192.168.1.X
Global $StretchId = "abcdfghj" ;The 8 letters of the Stretch 2.0 ID

; Kernel
Global $PostAdres = "http://" & $StretchIp & "/update/firmware"

Global $PostGegevens = "<upgrade>\r\n\t\t\t\t\t\t\t\t\t\t<state>installing</state>\r\n\t\t\t\t\t\t\t\t\t</upgrade>"

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("POST", $PostAdres, False)
$oHTTP.SetRequestHeader("Connection", "Close")
$oHTTP.SetRequestHeader("Content-Type", "application/xml")
$oHTTP.SetRequestHeader("Host", $StretchIp)
$oHTTP.SetRequestHeader("Authorization", "Basic " & _Base64Encode("stretch:" & $StretchId))
$oHTTP.Send(Linux2WinString($PostGegevens))
Global $PostResponse = $oHTTP.ResponseText

If $oHTTP.Status <> "200" Then
    MsgBox(64, "Error", $PostResponse)
Else
    MsgBox(64, "Done!", $PostResponse)
EndIf
Exit

Func _Base64Encode($sData)
    Local $oXml = ObjCreate("Msxml2.DOMDocument")
    If Not IsObj($oXml) Then
        SetError(1, 1, 0)
    EndIf

    Local $oElement = $oXml.createElement("b64")
    If Not IsObj($oElement) Then
        SetError(2, 2, 0)
    EndIf

    $oElement.dataType = "bin.base64"
    $oElement.nodeTypedValue = Binary($sData)
    Local $sReturn = $oElement.Text

    If StringLen($sReturn) = 0 Then
        SetError(3, 3, 0)
    EndIf

    Return $sReturn
EndFunc

Func Linux2WinString($data)
$data = StringReplace($data, "\r", @CR)   ; \r carriage return
$data = StringReplace($data, "\n", @CRLF) ; \n new line
$data = StringReplace($data, "\t", @TAB)  ; \t horizontal tab
Return $data
EndFunc