#!/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';
# Lautstärke reduzieren
$volume     = '0.4';

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");

# direkt den Stream lesen und Laustärke reduzieren
system("ffmpeg -y -i $url -t $dauer -filter:a \"volume=$volume\" $target_dir/\$(date +%Y-%m-%d).mp3 2>/tmp/nachrichten.log");

exit 0;