Sideband usage opinions (please critique)

I was given an automation requirement form a development team using some java caching zzzzzzzzzz. what? oh, right...they wanted to be able to purge the cache via a script/rest call.

This call was a simple get. Here is what I came up with:

    when HTTP_REQUEST {
        log local0. "Client Accepted"
        if { ([HTTP::uri] starts_with "/purge") } {
           set context [split [HTTP::uri] "/"]
           set i 3
           set mycontext ""
           while { [llength $context] > $i} {
            set mycontext "$mycontext/[lindex $context $i]"
            incr i
           }
           log local0. "$mycontext"

           foreach poolmember [ active_members -list [lindex $context 2]] {
                if {[catch {connect -timeout 1000 -idle 30 -status conn_status 10.0.0.1:443} conn_id] == 0 && $conn_id ne ""}{
                        set data "GET [string map {{ } :} $poolmember]:[lindex $context 2]:$mycontext HTTP/1.0\r\n\r\n"
                        set send_bytes [send -timeout 1000 -status send_status $conn_id $data]
                        if {[info exists "my_data"]}{
                            append my_data "sent $mycontext to $poolmember
\n"
                        } else {
                            set my_data "\nsent $mycontext to $poolmember
\n"
                        }
                        close $conn_id
                } else {

                        log local0. "Connection could not be established to [IP::local_addr].[TCP::local_port]"
                }

           }
        } else {
                set fields [split [HTTP::uri] ":"]
                log local0. "Recieved connection for: pool [lindex $fields 2] member [lindex $fields 0] [lindex $fields 1]"
                HTTP::uri [lindex $fields 3]
                pool [lindex $fields 2] member [lindex $fields 0] [lindex $fields 1]
        }
  }
  when HTTP_RESPONSE {
   HTTP::respond 200 content "Response Page$my_data"
  }

It works, but, as always, I'm open to more efficient options.