@@ -701,7 +701,7 @@ Method Update(version) As %Status
701701 set httprequest = ##class (%Net.HttpRequest ).%New ()
702702 set httprequest .Server = " intersystems-ru.github.io"
703703 do ..SendData (" 34" , ..ConstClientOutputLocalized )
704- do ..SendData (" http://intersystems-ru.github.io/webterminal/files/WebTerminal-"
704+ do ..SendData (" http://intersystems-ru.github.io/webterminal/files/WebTerminal-"
705705 _ version _ " .xml " )
706706 do httprequest .Get (" /webterminal/files/WebTerminal-" _ version _ " .xml" )
707707 if (httprequest .HttpResponse .StatusCode '= 200 ) {
@@ -712,35 +712,10 @@ Method Update(version) As %Status
712712 do ..SendData ($C (27 )_" [32mOK" _ $C (27 ) _ " [0m" )
713713 if ($isobject (httprequest .HttpResponse .Data )) {
714714 do ..SendData ($C (13 ,10 ))
715- set data = " "
716- set path = ##class (%Library.File ).SubDirectoryName (
717- ##class (%Library.File ).ManagerDirectory (), " temp"
718- )
719- set filepath = ##class (%Library.File ).SubDirectoryName (
720- path , " terminal_update.temp.xml"
721- )
722715 do ..SendData (" 35" , ..ConstClientOutputLocalized )
723- do ..SendData ($C (13 , 10 ))
724- set file = ##class (%File ).%New (filepath )
725- do file .Open (" W" )
726- do file .CopyFrom (httprequest .HttpResponse .Data )
727- do file .Close ()
728- do ..SendData (" 36" , ..ConstClientOutputLocalized )
729- do ..SendData ($C (13 , 10 ))
730- set error = 0
731- do ..StartClearIO ()
732- do $System .OBJ .ImportDir (path , " terminal_update.temp.xml" , " ckbud" , .error , 1 )
733- do ..EndClearIO ()
734- if (error = 0 ) {
735- do ..SendData ($C (27 )_" [32mOK" _ $C (27 ) _ " [0m" _ $C (13 ,10 ))
736- } else {
737- do ..SendData ($C (27 )_" [31mFAIL" _ $C (27 ) _ " [0m" _ $C (13 ,10 ))
738- }
739- do ..SendData (" 37" , ..ConstClientOutputLocalized )
740- if (##class (%Library.File ).Delete (filepath ) = 1 ) {
741- do ..SendData ($C (27 )_" [32mOK" _ $C (27 ) _ " [0m" _ $C (13 ,10 ))
742- } else {
743- do ..SendData ($C (27 )_" [31mFAIL" _ $C (27 ) _ " [0m" _ $C (13 ,10 ))
716+ do $system .OBJ .LoadStream (httprequest .HttpResponse .Data ," " ,.error ,.items )
717+ if (error ) {
718+ do ..SendData ($C (27 )_" [31mFAILED" _ $C (27 ) _ " [0m" _ $C (13 ,10 ))
744719 quit $$$NOTOK
745720 }
746721 }
0 commit comments