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.