undefined procedure: elseif

FYI: If anyone is interested I fixed this by reformatting the code as follows:

 

 

when HTTP_REQUEST {
   set my_uri [HTTP::uri]
   set my_query [HTTP::query]
   if { [HTTP::host] equals "soaringdreams.ameriquest.com"} {
      HTTP::respond 301 "Location" "http://www.ameriquestsoaringdreams.com"
   } elseif { $my_uri contains "texas" } {
         HTTP::respond 301 "Location" "http://www.ameriquestmortgage.com/index.html?ad=texasfair"
   } elseif { $my_uri matches_regex "cfide" } {
         discard
   } elseif { $my_uri starts_with "/Amigo"} {
         HTTP::respond 301 "Location" "http://www.ameriquestmortgage.com/sweepStakes/showRegistration.html?lang=es&ad=LMAMIGO"
   } elseif { $my_uri starts_with "/LuisMiguelFriend"} {
         HTTP::respond 
   }   
}

 

 

seems the TCL engine is kind of whitespace sensitive, not good...really not good...it makes the whole entire process too **bleep** complicated.

 

 

-Wes