(Tcl) Parse a URL into its Component Parts

Demonstrates how to parse a URL into it's component parts.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set url [new_CkUrl]

set urlStr "https://www.amazon.com/Anarchy-State-Utopia-Robert-Nozick/dp/0465051006/ref=sr_1_1?s=books&ie=UTF8&qid=1430344305&sr=1-1&keywords=nozick#frag123"

set success [CkUrl_ParseUrl $url $urlStr]
# Assume success..

puts "URL: $urlStr"
puts "Host: [CkUrl_host $url]"
puts "Port: [CkUrl_get_Port $url]"
puts "HostType: [CkUrl_hostType $url]"
puts "Ssl: [CkUrl_get_Ssl $url]"
puts "Path: [CkUrl_path $url]"
puts "Query: [CkUrl_query $url]"
puts "Frag: [CkUrl_frag $url]"
puts "----"

set urlStr "http://matt:secret@www.chilkatsoft.com:8080/somepath.asp?test=123&size=2"

set success [CkUrl_ParseUrl $url $urlStr]
# Assume success..

puts "URL: $urlStr"
puts "Host: [CkUrl_host $url]"
puts "Port: [CkUrl_get_Port $url]"
puts "HostType: [CkUrl_hostType $url]"
puts "Ssl: [CkUrl_get_Ssl $url]"
puts "Login: [CkUrl_login $url]"
puts "Password: [CkUrl_password $url]"
puts "Path: [CkUrl_path $url]"
puts "Query: [CkUrl_query $url]"
puts "Frag: [CkUrl_frag $url]"

delete_CkUrl $url