####################################################################
# Delete Cluster Server if it already exists.
####################################################################
proc deleteCluster { clusterName } {

   global AdminTask 

   putsLog "deleteCluster proc" 

   lappend configList -clusterName $clusterName

   if { [ catch { $AdminTask deleteCluster $configList } r ] == 0 } {

        putsLog "Cluster $clusterName deleted successfully."

	saveChanges 
   } else {
           putsLog "failed to delete  cluster $clusterName "
           putsLog $r 
	   return -code error $r
   }

}