Checking for X-Forwarded-For against an Address Data-Group

Thanks for the reminder, I saw though I thought we always were sending X-Forwarded-For as a single string, instead something is also appending itself to the chain so it was a comma-separated string.  If others have this, here is some code that is fault-tolerant for single or comma-array separate (assuming the first ip in the list is the one of interest)

when HTTP_REQUEST {

if {[HTTP::header exists "X-Forwarded-For"]}{
	set ip [HTTP::header "X-Forwarded-For"]
} else {
	set ip [IP::client_addr]
}

if {[string first "," $ip] != -1} {
	set fields [split $ip ","]
	set ip1 [lindex $fields 0]
} else {
	set ip1 $ip
}

set externalHost 1
if {[class match $ip1 equals Internal_Hosts]}{
	set externalHost 0
}

if {($externalHost == 0)}{
HTTP::respond 200 content {
	externalHost=0
}
} elseif {($externalHost == 1)}{
HTTP::respond 200 content {
	externalHost=1
}
} else {
HTTP::respond 200 content {
	externalHost=unknown
}
}