####################################################################
# Create Virtual Host.
####################################################################
proc deleteVirtualHost { virtualhostName } {

   global AdminConfig 

   putsLog "deleteVirtualHost proc"

   set vHostId [ $AdminConfig getid /VirtualHost:$virtualhostName/ ]

   if { [ catch { $AdminConfig remove $vHostId } r ] == 0 } {

        putsLog  "$virtualhostName virtual host deleted successfully."

   } else {

        putsLog "failed to delete $virtualhostName virtual host"
	putsLog $r 
	return -code error 
   }

}