TMM utilization increaseing after iRule change

I don't know how to post it as a code here in this forum.

I just paste the rule code into notepad and then into here.

here is the rule:

when HTTP_REQUEST {

don't run the rule if it's a mobile redirect

if {[info exists mobile_match] && $mobile_match==1} {

log local0. "It's a mobile client: [IP::client_addr]"

} else {

log local0. "normal client: [IP::client_addr]"

set rule_active 1

set default_category 1

set uri_orig [string tolower [HTTP::uri]]

set uri_prefix_category "/default/defaultcatg.asp?rewrite=1&catg="

set uri_prefix_listing "/default/defaultlist.asp?rewrite=1&catg="

set uri_prefix_carsandbikes_listing "/carsandbikes/defaultlist.aspx?rewrite=1&categorynr="

Required params

set para_c [findstr $uri_orig "/c/" ]

set para_l [findstr $uri_orig "/l/" ]

set para_b [findstr $uri_orig "/b/" ]

if { $para_c ne "" } {

set parameters [findstr $para_c "/c/" 2]

log local0. "Parameter para_c: $para_c $parameters"

} elseif { $para_l ne "" } {

set parameters [findstr $para_l "/l/" 2]

log local0. "Parameter para_l: $para_l $parameters"

} elseif { $para_b ne "" } {

set parameters [findstr $para_b "/b/" 2]

log local0. "Parameter para_b: $para_b $parameters"

} else {

set parameters ""

}

log local0. "Parameters: $parameters"

Optional params

set para_cn [findstr $parameters "/cn" 3 "/"]

set para_an [findstr $parameters "/an" 3 "/"]

set para_ln [findstr $parameters "/ln" 3 "/"]

set para_ls [findstr $parameters "/ls" 3 "/"]

set para_lt [findstr $parameters "/lt" 3 "/"]

set para_pn [findstr $parameters "/pn" 3 "/"]

set para_ps [findstr $parameters "/ps" 3 "/"]

set para_xml [findstr $parameters "/xml" 4 "/"]

log local0. "Parameter para_an: $para_an"

switch -exact $uri_orig {

"/kaufen" -

"/acheter" -

"/kobe" -

"/kjope" -

"/pris" -

"/angebote" -

"/buy" {

HTTP::respond 301 Location http://[HTTP::host][HTTP::uri]/

}

}

switch -glob $uri_orig {

"/kaufen/*" -

"/acheter/*" -

"/kobe/*" -

"/kjope/*" -

"/pris/*" -

"/angebote/*" -

"/buy/*" {

Process required parameters

Set the correct categorynumber

if { $para_cn equals "" } {

set para_cn $default_category

} else {

do nothing

}

Set the article number

if { $para_an != "" } {

Add auctionnr to the URI

set para_an "&auctionnr=$para_an"

}

Workaround for "v" and "w" else Default new_uri

if { "$uri_orig" contains "/v/" or "$uri_orig" contains "/w/" } {

set rule_active 0

log local0. "rule_active: none"

} else {

set uri_new $uri_prefix_category$para_cn

}

Process URI prefix

Create URI prefix for listing page

if { $para_l != "" } {

set uri_new $uri_prefix_listing$para_cn

} elseif { $para_b != "" } {

set uri_new $uri_prefix_carsandbikes_listing$para_cn

} else {

set uri_new $uri_prefix_category$para_cn

}

Process optional parameters

if { $para_ln != "" } {

Add langeuagenr to the URI

set uri_new "$uri_new&languagenr=$para_ln"

}

if { $para_ls != "" } {

Add listingsort to the URI

set uri_new "$uri_new&listingsort=$para_ls"

}

if { $para_lt != "" } {

Add listingtype to the URI

set uri_new "$uri_new&listingtype=$para_lt"

}

if { $para_pn != "" } {

Add pagenumber to the URI

set uri_new "$uri_new&pagenr=$para_pn"

}

if { $para_ps != "" } {

Add pagesize to the URI

set uri_new "$uri_new&pagesize=$para_ps"

}

if { $para_xml != "" } {

Add xml to the URI

set uri_new "$uri_new&xml=$para_xml"

}

Set new URL

log local0. "[HTTP::host] $uri_orig $uri_new"

if { $rule_active ne 0 } {

if {[catch { HTTP::header insert "X-REWRITTENURL [HTTP::uri]" } result]} {

log local0. "[HTTP::host] [IP::client_addr]:[TCP::local_port] Error on Header Insert X-REWRITTENURL"

}

if { [HTTP::uri] equals $uri_new } {

log local0. "[HTTP::uri] URLs equal!"

}

HTTP::uri $uri_new

log local0. "[HTTP::host] [HTTP::uri] -> $uri_new"

}

}

}

}

}

Thanx for help