remove trailing periods

It seems a bit strange that users would add a trailing period, but...

To remove a trailing period if there is one, you can use 'string trimright', like this:

when HTTP_REQUEST {
   if { [HTTP_HOST ends_with "." }{
      HTTP::host [string trimright [HTTP::host] "."]
   }
}

To test this with logging, you can use this:

when HTTP_REQUEST {
   if { [HTTP_HOST ends_with "." }{
      set host_original [HTTP::host]
      set host_trimmed [string trimright [HTTP::host] "."]
      log local0. "\$host_original: $host_original"
      log local0. "\$host_trimmed: $host_trimmed"
      HTTP::host [string trimright $host_original "."]
   }
}

For details on the string command, you can check the TCL man page for string (Click here).

Aaron