Forum Discussion

igeo's avatar
igeo
Icon for Nimbostratus rankNimbostratus
Mar 04, 2022

Trim parentheses via tcl

I have the following URL and would like to remove the parentheses (both) by using an iRule (TCL):       http://ing1.example.com:31100/test1/test1.json/Streams(Type_4000000)           whe...
application delivery
tcl irule
  • xuwen's avatar
    xuwen
    Mar 04, 2022
    when HTTP_REQUEST priority 500 {
        if { ([HTTP::host] eq "ing1.example.com:31100") and ([HTTP::uri] contains "Streams") } {
            set old_uri [HTTP::uri]
            HTTP::uri "[string map {( "" ) ""} $old_uri]"
        }
    }
xuwen's avatar
xuwen
Icon for Cumulonimbus rankCumulonimbus
Mar 04, 2022

use string map to remove ：

tcl test:

(bin) 68 % set uri "/test1/test1.json/Streams(Type_4000000)"
/test1/test1.json/Streams(Type_4000000)
(bin) 69 % set new_uri [string map {( "" ) ""} $uri]
/test1/test1.json/StreamsType_4000000
(bin) 70 % 

 

  • igeo's avatar
    igeo
    Icon for Nimbostratus rankNimbostratus
    Mar 04, 2022

    There was an error when trying to save, so I added braces {}

    {set new_uri [string map {( "" ) ""} $uri]}

    However, this iRule doesn't remove the parentheses. The URL contains also a port, is it needed at the HTTP::host ?

    • xuwen's avatar
      xuwen
      Icon for Cumulonimbus rankCumulonimbus
      Mar 04, 2022
      when HTTP_REQUEST priority 500 {
          if { ([HTTP::host] eq "ing1.example.com:31100") and ([HTTP::uri] contains "Streams") } {
              set old_uri [HTTP::uri]
              HTTP::uri "[string map {( "" ) ""} $old_uri]"
          }
      }