%RO Routine Output Utility
GT.M 29-FEB-2024 15:37:17
W1CMDSET
W1CMDSET(CMD,SSH) ; [ 29.02.24 15:28 ] [ 31.01.24 06:43 ] [ 30.01.24 21:11 ] 
 N (JB,%ARG,%REM,CMD,SSH)
 I '$G(JB) S JB=$$^%W1SsID("W1CMDSET")
 ;
 I $L($G(SSH)) S SSH=$$FUNC^%LCASE(SSH)
 D GL
 S GLTMP=$$^W4MAIN("TMP")
 S GLSET="^|$$^W3MAIN|W1CMDSET(+$H)"
 ;
 K @GLSET,@GLTMP
 ;
 S $ZT="G ER^W1CMDSET"
 S N=1
 ;
CYC G:N<1 ENDCYC S N=$O(@GL@(N)) G:N<1 ENDCYC D SNDSET(CMD)
 G CYC
ENDCYC ;
 K @GLTMP
 S $ZT="",N=""
 Q
 ;
 ;
SNDSET(CMD) ;
 ;
 I N<1 S N="" Q
 D GL
 S A=$G(@GL@(N,1))
 S IND=$P(A,"\",7) Q:IND=""
 ;
 S REF=$P(A,"\",2) Q:REF=""  Q:REF'["/w4main.jsp"
 I $L($G(SSH)),IND'[("ssh2"_SSH) Q
 S PAIL=$P(A,"\",4) Q:'PAIL
 S REF=$P(REF,"/",1,$L(REF,"/")-1)_"/w1cmdset.jsp"
 U 0 W !,N_" "_IND
 S FLOU="/home/www2order/w1cmdset"
 C FLOU:(DELETE)
 S CMD=$$CLWEB^%L1FRM(CMD)
 S CMD="curl -s -m 15 -k -d'CMD="_CMD_"' '"_REF_"' -o "_FLOU
 ;
 ZSY CMD
 ;
 I $ZSY U 0 W " -- $ZSY="_$ZSY,! Q
 I '$$EXIST^%L1ZOS(FLOU) U 0 W " -- FLOU NOT EXIST",! Q
 ;
 C FLOU
 ;
 O FLOU:(REWIND:READONLY)
 S OU="",SH=0,END=0
 ;
 N OK S OK=1
 F  U FLOU R ST Q:$ZEOF  D  Q:END
 .;;U 0 W ST,!
 .I ST["<body" D
 ..F  U FLOU R OU Q:$ZEOF  D  Q:END
 ...I OU["</body>"!(OU["</html>") S END=1 Q
 ...I OU["rror " S OK=0
 I 'OK S ^|$$^W3MAIN|W1CMDSET(+$H,"NOK",PROG,N)=IND
 ;
 C FLOU:(DELETE)
 Q
 ;
 ;
ER ;
 U 0 W N_": "_$ZS,!
 S ^|$$^W3MAIN|W1CMDSET(+$H,"ER",N)=$ZS_"\"_$G(IND)
 G CYC
 ;
 ;
GL ; 
 S GL="^|"""_$$^W3MAIN_"""|NEWCSR1"
 Q
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 



