support for Beatport API single tracks based on Beatport Track ID in filename

Hi

I would like to see a build in option that works with the api.beatport.com

The issue is that DJ who buy WAV files from beatport don't have any tags in the file.
Many of them convert those WAV to lossless formats like FLAC, or as in my case lossless WMA.
But there are no tags in there ofcourse.

I managed to change an existing script that already helps me but the issue is that is one track at the time and pretty slow.

So I woule like some native function in MP3 tag that get the data from the beatport API based on the unique track ID that each wav file starts with.
for example: "1359981_Warrior_Coliseum Mix.wma"
Also the beatport id should be written in a tag "BEATPORTTRACKID".

I have put some info here
/t/11227/1

Mainly I would like that I can select x number of files and MP3 tag would put all data in the files without intervening.
The track ID is unique so it should be a 1 to 1 match.

If posible let the script be editable so we can add some stuff.
I would like to add for example an OWNER=Irvin Cee tag.

[Name]=beatport.com
[BasedOn]=http://api.beatport.com
[AlbumUrl]=http://api.beatport.com/catalog/tracks?v=1.0&format=xml&id=%s

# Use this search by based the file starts with the Beatport ID
[SearchBy]=$regexp(%_filename%,^(\d+).+,$1)


[ParserScriptAlbum]=...

outputto "COMMENT"
say "Purchased at Beatport.com"

outputto "BEATPORTTRACKID"
findline "<document"
moveline 1
findinline "id=\""
sayuntil "\" "

outputto "title"
findline "<name>"
findinline ">"
sayuntil "</"
findline "<mixName>"
findinline ">"
say " ("
sayuntil "</"
say ")|" 

outputto "year"
findline "<dateReleased>"
findinline "<dateReleased>"
sayuntil "</"

outputto "coverurl"
findline "width=\"60\" height=\"60\" ref=\"release\""
moveline 1
findinline "image url=\""
sayuntil "\" "

outputto "album"
findline "<release id="
joinuntil "</name>"
findinline "<name>"
sayuntil "</name>"


outputto "publisher"
findline "<label id"
findline "<name>"
findinline "<name>"
sayuntil "</"

outputto "genre"
findline "<genre id"
findline "<name>"
findinline "<name>"
sayuntil "</"

outputto "artist"
findline "<performer ref=\"Artist\""
joinuntil "</performer>"
findinline "<name>"
sayuntil "</"
moveline 1
unspace
if "<performer ref=\"Artist\""
	joinuntil "</performer>"
	say "; "
	findinline "<name>"
	sayuntil "</"
	moveline 1
	unspace
	if "<performer ref=\"Artist\""
		set "albumartist", "Various Artists"
	endif
endif
replace "|" "/"