# # 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