How to extract video links from Youtube RSS feed

'
' Returns an array with one element for each video. Each element in the array is an associative array with fields
' videoTitle and videoUrl.
'
function getRSSFeed (feedUrl as string) as object
	urlTransferObject = CreateObject ("roUrlTransfer")
	urlTransferObject.SetPort (CreateObject ("roMessagePort"))
	urlTransferObject.SetUrl (feedUrl)
	urlData = urlTransferObject.GetToString ()
	xml = CreateObject ("roXMLElement")
	xml.Parse (urlData)
	videoList = []
	for each entry in xml.Entry
		for each entryChild in entry.GetChildElements ()
			if entryChild.GetName () = "media:group"
				for each mediaGroupChild in entryChild.GetChildElements ()
					if mediaGroupChild.GetName () = "media:player"
						videoList.Push ({videoTitle: entry.title.GetText (), videoUrl: mediaGroupChild@url})
						exit for
					endif
				end for
				exit for
			endif
		end for
	end for
	return videoList
end function