GET
 n compile
 s p="zlinc"
 s e="Errors"
 ;zsy "2>/tmp/COMPILERR.stderr"
 o p:(shell="/bin/bash":command="2>/tmp/zlink.err")::"pipe"
 ;s file="gl.m"
 ;o p:(shell="/bin/sh":comm="cat")::"PIPE"
 ;s compile="zl """_file_"""" 
 ;U TCPIO x compile
 ;u p ZL file
 zl file
 ;w "Cito za h.. ???",!
 ; r x
 ;w /eof f  r x q:$zeof  u p w x,!
 ;s %fcgi("o","stdout",i)=x_$C(13,10)
 ;u p i x="" s in="During compilation, the error is not detected in routine : "_$zd_file
 s %fcgi("o","stdout")=in_$C(13,10)
 s %fcgi("o","header","Content-Type")="text/plain"
 ;c TCPIO 
 q   
 ;

FCGIZL ;;Compilation tools WinBuilder company "ELTRANSSOFT" :[26.10.2016 15:50:00]
 ;;
 ; Selectam routin
 n $zt s $zt=$$ztx()
 s rou=$P(%fcgi("i","header","DOCUMENT_URI"),"/",4)
 s file=$$FUNC^%TRIM(rou)
 s:$E(file)="%" $E(file)="_"
 i %fcgi("i","header","REQUEST_METHOD")="GET" d GET q
 i %fcgi("i","header","REQUEST_METHOD")="PUT" d PUT q
 q
PUT ;
 o file:(newversion)
 u file w %fcgi("i","stdin")
 u 0 c file
 q 
 ;
GET 
 s p="zlink" 
 s e="Errors" 
 o p:(shell="/bin/bash":command="mumps "_file_"":STDERR=e)::"pipe" 
 s io=$i
 ;÷òåíèå îøèáîê
 s out=""
 f  u e   r tstderr  q:$zeof   u io  s out=out_tstderr
 ;÷òåíèå îáû÷íîãî âûâîäà  
 f  u p   r terr  q:$zeof   u io  w "T#######"_t,!
 c p
 s %fcgi("o","stdout")=out_$C(13,10)
 s %fcgi("o","header","Content-Type")="text/plain"
 q
 ;
zt()
 i $zv["GT.M" q "g Error^FCGIZL"
 q "Error^FCGIZL"
 ;
Error
 s %fcgi("o","stdout")=%fcgi("o","stdout")_" <script type=""text/javascript"">"_$c(13,10)
 s $et="",$ec="",$zt=""
 s output=$zs
 s $zs=0
 s %fcgi("o","stdout")=%fcgi("o","stdout")_" alert ("""_output_""")"_$c(13,10)
 s %fcgi("o","stdout")=%fcgi("o","stdout")_" </script>"_$c(13,10)
 d out(%fcgi("o","stdout"))
 q

###############
%fcgi("i","header",$C(0,0)_"гHTTP_COO")="KIESID=64217703691,3; __utma=14483063.753646529.1469952638.1474649849.1474781382.33; __utmz=14483063.1469952638.1.1.utmcsr=(dire"
%fcgi("i","header",")|utmccn=(direct)|utmcmd=(none); SID=64217703691,3; submenuMark-0=opened")=""
%fcgi("i","header","DOCUMENT_URI")="/gt.m/zl/  gl.m"
%fcgi("i","header","HTTP_ACCEPT")="*/*"
%fcgi("i","header","HTTP_ACCEPT_ENCODING")="gzip, deflate, sdch"
%fcgi("i","header","HTTP_ACCEPT_LANGUAGE")="ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
%fcgi("i","header","HTTP_CONNECTION")="keep-alive"
%fcgi("i","header","HTTP_HOST")="192.168.1.111:8082"
%fcgi("i","header","HTTP_REFERER")=" http://192.168.1.111:8082/MENUJS.m" 
%fcgi("i","header","HTTP_USER_AGENT")="Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/54.0.2840.71 Safari/537.36"
%fcgi("i","header","QUERY_STRING")=""
%fcgi("i","header","REMOTE_ADDR")="192.168.1.104"
%fcgi("i","header","REQUEST_METHOD")="GET"
%fcgi("i","header","SID")="64217703691,3"
%fcgi("o","header","Content-Type")="text/plain"
%fcgi("o","header","Set-Cookie")="SID=64217703691,4"
%fcgi("o","stdout")=$C(9)_"    q  X t w "" ;"_$C(9)_"                ^-----"_$C(9,9)_"At column 17, line 20, source module /usr/gtm63A/gl.m%GTM-E-SPOREOL, Either a space or an end-of-line was expected but not found"_$C(13,10)

GETT 
 s in=""
 w "VAR***"_var 
 ;   set p="something" o p:(command="cat")::"PIPE"
 ;   u p
 ;   ; NOW ZWRITE and ZWRITE what You want
 ;   w $$ENCODE^FCGIJSON(var)
 ;   ; Now leave Code as it is!!!!
 ;   u p w /EOF s %fcgi("o","stdout")=""
 ;   u p f i=1:1 r in q:$ZEOF  s %fcgi("o","stdout")=%fcgi("o","stdout")_in_$C(10)
 ;   u 0 c p zwr  w $L(%fcgi("o","stdout")),!
 ;   q  ;
 ; ***************
 s in=""
 s p="Files"
 s e="Errors"
 o p:(command="cat 2>/tmp/zwr.err":stderr=e)::"pipe"
 ;o p:(command="cat":stderr=e)::"pipe"
 u p
 ;u e
 x "zwr "_var
 w /eof
 f i=0:1 r record q:$zeof  d
 . s in=in_record_$C(13,10)
 s %fcgi("o","stdout")=in
 s %fcgi("o","header","Content-Type")="text/plain"
 ;c e
 c p 
 q  ;

GET ;
 s in="",Ret="" 
 s nod="",in=""
 f i=1:1:1000 s var=$Q(@var) q:var=""  d
 . s nod(i)=var_"="_@var
 s n=-1
 s ind="" f i=0:1 s ind=$o(nod(ind)) q:ind=""  d
 . s n=n+1 s dummy(n)=nod(ind)
 . s in=in_dummy(n)_$c(13,10)
 s %fcgi("o","stdout")=in
 s %fcgi("o","header","Content-Type")="text/plain"
 q
 ;