#!/usr/bin/perl

use LWP::Simple;

$url = 'http://www.br-online.de/alpha/centauri/archiv.shtml';

$dokument = get($url);
unless (defined $dokument) { print "ERROR: Kann $url nicht holen.\n"; exit };

#<tr><td valign="top">&nbsp;20.12.98</td>
#<td><a href="http://www.br-online.de/cgi-bin/ravi?v=alpha/centauri/v/&f=981220.rm">Sind wir allein im Universum?</a></td></tr>

$dokument =~ s/\n//g; $dokument =~ s/\r//g;

while ($dokument =~ /<a href\=\"(http:\/\/www.br-online.de\/cgi-bin\/ravi.*?)\">(.*?)<\/a>/g) {
	$url = $1; $title = $2; 
	$title =~ s/( ?$|\?|<\/*sup>)//g; $title =~ s/( |&nbsp;)/_/g;
	$title =~ s/(ä|&auml;)/ae/g; $title =~ s/(ß|&szlig;)/ss/g; $title =~ s/(ö|&ouml;)/oe/g; $title =~ s/(ü|&uuml;)/ue/g;
	$url =~ /([0-9]{6}).rm/; $title = $1."_".$title.".rm";
	#print "$url $title\n";
	$ravifile = get($url);
	unless (defined $ravifile) { print "ERROR: Kann $ravifile nicht holen.\n"; exit };
	
	# rtsp://ravi.br-online.de:5050/ravi/alpha/centauri/v/060412.rm
	# --stop--
	# pnm://ravi.br-online.de/ravi/alpha/centauri/v/060412.rm
		
	$ravifile =~ /(rtsp:\/\/.*[0-9]{6}.rm)/;	
	print "$1\n";
	print `mplayer -dumpstream $1`;
	print `mv stream.dump $title`;

				      			      }

#mplayer -dumpstream rtsp://ravi.br-online.de:5050/ravi/alpha/centauri/v/060607.rm
#stream.dump