Forum Discussion
xuwen
Feb 08, 2022Cumulonimbus
when HTTP_REQUEST {
set uri [HTTP::uri]
set skip_path_length [expr { 1 + [string length [lrange [split $uri "/"] 1 2]] }]
HTTP::uri "[string range [HTTP::uri] $skip_path_length end]"
}
OR:
when HTTP_REQUEST {
set uri [HTTP::uri]
HTTP::uri "/[join [lrange [split $uri "/"] 3 end] "/"]"
}
tcl test example:
(bin) 79 % set uri /path/to/file.xhtml
/path/to/file.xhtml
(bin) 80 % string range $uri [expr { 1 + [string length [lrange [split $uri "/"] 1 2]] }] end
/file.xhtml
(bin) 81 %puts "/[join [lrange [split $uri "/"] 3 end] "/"]"
/file.xhtml