####################################################################
# Stop the Server.
####################################################################

namespace eval stopServer {

    proc stopServer { serverName } {

       global AdminConfig 
       global AdminControl

       set procName [ lindex [ info level 0 ] 0 ]

       putsLog "## proc - $procName"

       foreach i [ info args $procName ]  {

	  upvar 0 $i ilocal

	  set propertiesArray($i) $ilocal 

       }

       putsLog "procedure arguments are................."

       foreach { a b } [ array get propertiesArray ] {

	   putsLog [ format "%-35s %s" "$a" "$b" ]

       }

       if { [ catch { $AdminConfig getid /Server:$serverName/ } r ] == 0 } {
	       
	       set serverId $r 
	       
       } else {
	   
	   putsLog "ERROR: $serverName does not exist"
	   
	   return -code error $r 
	   
       }

       # check if the server is running.  

       foreach i [ $AdminControl queryNames type=Server,* ] {

	   lappend serverList [ $AdminControl getAttribute $i name ] 

       }
	  
       #foreach i [ $AdminControl queryNames type=Server,node=$nodeName,* ] {

       #    lappend serverList [ $AdminControl getAttribute $i name ] 

       #}

       putsLog "running servers.............."

       foreach i $serverList { putsLog [ format "%-5s %-s" " " $i ] }

       # check if the server is running.  

       if { [ lsearch $serverList $serverName ] == -1 } {

	   putsLog "$serverName exists but is already stopped."

       } else {


	   if { [ catch { $AdminControl stopServer $serverName } r ] == 0 } {

	       putsLog "[ string range $r [ string first WAS $r ] end ]"  

	   } else {

	       putsLog "[ string range $r [ string first WAS $r ] end ]"   
	       putsLog "$r"  
	       return -code error $r

	   }

       }

    }

}