cddb.flt

harvest是一个下载html网页得机器人

BEGIN			{ begin record cddb }
/^DISCID=/ BODY /$/	{ data -element identifier $1 }
/^DTITLE=/ BODY /$/	{ data -element title $1 }
/^EXTD=/ BODY /$/	{ data -element ext $1 }
/^TTITLE/ /[0-9]+/ /=/ BODY /$/ { set trackstitle($1) $3 }
/^EXTT/ /[0-9]+/ /=/ BODY /$/ { set tracksext($1) $3 }
/^PLAYORDER/	{ 
		foreach v [array names trackstitle] {
			begin element track
			data -element title $trackstitle($v)
			if {[info exists tracksext($v)]} {
				set d $tracksext($v)
				if {[string length $d]} {
					data -element ext $tracksext($v)
				}
			}
			end element
		}
	}