Welcome, guest | Sign In | My Account | Store | Cart

Display current status of application server.

Tcl, 16 lines
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
#  (C) Copyright IBM Corporation, 2000
#  All rights reserved. Licensed Materials Property of IBM 
#  Note to US Government users: Documentation related to restricted rights
#  Use, duplication or disclosure is subject to restrictions set forth 
#  in GSA ADP Schedule with IBM Corp. 
#  This page may contain other proprietary notices and copyright information, 
#  the terms of which must be observed and followed. 

proc showServerStatus {} {
	puts "\nStatus of servers in the domain:\n"
          foreach ejbserver [ApplicationServer list] {
          set serverInfo($ejbserver) [ApplicationServer show $ejbserver -attribute {Name CurrentState}]
          puts $serverInfo($ejbserver)
	
	}
}

Called by top level WSCP scipts to display confirmation of app server start/stop scripts.

Created by Patrick Finnegan on Tue, 1 Oct 2002 (MIT)
Tcl recipes (162)
Patrick Finnegan's recipes (10)

Required Modules

  • (none specified)

Other Information and Tasks