bm_host_url complete_urlWhat it does:
Takes a URL and returns the host portion of it (i.e., http://hostname.com/), which always contains a trailing slash. Returns empty string if complete_url wasn't parseable.Defined in: /web/philip/tcl/bookmarks-defs.tcl
Source code:
if { [regexp {([^:\"]+://[^/]+)} $complete_url host_url] } { return "$host_url/" } else { return "" }