Index by: file name |
procedure name |
procedure call |
annotation
stopApplicationProc_proc.tcl
(annotations | original source)
####################################################################
# Stop Enterprise Application
###################################################################
proc stopEnterpriseApp { appServer app } {
puts "\n Stopping $app on $appServer \n"
set cell [ $AdminConfig showAttribute [ $AdminConfig list Cell ] name ]
set node [ $AdminConfig showAttribute [ $AdminConfig list Node ] name ]
set applicationManager [ $AdminControl queryNames cell=$cell, \
node=$node, \
type=ApplicationManager, \
process=$appServer
]
if { [ catch { $AdminControl invoke $appManager startApplication $app } r ] ==0 } {
puts "\n Stopped $app on $appServer \n"
return $r
} else {
puts "\n Error stopping $app on $appServer \n"
return -code error $r
}
}
#set cell [ $AdminConfig showAttribute [ $AdminConfig getid /Cell:[exec hostname]]]
#set node [ $AdminConfig showAttribute [ $AdminConfig getid /Node:[exec hostname]]]
#
#set node [ $AdminConfig showAttribute [ $AdminConfig getid /Node:[exec hostname]] name]
#
#[ $AdminConfig getid /Node:[exec hostname]]
#[ $AdminConfig showAttribute [ $AdminConfig getid /node:$nodeName/ ] name
#hbf0035
Index by: file name |
procedure name |
procedure call |
annotation
File generated 2007-08-07 at 13:42.