From: Adam Dickmeiss <adam@indexdata.dk>
Date: Tue, 5 Jun 2001 07:46:00 +0000 (+0000)
Subject: Remove characters after semicolon in header contents.
X-Git-Tag: ZMBOT.0.1~25
X-Git-Url: http://sru.miketaylor.org.uk/?a=commitdiff_plain;h=5733db098304eac06d776a8298c1a7c3aec37aca;p=tclrobot.git

Remove characters after semicolon in header contents.
---

diff --git a/robot.tcl b/robot.tcl
index c7d85c4..74582c1 100755
--- a/robot.tcl
+++ b/robot.tcl
@@ -1,5 +1,5 @@
 #!/usr/bin/tclsh 
-# $Id: robot.tcl,v 1.13 2001/02/26 22:51:51 adam Exp $
+# $Id: robot.tcl,v 1.14 2001/06/05 07:46:00 adam Exp $
 #
 proc RobotFileNext1 {area lead} {
     puts "RobotFileNext1 area=$area lead=$lead"
@@ -620,7 +620,7 @@ proc RobotReadHeader {url sock} {
 	    regexp {^HTTP/([0-9.]+)[ ]+([0-9]+)} $headbuf x version code
 	    set lines [split $headbuf \n]
 	    foreach line $lines {
-		if {[regexp {^([^:]+):[ ]+(.*)} $line x name value]} {
+		if {[regexp {^([^:]+):[ ]+([^;]*)} $line x name value]} {
 		    set URL($url,head,[string tolower $name]) [string trim $value]
 		}
 	    }