Pee Dee River is the famous Blues Band from Soltau near Hamburg. Besides playing there own gigs they invite Bands to play at their own juke joint caled Kultur Kantine, they have their own radio station bluehour and they have their own world record for the dhortes world tour in history of Rock n Roll

#! /bin/perl use LWP; # # Konfiguration # $station = "mystation"; $password = "secret"; $delay = 3; # Aktualisierungsinterval in Minuten # # ... und los geht's # my $browser = LWP::UserAgent->new; $browser->agent("Mozilla/4.0 (compatible; laut.fm Tools; Windows NT 6.0)"); $ajaxcontrolUrl = "http://www.laut.fm/radioadmin/php/ajaxcontrol.php"; $statsUrl = "http://www.laut.fm/radioadmin/statistik.html"; $browser->cookie_jar({}); # login my $loginResponse = $browser->post( $ajaxcontrolUrl, [ 'action' => 'login', 'login' => $station, 'password' => $password, ] ); if($loginResponse->content()=~/success:true/) { # Statistik holen while(1) { my $statsResponse = $browser->get($statsUrl); my $html = $statsResponse->content(); my @cells; # Daten aus HTML extrahieren $html=~s/(.*?)<\/td>/push(@cells,$1)/eg; my($l1, $rank, $l2, $listeners, $l3, $duration, $l4, $avgTime) = @cells; # aktuelle Zeit ermittlen ($sec,$min,$hour,$mday,$mon,$year,$wday,$jday,$isdst) = localtime(time); $mon++; $year += 1900; my $filename = sprintf("%s-listeners-%04d-%02d-%02d.log", $station, $year, $mon, $mday); open LOG, ">>$filename"; # Zeit und Statistik ausgeben my $logEntry = sprintf("%04d-%02d-%02d %02d:%02d %d Hoerer\n", $year, $mon, $mday, $hour, $min, $listeners); print LOG $logEntry; close LOG; # warten sleep($delay * 60); } } else { print "Login fehlgeschlagen\n"; }