set URL($task,$url,buf) [string range $URL($task,$url,buf) $n end]
regexp {^HTTP/([0-9.]+)[ ]+([0-9]+)} $headbuf x version code
set URL($task,$url,buf) [string range $URL($task,$url,buf) $n end]
regexp {^HTTP/([0-9.]+)[ ]+([0-9]+)} $headbuf x version code
if {[regexp {^([^:]+):[ ]+([^;]*)} $line x name value]} {
set URL($task,$url,head,[string tolower $name]) [string trim $value]
}
if {[regexp {^([^:]+):[ ]+([^;]*)} $line x name value]} {
set URL($task,$url,head,[string tolower $name]) [string trim $value]
}