- set head 0
- htmlSwitch $URL($url,buf) \
- title {
- set URL($url,title) $body
- } -nonest meta {
- set scheme {}
- if {[info exist parm(scheme)]} {
- set scheme $parm(scheme)
- unset parm(scheme)
- }
- if {[info exist parm(name)]} {
- if {[info exist parm(content)]} {
- set URL($url,meta,$parm(name),$scheme) $parm(content)
- unset parm(content)
- }
- unset parm(name)
- }
- } a {
- if {[info exists parm(href)]} {
- lappend URL($url,links) $parm(href)
- }
- }
+ set b $URL($url,buf)
+ set e {<[mM][eE][tT][aA][^>]*>}
+ catch {unset $URL($url,meta)}
+ while {[regexp -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]
+ }