####################################################################
# Create Virtual Host.
####################################################################
proc createVirtualHost { virtualhostName hostAliases } {

   global AdminConfig 

   putsLog "proc - createVirtualHost"

   foreach i $hostAliases {

      set hostname  [ list hostname [ lindex  [split $i : ] 0 ] ]
      set port      [ list port     [ lindex  [split $i : ] 1 ] ]

      set hostAlias [ list $hostname $port ]

      lappend hostAliasList $hostAlias  

   }
   
   set aliases  [ list aliases $hostAliasList ]
   set name     [ list name    $virtualhostName ]

   set cellId [ lindex [ $AdminConfig list Cell ] 0 ]

   set attrList [ list $name $aliases ] 

   if { [ catch {$AdminConfig create VirtualHost $cellId $attrList} r ] == 0 } {
        putsLog  "$virtualhostName virtual host created successfully."
   } else {
           putsLog "failed to create $virtualhostName virtual host"
	   return -code error "\n$r\n"
   }

}