Descargar vídeos y programas de radio de RTVE

By
Carballude
 – 21 agosto 2010Posted in: multimedia

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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

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("<file/>")) 
	{
		$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, "<file>")[1]
		$url = [regex]::split($aux,"</file>")[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] }

Tags: , , , , ,

About the Author

Me llamo Pablo Carballude González, soy graduado en computación con master en HCI y Seguridad Informática. Actualmente trabajo para Amazon en Seattle como Software Developer Engineer. Soy de esas personas que no saben si los textos autobiográficos deben ser en primera o tercera persona. Lo intenté en segunda, pero no le entendí nada :P