####################################################################
# start the Server.
####################################################################

namespace eval startServer {

    proc startServer { 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 
	   
       }

       regexp {(.*nodes\/)(.*)(\/servers.*)} $serverId a b c d  

       set nodeId [ $AdminConfig getid /Node:$c/ ]

       # check if the server is running.  

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

	   lappend serverList [ $AdminControl getAttribute $i name ] 

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

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

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

	   putsLog "$serverName exists but is already started."

       } else {

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

	       putsLog "Starting server $serverName..............."

	       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

	   }

       }

    }

}