Listenlive

Listenlive.nl Firmware

Auf der Seite listenlive.nl gibt es für viele Webradios eine alternative Firmware, derzeit in Version 1.49.

Die Kommunikation erfolgt über socks.

Im wesentlichen kann man darüber die Befehle senden, die auch die IR-Fernbedienung sendet.

Der Code

Bitte, kann jemand die richtigen Tags für den Code einfügen?

Für fhem.cfg

1. 1. 1. WebRadio

define WebRadio dummy attr WebRadio room Wohnzimmer attr WebRadio setList UP LEFT DOWN RIGHT EXIT POWER OK VOLp VOLm STOP REPEAT PGUP PGDN RECORD HOME MENU MUTE FORWARD REWIND FMRADIO IRADIO ITV PAUSE CLOCK attr WebRadio webCmd UP:LEFT:DOWN:RIGHT:EXIT:POWER:OK:VOLp:VOLm:STOP:REPEAT:PGUP:PGDN:RECORD:HOME:MENU:MUTE:FORWARD:REWIND:FMRADIO:IRADIO:ITV:PAUSE:CLOCK define myWebRadio notify WebRadio {radio($EVENT)};;

Für die myUtils:

use strict; use warnings; use POSIX; use CGI qw(:standard); use IO::Socket; use IO::Socket::INET; use MIME::Base64; use Time::HiRes qw(usleep nanosleep); <---- Neu für den usleep()

2. Listenlive Radio

sub radio($) {

 my ($socket,$client_socket);
 my $response ="";

2. Create a socket object for the communication with the radio

 $socket = new IO::Socket::INET (

PeerHost => '192.168.5.56', PeerPort => '8080', Proto => 'tcp',

 ) or die "ERROR in Socket Creation : $!\n";

2. Send the given command into the socket

 $socket->send(@_);

2. get the radio some time to execute the command (10ms )

 usleep(10000);

2. get the answer of the radio

 $socket->recv($response, 2);

 if($response !~  m/OK/)
   {

Log 1, "Error from radio ! Response from Radio : $response" ; }

 $socket->close();

}

Links

• Forumthread
• Homepage von Listenlive.nl