@@ -701,7 +701,7 @@ Method Update(version) As %Status
701
701
set httprequest = ##class (%Net.HttpRequest ).%New ()
702
702
set httprequest .Server = " intersystems-ru.github.io"
703
703
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-"
705
705
_ version _ " .xml " )
706
706
do httprequest .Get (" /webterminal/files/WebTerminal-" _ version _ " .xml" )
707
707
if (httprequest .HttpResponse .StatusCode '= 200 ) {
@@ -712,35 +712,10 @@ Method Update(version) As %Status
712
712
do ..SendData ($C (27 )_" [32mOK" _ $C (27 ) _ " [0m" )
713
713
if ($isobject (httprequest .HttpResponse .Data )) {
714
714
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
- )
722
715
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 ))
744
719
quit $$$NOTOK
745
720
}
746
721
}
0 commit comments