Get site and host name in tcl

[Usman Azher]

Is there a way to access the host, site, process, and thread names in a TCL script? I have a script that shuts down a thread after failing to send a message after 10 retries. It then sends an e-mail to our group. I would like to incorporate the names in the subject of the e-mail.

Topic

[Michael Hertel]

proc cis_optum_bdpqi_fix { args } {

   keylget args MODE mode

   global HciSite HciConnName

   set procname [lindex [info level [info level]] 0]

   set module “$HciSite/$HciConnName/$procname: “

   set dispList {}

   switch -exact — $mode {

       start {

[Usman Azher]

Thank you. I was able to get the site and thread name. Is there a way to get the host name as well? The reason I ask is that we have two cloverleaf servers.

[Michael Hertel]

When I get an alert from one of my engines, I look at who sent me the email.

CLOVERLEAF Interface Engine – PPCF <hci@ppcf.internal.vmmc.org>

or

CLOVERLEAF Interface Engine – PPCG <hci@ppcg.internal.vmmc.org>

But you should be able to get the hostname

echo $env(HOST)

[Charlie Bursell]

All of your environment names are available in Tcl via the global array env like:

set host $::env(HOSTNAME), etc.

You get process name easy.    set process [file tail [pwd]]  since the engine always runs in the process directory

[Max Drown (Infor)]

global HciRoot HciRootDir HciMasterSite HciMasterSiteDir HciSite HciSiteDir

-- Max Drown (Infor)

[Charlie Bursell]

He also wanted host name.  You can get all from the environment

[David Barr]

$::env(HOSTNAME) works. You can also use [info hostname].

[Author]

Replies