X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;ds=sidebyside;f=dcdot.tcl;h=8e15fea593a473224bac1ef1eebcf84f6d74af26;hb=4355628830cd0f9e27c059d20254d8e1c30896eb;hp=3b2edcb5649734fc69dbfd6fc5055c7fa1cba7e6;hpb=de694c0a797c955ec564b91fee7d0293ce9bd03c;p=tclrobot.git diff --git a/dcdot.tcl b/dcdot.tcl index 3b2edcb..8e15fea 100755 --- a/dcdot.tcl +++ b/dcdot.tcl @@ -1,5 +1,5 @@ #!/usr/bin/tclsh -# $Id: dcdot.tcl,v 1.4 2000/12/11 17:11:03 adam Exp $ +# $Id: dcdot.tcl,v 1.5 2003/01/13 13:59:07 adam Exp $ # proc RobotRestart {} { @@ -10,15 +10,23 @@ proc RobotRestart {} { proc RobotTextHtml {url} { global URL - + set b $URL($url,buf) - set e {<[mM][eE][tT][aA][^>]*>} + set e {]*>} catch {unset $URL($url,meta)} - while {[regexp -indices $e $b i]} { + while {[regexp -nocase -indices $e $b i]} { set meta [string range $b [lindex $i 0] [lindex $i 1]] lappend URL($url,meta) $meta set b [string range $b [lindex $i 1] end] } + set b $URL($url,buf) + set e {