Mercurial > hg > egg-tcls

comparison urllog.tcl @ 160:e3e156911ab4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Oops, fix a silly typobug.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 02 Jun 2014 15:52:58 +0300
parents f8571331003b
children eda776bcb7ed
comparison
equal deleted inserted replaced
159:bbc7860c22a6 160:e3e156911ab4
413 return 0 413 return 0
414 } 414 }
415 415
416 ### Get URL protocol component 416 ### Get URL protocol component
417 set u_proto "" 417 set u_proto ""
418 regexp "(\[a-z\]+)://" $urlStr u_match u_proto] 418 regexp "(\[a-z\]+)://" $urlStr u_match u_proto
419 419
420 ### Check the PORT (if the ":" is there) 420 ### Check the PORT (if the ":" is there)
421 set u_record [split $urlStr "/"] 421 set u_record [split $urlStr "/"]
422 set u_hostname [lindex $u_record 2] 422 set u_hostname [lindex $u_record 2]
423 set u_port [lindex [split $u_hostname ":"] end] 423 set u_port [lindex [split $u_hostname ":"] end]