From 5733db098304eac06d776a8298c1a7c3aec37aca Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Tue, 5 Jun 2001 07:46:00 +0000 Subject: [PATCH] Remove characters after semicolon in header contents. --- robot.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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] } } -- 1.7.10.4