####################################################################
# Create template server. 
# This will install the template server into the default appication server profile on the node. 
####################################################################
proc createServer { serverName nodeName } {

   global AdminConfig 

   putsLog "proc - [info level 0 ]"

   set 	propertiesArray(serverName) $serverName                      
   set  propertiesArray(nodeName)   $nodeName  

   putsLog "properties are.................."

   foreach { a b } [ array get propertiesArray ] {

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

   }

   putsLog [ string repeat . [ string length "properties are.................." ] ]

   set j [ $AdminConfig list Server ]

   putsLog "Installed Servers are................"

   showList $j

   putsLog [ string repeat . [ string length "Installed Servers are................" ] ]

   #get attribute name of each JDBC driver and add to a list. 

   foreach i $j { lappend nameList [ $AdminConfig showAttribute $i name ] }

   catch { lsearch $nameList $propertiesArray(serverName) } r 

   ## delete the server if it exists.

   if { $r != -1 } {

       putsLog "Server already exists.  Deleting Server ..............."

       if { [ catch { deleteServer $propertiesArray(serverName) } r  ] == 0 } {

           putsLog $r

       } else {

          putsLog $r
          return -code error $r

       }

   }

   putsLog "CREATING SERVER $serverName ON NODE $nodeName"

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

   if { [ string length $nodeId ] == 0 } {

      putsLog "ERROR: Node $nodeName does not exist" 

      return -code error 

   }

   set nameList [ list name $serverName ]
   set attrList [ list $nameList        ] 

   if { [ catch {$AdminConfig create Server $nodeId $attrList} r ] == 0 } {
        putsLog "$serverName server created successfully."
   } else {
           putsLog "failed to create $serverName server"
           putsLog $r 
	   return -code error $r
   }

   set j [ $AdminConfig list Server ]

   putsLog "Post Installation: installed Servers are................"

   showList $j

   set serverId [ $AdminConfig getid /Server:$serverName/ ]
 
   #putsLog " serverId = $serverId"
   return $serverId 

}