URI Tracker - Question - ERROR: undefined procedure: swith][swith -glob [string tolower [HTTP::uri]]

Question

URI tracker code is driving me nutts. I dont know if my backets are screwed up or if my HTTP::uri is screwed. For awhile, I was getting a cross bracket error, but after using Notepad++, I THINK i got them all. Now Im getting the attached error now. has anyone else used the Link tracker and had issues with the code parsing?&nbsp;    when HTTP_REQUEST {

set TABLE_LINK "LINK_TRACKING_[virtual name]";
set TABLE_FILTERS "LINK_TRACKING_FILTERS_[virtual name]";

swith -glob [string tolower [HTTP::uri]] {
"/linkadmin*" {
set count_filter "";
set data_filter "";
set msg [URI::decode [getfield [HTTP::uri] "/" 3]]
if { ($msg starts_with "f(") &amp;&amp; ($msg ends_with ")") } {
set count_filter "";
set data_filter [string range $msg 2 end-1];
set msg "";
} elseif { ($msg starts_with "c(") &amp;&amp; ($msg ends_with ")") } {
set count_filter [string range $msg end-1];
set data_filter "";
set msg "";
}
set count [table keys -subtable $TABLE_LINK -count]
set content {URI tracking

URI Tracking
append content "$TABLE_LINK"
append content "Link Count$count"
append content {Controls

}
append content "URI Filters"
foreach key [table keys -subtable $TABLE_FILTERS] {
append content " $key
";
}
append content "";
append content {Add Filter

}
if { "" !=$msg } {
append content "Message%msg";
}
append content "";
append content ""
append content "Link Metrics";
append content "URICount";
append content {Filter Results }
append content " []
}
append content " []
};
foreach key [lsort -dictionary [table keys -subtable $TABLE_LINK]] {
if { "" !=$data_filter } {
if { [string match $data_filter $key] } {
set v [table lookup -subtable $TABLE_LINK $key];
append content " $key$v";
}
}elseif { "" != $count_filter } {
set v [table lookup -subtable $TABLE_LINK $key];
if { $v &gt;= $count_filter } {
append content " $key$v";
}
} else {
set v [table lookup -subtable $TABLE_LINK $key];
append content " $key$v";
}
}
append content "";
HTTP::respond 200 Content $content;
}

"/linkcleardata"{
table delete -subtable $TABLE_LINK -all;
HTTP::redirect "http://[HTTP::host]/linkadmin/link+Tracking+Cleared"
}
"/linkremovedata/*" {
set val [string range [HTTP::uri] [string length "linkremovedata/"] end]
if { "" != $val }{
table delete -subtable $TABLE_LINK $val;
}
HTTP::redirect "http://[HTTP::host]/linkadmin/Link+Deleted";
}
"/linkclearfilter" {
table delete -subtable $TABLE_FILTERS -all;
HTTP::redirect "http://[HTTP::host]/linkadmin/Link+Filters+Cleared"
}
"/linkaddfilter/*" {
set f [string range [HTTP::uri][string length "/linkaddfilter/"] end]
if { "" != $f}{
table add -subtable $TABLE_FILTERS $f 1 indefinite indefinite;
}
HTTP::redirect "http://[HTTP::host]/linkadmin/Filter+Added";
}
"/linkremovefilter/*" {
set val [string range [HTTP::uri][string length "linkremovefilter/"] end]
if { "" != $val }{
table delete -subtable $TABLE_FILTERS $val;
}
HTTP::redirect "http::/[HTTP::host]/linkadmin/Filter+Deleted";
}
default {
set match 1;
set c [table keys -subtable $TABLE_FILTERS -count]
if { $c != 0 } {
set match 0;
foreach key [lsort [table keys -subtable $TABLE_FILTERS]] {
set m [string match $key [HTTP::uri]];
if { 1 == $m } {
set match 1;
break;
}
}
}
}
}
}

smiley_dba_1116 · Answer

First issue I found after walking away is that i mispelled switch with swich. still getting errors. 
01070151:3: Rule [/Common/test] error: /Common/test:16: error: [wrong  args][string range $msg end-1]
/Common/test:84: error: [undefined procedure: /linkcleardata]["/linkcleardata"{
table delete -subtable $TABLE_LINK -all;
HTTP::redirect "http://[HTTP::host]/linkadmin/link+Tracking+Cleared"

andrew_husking · Answer

There's a } missing before the "/linkcleardata".&nbsp;
I don't have an F5 on me at the moment, so i can't confirm if there are any other errors.&nbsp;
HTH.&nbsp;

smiley_dba_1116 · Answer

ok. I tried that, but still getting that clear data issue.
Error /linkcleardata]["/linkcleardata" { table delete -subtable $TABLE_LINK -all;
&nbsp;
when HTTP_REQUEST {

set TABLE_LINK    "LINK_TRACKING_[virtual name]";
set TABLE_FILTERS "LINK_TRACKING_FILTERS_[virtual name]";

swith -glob [string tolower [HTTP::uri]] {
"/linkadmin*" {
set count_filter "";
set data_filter "";
set msg [URI::decode [getfield [HTTP::uri] "/" 3]]
if { ($msg starts_with "f(") &amp;&amp; ($msg ends_with ")") } {
set count_filter "";
set data_filter [string range $msg 2 end-1];
set msg "";
} elseif { ($msg starts_with "c(") &amp;&amp; ($msg ends_with ")") } {
set count_filter [string range $msg 2 end-1];
set data_filter "";
set msg "";
}
set count [table keys -subtable $TABLE_LINK -count]
set content {URI tracking

URI Tracking
append content "$TABLE_LINK"
append content "Link Count$count"
append content {Controls

}
append content "URI Filters"
foreach key [table keys -subtable $TABLE_FILTERS] {
append content " $key
";
}
append content "";
append content {Add Filter

}
if { "" !=$msg } {
append content "Message%msg";
}
append content "";
append content ""
append content "Link Metrics";
append content "URICount";
append content {Filter Results }
append content "x]
  }
append content " []
};
foreach key [table keys -subtable $TABLE_LINK] {
if { "" != $data_filter } {
if { [string match $data_filter $key] } {
set v [table lookup -subtable $TABLE_LINK $key];
append content " $key$v";
}
} elseif { "" != $count_filter } {
set v [table lookup -subtable $TABLE_LINK $key];
if { $v &gt;= $count_filter } {
append content " $key$v";
}
} else {
set v [table lookup -subtable $TABLE_LINK $key];
append content " $key$v";
}
}
append content "";
HTTP::respond 200 Content $content;
}

"/linkcleardata" {
table delete -subtable $TABLE_LINK -all;
HTTP::redirect "http://[HTTP::host]/linkadmin/Link+Tracking+Cleared"
}
"/linkremovedata/*" {
set val [string range [HTTP::uri] [string length "linkremovedata/"] end]
if { "" != $val }{
table delete -subtable $TABLE_LINK $val;
}
HTTP::redirect "http://[HTTP::host]/linkadmin/Link+Deleted";
}
"/linkclearfilters" {
table delete -subtable $TABLE_FILTERS -all;
HTTP::redirect "http://[HTTP::host]/linkadmin/Link+Filters+Cleared"
}
"/linkaddfilter/*" {
set f [string range [HTTP::uri][string length "/linkaddfilter/"] end]
if { "" != $f}{
table add -subtable $TABLE_FILTERS $f 1 indefinite indefinite;
}
HTTP::redirect "http://[HTTP::host]/linkadmin/Filter+Added";
}
"/linkremovefilter/*" {
set val [string range [HTTP::uri][string length "linkremovefilter/"] end]
if { "" != $val }{
table delete -subtable $TABLE_FILTERS $val;
}
HTTP::redirect "http::/[HTTP::host]/linkadmin/Filter+Deleted";
}
default {
set match 1;
set c [table keys -subtable $TABLE_FILTERS -count]
if { $c != 0 } {
set match 0;
foreach key [lsort [table keys -subtable $TABLE_FILTERS]] {
set m [string match $key [HTTP::uri]];
if { 1 == $m } {
set match 1;
break;
}
}
}
}
}
}
}

&nbsp;

kai_wilke · Answer

Hi Smiley,
reworked your code formatings and catched almost a dozend TCL/HTML glitches.
I've changed a little bit your sytax to rely more on substitution instead of switching between "" and {} escaped $content.&nbsp;The new code will only leave HTML when you have to [if] or [foreach] dynamic HTML code.
&nbsp;
when HTTP_REQUEST {
    set TABLE_LINK    "LINK_TRACKING_[virtual name]"
    set TABLE_FILTERS "LINK_TRACKING_FILTERS_[virtual name]"
    switch -glob [string tolower [HTTP::uri]] {
        "/linkadmin*" {
            set count_filter ""
            set data_filter ""
            set msg [URI::decode [getfield [HTTP::uri] "/" 3]]
            if { ($msg starts_with "f(") &amp;&amp; ($msg ends_with ")") } then {
                set count_filter ""
                set data_filter [string range $msg 2 end-1]
                set msg ""
            } elseif { ($msg starts_with "c(") &amp;&amp; ($msg ends_with ")") } then {
                set count_filter [string range $msg 2 end-1]
                set data_filter ""
                set msg ""
            }
            set count [table keys -subtable $TABLE_LINK -count]
            set content "

URI tracking

URI Tracking

$TABLE_LINK

Link Count

$count

Controls

URI Filters

"

foreach key [table keys -subtable $TABLE_FILTERS] {
                append content " $key
"
            }

append content "

Add Filter

"

if { "" !=$msg } then {

append content "

Message

$msg
                            
                        "

}
            append content "

Link Metrics

URI

$count

Filter Results

"

foreach key [table keys -subtable $TABLE_LINK] {
                if { "" != $data_filter } then {
                    if { [string match $data_filter $key] } then {
                        set v [table lookup -subtable $TABLE_LINK $key]
                        append content "

$key

$v
                            
                        "

}
                } elseif { "" != $count_filter } then {
                    set v [table lookup -subtable $TABLE_LINK $key]
                    if { $v &gt;= $count_filter } {
                        append content "

$key

$v
                            
                        "
                    }
                } else {
                    set v [table lookup -subtable $TABLE_LINK $key]
                    append content "

$key

$v
                            
                        "
                }
            }
            append content "

"

HTTP::respond 200 Content $content
        }
        "/linkcleardata" {
            table delete -subtable $TABLE_LINK -all
            HTTP::redirect "http://[HTTP::host]/linkadmin/Link+Tracking+Cleared"
        }
        "/linkremovedata/*" {
            set val [string range [HTTP::uri] [string length "linkremovedata/"] end]
            if { "" != $val } then {
                table delete -subtable $TABLE_LINK $val
            }
            HTTP::redirect "http://[HTTP::host]/linkadmin/Link+Deleted"
        }
        "/linkclearfilters" {
            table delete -subtable $TABLE_FILTERS -all
            HTTP::redirect "http://[HTTP::host]/linkadmin/Link+Filters+Cleared"
        }
        "/linkaddfilter/*" {
            set f [string range [HTTP::uri] [string length "/linkaddfilter/"] end]
            if { "" != $f} then {
                table add -subtable $TABLE_FILTERS $f 1 indefinite indefinite
            }
            HTTP::redirect "http://[HTTP::host]/linkadmin/Filter+Added"
        }
        "/linkremovefilter/*" {
            set val [string range [HTTP::uri] [string length "linkremovefilter/"] end]
            if { "" != $val } then {
                table delete -subtable $TABLE_FILTERS $val
            }
            HTTP::redirect "http::/[HTTP::host]/linkadmin/Filter+Deleted"
        }
        default {
            set match 1
            set c [table keys -subtable $TABLE_FILTERS -count]
            if { $c != 0 } then {
                set match 0
                foreach key [lsort [table keys -subtable $TABLE_FILTERS]] {
                    set m [string match $key [HTTP::uri]]
                    if { 1 == $m } then {
                        set match 1
                        break
                    }
                }
            }
        }
    }
}

&nbsp;
Note: Just saved the iRule for debugging purposes. But didn't executed the iRule at all.
Cheers, Kai

Forum Discussion

URI Tracker - Question - ERROR: undefined procedure: swith][swith -glob [string tolower [HTTP::uri]]

Recent Discussions

F5 looses the token for the first call

iRule - Url rewrite and header replace and pool selection not working

Switch ssl profile based on weak cipher detection via IRULE

full-proxy HTTP2

Decode ObjectSID from Base64-encode string

Related Content

string first replacement procedure for ID999881

set TOKEN [getfield [HTTP::uri]

F5 Backup procedure over SCP using iCall

HTTP URI Replace/Redirect

Persist using a string in an HTTP URI

ABOUT DEVCENTRAL

RESOURCES

SUPPORT

PARTNERS