Class User.main Extends %CSP.Page
{

/// Глобал в котором хронится информация о запущенном процессе
Parameter gl = "^mtempJobList";

ClassMethod OnPage() As %Status
{
    #dim %request as  %CSP.Request
    
    /// Получаем IP подключаемого клиента
    set i=$zu(111,0)
    set ip=$a(i,1)_"."_$a(i,2)_"."_$a(i,3)_"."_$a(i,4)
    
    /// Читаем команду из тела POST запроса
    s cmd=""
    if $isobject(%request.Content){
       for {
          quit:%request.Content.AtEnd
          set cmd=cmd_%request.Content.Read(32000)
       }
    }
    
    
    set initJob=0 // признак инициализации нового процесса
    
    // если процесс от клиента с IP адресом запущен, тогда работаем с ним (иначе инициализируем порвый JOB )
    if $data(@..#gl(ip)){
       set jobLoop=@..#gl(ip)
       if '$d(^$job(jobLoop)){ // Если процесса нет, тогда инициируем новый процесс
           kill ^SPOOL(jobLoop)
           kill @..#gl(ip)
          set initJob=1
       }
    }else{
	   set initJob=1   
    }
    
    

    
    if initJob=0 {    
        // получиь ID ранее запущеного процесса 
        set jobLoop=@..#gl(ip)
        // Запрос на закрытие процесса (Очистка процесса)
        if %request.Get("disconnect","")'=""{ 
           kill ^SPOOL(jobLoop)
           kill @..#gl(ip)
           do $zu(4,jobLoop) // принудительно закрываем процесс
           quit 1
        }
        
        // сообщение на выполнение
        if %request.Get("message","")'="",cmd'=""{ 
            
            // Вариант 1 : Записываем в глобал команду, а внутри процесса ожидаем появление команды. При появлении глобала, 
            // выполняем команду и очищаем глобал внутри работающего процесса
            // Все это работает, но присутствует ожидание в 1 секунду. это долго, хотелось бы  получить результат сразу.
            ; s @..#gl(ip,"message")=cmd
            
            // Вариант 2 : Запускаем команду сразу же в запросе, но при этом
            // нет подключения к работающему процессу,
            // а следовательно нет доступа к инициированным объектам(Такой вариант не подходит)  
              open 2:(jobLoop)
              use 2:(jobLoop)
              try{ x cmd }CATCH { } 
              close 2:(jobLoop)
              open 0
            
            // Вариант 3 : ???????????????????????????????????????????
            // ?????? Подключится к jobLoop и выполнить команду ??????
            // ???????????????????????????????????????????????????????   
              
        }
        
        // отправить ответ
        set ind=""
        for {
           set ind=$order(^SPOOL(jobLoop,ind))
           quit:ind=""
           continue:ind=2147483647
           write ^SPOOL(jobLoop,ind)
           kill ^SPOOL(jobLoop,ind)
        }
   }
    if initJob=1{
	   // запуск процесса 
       if cmd'=""{ /* авторизация */   }
       job ..loop(ip)
       write $zchild
       set @..#gl(ip)=$zchild
    }
    Quit $$$OK
}

/// Класс метод работает в паралельном потоке
/// Связь с потоком производится через глобал ^mtempJobList
ClassMethod loop(ip)
{
    kill ^SPOOL($job)
    open 2:($job)
    use 2:($job)
    for {
	    use 2:($job) // Переключаем вывод в ^SPOOL
        quit:'$data(@..#gl@(ip)) // Если глобал удалили , тогда закрываем процесс 
       
        // если есть сообщение для  запущеного процесса, тогда выполняем его
        set cmd=""
        if $data(@..#gl@(ip,"message")){
           set cmd=@..#gl@(ip,"message")
           kill @..#gl@(ip,"message")         ; удаляем сообщение на выполнение
           try{ x cmd }CATCH { /* err */ } ; Выполнить команду
        }
    
        h 1 // пауза в 1 секунду    
    }
    close 2:($job)
    kill @..#gl(ip)
}

}

            // Вариант 1 : Записываем в глобал команду, а внутри процесса ожидаем появление команды. При появлении глобала, 
            // выполняем команду и очищаем глобал внутри работающего процесса
            // Все это работает, но присутствует ожидание в 1 секунду. это долго, хотелось бы  получить результат сразу.
            ; s @..#gl(ip,"message")=cmd