%srv  ; Code based on the MiniM ^%srv protocol and ported to Cache
 w "Cache TCP server ^%srv.",!
 n port,dev
 s port=$g(^%SRV("port"),5001)
 s dev="|TCP|"_port 
 o dev::1 e  d  q
 . d log("Server ^%srv is already running.")
 c dev
 j sdmn::1 e  d  q
 . d log("Failed to run ^%srv server.")
 d log("Cache TCP server ^%srv has been run.")
 q
 ....
....

//**** Ajax Function ZNamespace Cache'
function ZN( zname ) {
      //var adrip = document.getElementById("ipnr").value
      var callback = function(req){
      var zncode = req.responseText;
      console.log(zncode);
      //document.getElementById('zn').innerHTML =  "Your work Namespace is: " + zncode;
      document.getElementById('znmsp').value = zncode
   };
    AJAX( "GET", "/cache/znamespace/user/" + zname, null, callback );
}

ZN ;;Compilation tools WinBuilder company "ELTRANSSOFT" :[20.10.2016 07:51:09]
   ;; Copyright 2016, 2018 Valeriu Gontia
 s cmd=$p(%fcgi("i","header","DOCUMENT_URI"),"/",4)
 s nms=$p(%fcgi("i","header","DOCUMENT_URI"),"/",5) 
 s ^goncmd($h)=cmd
 i cmd="webZV" d ZVersion q
 i cmd="user" d cmdZN(nms) q
 ;;
cmdZN(input)
 ;;
 n $es n $et s $et="g:'$es errXE"
 ZNSPACE input
 s %fcgi("o","stdout")=$ZNSPACE_$c(13,10)
 s %fcgi("o","header","Content-Type")="text/plain"
 q
 ;;  
errXE
 s err=$ze,$ec="" 
 s ^errXE($h)=err
 q
 ;;