#
# showServerStatus - a procedure for displaying the value of the
# Name and CurrentState attribute of all application servers 
# in a domain.
#

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