#!/usr/bin/perl -w

# Nimmt 8 Minuten lang Antenne Bayern (Nachrichten) auf

$dauer      = 8*60;
$url        = 'http://stream.antenne.de/antenne/stream/mp3';
$target_dir = '/xtemp/mp4/Nachrichten';

system("mkdir -p $target_dir 2>/tmp/nachrichten.log");

system("timeout $dauer wget -q -O - $url > $target_dir/\$(date +%Y-%m-%d).mp3 2>/tmp/nachrichten.log");

exit 0;