Descargar vídeos y programas de radio de RTVE

Hace tan sólo unos días publiqué cómo descargar vídeos de TVE. Hoy me he encontrado con que en "El Historias" han querido descargar programas de radio de RNE y tomando como base la explicación que dí lo han conseguido :)

Como me pareció útil, he actualizado el script de PowerShell para también pueda descargar los programas de radio. Aquí lo tenéis:

function PrintBanner()
{
	Write-Host "RTVE Revealer para PowerShell - v0.2"
	Write-Host "Pablo Carballude - 21/08/2010"
	Write-Host ""
}

function DownloadFileFromURL([string]$url)
{
	$isAudio = $url.Contains("/mediateca/audios/")
	$aux = $url.Split('/')
	$id = $aux[$aux.Count-1].Split('.')[0]
	if($isAudio) { $url = "http://www.rtve.es/swf/data/es/audios/audio/" } else { $url = "http://www.rtve.es/swf/data/es/videos/video/" }
	$url = $url + $id[5] + "/" + $id[4] + "/" + $id[3] + "/" + $id[2] + "/" + $id + ".xml";
	$content = (new-object net.webclient).DownloadString($url);
	if ($content.Contains("")) 
	{
		$aux = [regex]::split($content, "assetDataId::")[1]
		$id = $aux.Split('"')[0]
		$url = "http://www.rtve.es/scd/CONTENTS/ASSET_DATA_"
		if($isAudio) { $url = $url + "AUDIO" } else { $url = $url +  "VIDEO" }
		$url = $url + "/" + $id[5] + "/" + $id[4] + "/" + $id[3] + "/" + $id[2] + "/ASSET_DATA_"
		if($isAudio) { $url = $url + "AUDIO" } else { $url = $url +  "VIDEO" }
		$url = $url + "-" + $id + ".xml";
		$content = (new-object net.webclient).DownloadString($url)
		$url = [regex]::split($content,"defaultLocation=""/deliverty/demo/resources/")[1]
		$url = "http://www.rtve.es/resources/TE_NGVA/" + $url.Split('"')[0]		
	} else {
		$aux = [regex]::split($content, "")[1]
		$url = [regex]::split($aux,"")[0]
	}
	Write-Host $url
	#Descomenta la siguiente línea para que se descargue automáticamente con wget
	#wget $url
}

PrintBanner
if ($args.Length -ne 1) { Write-Host "Uso: .\tve urlQueContieneLoQueQueremosDescargar" }
else { DownloadFileFromURL $args[0] }