As FM4 changed their podcast infrastructure, the old downloader doesn’t work anymore; here is a little update:
#!/usr/bin/perl -w use strict; use LWP::Simple; use JSON; my $json = JSON->new; my $prefix = "http://loopstream01.apa.at/?channel=fm4&ua=ipad&id="; my $urls = [ "http://audioapi.orf.at/fm4/json/2.0/playlist/4ULMon", "http://audioapi.orf.at/fm4/json/2.0/playlist/4ULTue", "http://audioapi.orf.at/fm4/json/2.0/playlist/4ULWed", "http://audioapi.orf.at/fm4/json/2.0/playlist/4ULThu", "http://audioapi.orf.at/fm4/json/2.0/playlist/4ULFri", ]; foreach my $url (values $urls) { my $content = get $url or next; my $data = $json->decode($content); my $filename = $data->{"streams"}[0]->{'loopStreamId'}; my $mp3 = $prefix.$filename; print $mp3." -> ".$filename."\n"; getstore ($mp3, $filename); }
Now they use json instead of xml and it’s not possible to continue a download anymore.