next »

[Stefan S.]

Hello,

If Programs running in container Mode I can check if there are running childs of the container before stopping the Parent-Program
(IF ui.Interface.getChildCount()>0 THEN    …)

That’s OK and works fine.

Is the a way to check the same, without running the Program in Container-Mode ?

In our case the user has first to Close all Programs before closing our Menu-Program.

(We don’t want to check running processes on the Server-Side or set those Information in a database table)

Thanks in Advance.

Kind regards


Stefan Serwe

[Anderson P.]

Interesting question... I have two similar cases, in one of them i need to check if the program is already running, because users must only run one instance of the program. In the other case, i run multiple instances of a program for performance propose (each instance connect to one of multiple servers to run some querys) and i need to control the amount of instances to avoid a overload.

In both cases i check the processes on the server side using the "ps -ef" Linux command, but will be better to have a built-in command to check this.

[Lionel F.]

Hi Stefan, Hi Anderson,

Since each process is independent, there is no easy solution and there is no existing frontcall achieving this on the client side.

The only suggestion I have is to add a popup menu when closing your menu application for asking user to check that other programs are correctly closed and that he really wants to quit.

Best regards,
Lionel 

[Anderson P.]

Well, in that case i will leave my contribution with the function we use here to count running instances of a given program, using a Linux command...

You basically do a ps -ef and grep the program name, read the response and discard lines with the program name that don't actually indicate that the program is running. Replace <program name> with the name of the program you want to count.

Code

private function count()
 
    define l_command    string
    define l_line       string
    define ch           base.Channel
    define l_count      smallint
    define l_aux        string
 
    let l_count = 0
    let ch = base.Channel.create()
 
    let l_command = 'ps -ef | grep <program name>'
 
    call ch.openPipe(l_command, "r")
 
    while ch.read(l_line)
 
        if   l_line.getIndexOf("gsproxy-bin",1) > 0 or
             l_line.getIndexOf(l_aux,1) > 0 or
             l_line.getIndexOf("sh -c ps -ef",1) > 0 or
             l_line.getIndexOf("grep <program name>",1) > 0
          then
             continue while
        end if
 
        let l_count = l_count + 1
 
    end while
 
    call ch.close()
 
    return l_count
 
end function