Forum Discussion
Mark_Stradling_
Dec 03, 2013Cirrus
This seems to work
when HTTP_REQUEST {
set i 0
set clist [HTTP::cookie names]
if { [catch {set n [llength $clist]}] } {
log local0. "Error. Bad entry in cookie names: $clist"
return
}
while {$i < $n} {
switch -glob [lindex $clist $i] {
"xxxxx" -
"xxxxxx" -
"xxxxxx" -
"xxxxx" -
"xxxxx*" -
"xxxxxxxxx*" {
HTTP::cookie remove $cookie
}
}
incr i
}
}