Summary

How to get an overview (containing the process name, node daemon and process status) of my processes registered with the Orbix 6.3 locator in my Orbix domain

Environment

Orbix 6.3, All supported OS

Question/Problem Description

In certain cases it is useful to get a more detailed overview of all registered processes  in an Orbix domain.

Clarifying Information

The itadmin process list utility can be used to list all processes in an Orbix domain, and itadmin process show <process-name> can be used to display all attributes of the specified process.

itadmin process list -help
    usage: process list [-count] [-node_daemon <node_daemon_name>] [-active]
    -c[ount]        Total process count.
    -n[ode_daemon]  List active processes for the specified activator.
    -a[ctive]       List all active processes.

Resolution

In certain circumstances it is helpful to have a more detailed overview of the processes than the one returned by itadmin process list. If an overview containing e.g. the process name, the node daemon monitoring the process, and the status of the process is required this can be achieved by writing acustom TCL script to be run with itadmin.

The following TCL script will print the above details. Save the script below into a file called processes.tcl and run itadmin processes.tcl

# get the list of all processes registered with the Orbix locator
set processes [process list]

puts "\\n"
puts "----------------------------------------------------------------------"
puts "   PROCESS NAME : MONITORED BY DAEMON : ACTIVE"
puts "----------------------------------------------------------------------"

# for each process in the list
foreach p $processes {

    # get all process attributes
    set process_details [process show $p]

    # split the lines of the process attributes
    set lines [split $process_details "\\n"]
    
    # for each line
    foreach line  $lines {
        # get the active status details
        if { [string first "Active: " $line] != -1 } {
            set active [join [lrange [split $line] 1 end]]
        }    
        #get the node daemon details
        if { [string first "Usually Monitored By: " $line] != -1 } {
        
            set daemon [join [lrange [split $line] 3 end]]
            
            # print details
            puts "$p : $daemon : $active"
        }
    }
}
puts "----------------------------------------------------------------------"

Support Incidents

2881501