Assign dgl key directly to tcl var instead of having to define value first ?

I see. U had a small typo there where u forgot the operator after "$uri_key". This following works :

 

when HTTP_REQUEST {

 

set uri_key [URI::path [HTTP::uri] 1]

 

if { [class match $uri_key equals trim_uri_starts_with] } {

 

set new_uri [string trimleft [HTTP::uri] $uri_key]

 

HTTP::redirect http://newhost.domain.com/$new_uri

 

}

 

}

 

 

Thank you !