# NOADDURL NOHASH $LST(URL-Slicer)
# Extracts substrings from the current URL and places them into variables.
#
# This list is called from a header filter and an emergency web filter.
# The variables are used throughout the config.
#
# sidki 2004-05-17
# Last updated 2004-06-23
#
###############################################################################

$URL(
  \1://([^.@]+@|(^.))
  ([^/:\\]+)\2
  (:[0-9]+|)\3
  (/([^/?]+/)+)\4
  ([^.?]+)\5
  (
  (.([^.?]+)+|)\6.([^?]+)\7
  |)
  )
  $SET(prot=\1)$SET(host=\2)$SET(port=\3)$SET(path=\4)$SET(ext=\7)
  $TST(\2=
  ([0-9.]+)\9(^?)
  |
  (|*.)
  (
  [^.]+.
  ((com|net|edu|gov|org|mil|info|??).??|[^.]+)
  )\9(^?)
  )
  $SET(dom=\9)
  |$SET(host=void)