Aktuelles TV-Programm in FHEM

[RoBra81]

Ein letztes Problem habe ich noch, was auch schon mehrfach angesprochen aber scheinbar noch nicht abschließend gelöst wurde: Die Sonderzeichen (s. Anhang).

Ich verwende einen Raspberry Pi 2 und verwende UTF-8. Auch nach mehreren Stunden werden diese Zeichen nicht aktualisiert. Es hat jedoch schon mal funktioniert, bevor ich das Ganze ausgebaut und readingsGroups umbenannt habe. Kann es damit irgendwas zu tun haben?

Also ich habe für meine ReadingsGroups eine Funktion geschrieben, die einen Zeilenumbruch setzt und die Sonderzeichen korrigiert:

myUtils:

Code Auswählen Erweitern

use HTML::Entities;

sub
wrapLine($$)
{
  my ($string, $maxLength) = @_;
  $string = decode_entities($string);
my @stringParts = split(/ /, $string);
  my $actRowLength = 0;
  my $resultString = '';
  while (scalar(@stringParts) > 0) {
  my $tempString = shift @stringParts;
    if ($actRowLength > 0)
    {
    if (($actRowLength + length($tempString)) > $maxLength)
      {
      $actRowLength = 0;
        $resultString .= '<br>';
      }
    }
    $resultString .= $tempString;
    $actRowLength += length($tempString);
    if (scalar(@stringParts) > 0)
    {
    $resultString .= ' ';
    $actRowLength += 1;
    }
  }
  if ($resultString eq '')
  {
  return ' ';
  }
  else
  {
  return $resultString;
  }
}


ReadingsGroup:

Code Auswählen Erweitern

attr DG.wz.TV.WohnzimmerTV.RG.Control.Page1 valueFormat {wrapLine($VALUE, 50)}

Ronny

[ChHerrm]

Perfekt, das klappt optimal

Im Anhang mal der komplette Code meiner fertigen TV-Anzeige falls es jemandem mal weiterhilft.
Danke für die Hilfe!

[Grimm80]

Hier mal ein schnellerer Weg um an die Icons zu kommen:

Code Auswählen Erweitern



cd /opt/fhem/www/images/default/tvmovie

wget -nd -r -l 1 -A png -e robots=off http://images.klack.de/images/stories/stations/



damit werden alle PNGs direkt runter geladen. 
Einfach der Reihe nach auf der SSH-Konsole ausführen.
Am Ende dann noch in FHEM "set WEB rereadicons".

[Adriano]

wget -nd -r -l 1 -A png -e robots=off http://images.klack.de/images/stories/stations/details/

sieht bei mir besser aus Danke trotzdem!

[Adriano]

Toll wäre es jetzt noch gleich die imdb Bewertung mit anzeigen zu können. Über http://omdbapi.com/

[Adriano]

Okay habe es hinbekommen. Ihr braucht das cpan perl Modul XML:Simple, dann:

# zusätzlich in 99_myUtils.pm

Code Auswählen Erweitern

use XML::Simple;
use LWP::Simple;

######## Get OMDB Rating ############
sub
OMDBRating
{ 
my $filmname = shift;
my $contents = get("http://www.omdbapi.com/?t=$filmname&y=&plot=short&r=xml");
my $p1 = new XML::Simple;
my $data = $p1->XMLin($contents);
return "$filmname ($data->{movie}->{imdbRating})";
}

#fhem.cfg

Code Auswählen Erweitern


#---------Start:ABENDprogramm---------
define TV_Abend HTTPMOD http://www.klack.de/fernsehprogramm/2015-im-tv/0/-2/pay.html 3600
attr TV_Abend userattr readingsName_SkyCinema24_Abend readingsName_SkyCinemaHits_Abend readingsName_SkyCinema_Abend readingsRegex_SkyCinema24_Abend readingsRegex_SkyCinemaHits_Abend readingsRegex_SkyCinema_Abend stateFormat timeout verbose
attr TV_Abend readingsName_SkyCinema24_Abend SkyCinema24_Abend
attr TV_Abend readingsName_SkyCinema24_Abend_Original SkyCinema24_Abend_Original
attr TV_Abend readingsName_SkyCinemaHits_Abend SkyCinemaHits_Abend
attr TV_Abend readingsName_SkyCinemaHits_Abend_Original SkyCinemaHits_Abend_Original
attr TV_Abend readingsName_SkyCinema_Abend SkyCinema_Abend
attr TV_Abend readingsName_SkyCinema_Abend_Original SkyCinema_Abend_Original
attr TV_Abend readingsRegex_SkyCinema24_Abend title="Sky Cinema \+24"><img[\w\W]*?<div class="content">\s*<a[\w\W]*?>\s*(.*?)\s*</a>
attr TV_Abend readingsRegex_SkyCinema24_Abend_Original title="Sky Cinema \+24"><img[\w\W]*?Original-Titel:\s*(.*?)\s*<br/>
attr TV_Abend readingsRegex_SkyCinemaHits_Abend title="Sky Cinema Hits"><img[\w\W]*?<div class="content">\s*<a[\w\W]*?>\s*(.*?)\s*</a>
attr TV_Abend readingsRegex_SkyCinemaHits_Abend_Original title="Sky Cinema Hits"><img[\w\W]*?Original-Titel:\s*(.*?)\s*<br/>
attr TV_Abend readingsRegex_SkyCinema_Abend title="Sky Cinema"><img[\w\W]*?<div class="content">\s*<a[\w\W]*?>\s*(.*?)\s*</a>
attr TV_Abend readingsRegex_SkyCinema_Abend_Original title="Sky Cinema"><img[\w\W]*?Original-Titel:\s*(.*?)\s*<br/>
attr TV_Abend room System
attr TV_Abend stateFormat mein_TV_Abend: SkyCinema_Abend
attr TV_Abend timeout 20
attr TV_Abend verbose 1

#Create Web UI Prime Time Programm
define TV_Abend_Abend readingsGroup <Sender>,<20:15 Uhr>, <Original> \
TV_Abend:SkyCinema_Abend,SkyCinema_Abend_Original \
TV_Abend:SkyCinema24_Abend,SkyCinema24_Abend_Original \
TV_Abend:SkyCinemaHits_Abend,SkyCinemaHits_Abend_Original
attr TV_Abend_Abend alias TV_Abendprogramm_Ab20Uhr
attr TV_Abend_Abend nameIcon { SkyCinema_Abend => 'tvmovie/sky-cinema', SkyCinema24_Abend => 'tvmovie/sky-cinema-24', SkyCinemaHits_Abend => 'tvmovie/sky-cinema-hits'}
attr TV_Abend_Abend nameStyle style="color:black;; font-weight:bold;; font-size:12px;; text-align:left"
attr TV_Abend_Abend noheading 1
attr TV_Abend_Abend nolinks 1
attr TV_Abend_Abend notime 1
attr TV_Abend_Abend room TV-Programm
attr TV_Abend_Abend style style="font-size:12px"
#attr TV_Abend_Abend valueFormat {OMDBRating($VALUE)}
attr TV_Abend_Abend valueFormat {( index($READING,"_Original") > 0)?OMDBRating($VALUE):$VALUE}
#---------Stop:ABENDprogramm---------


Nur die wichtigsten Änderungen zu  jnewton957 aufgeführt zu. Wenn jemand mehr Hilfe braucht einfach fragen.

Problem: Bei manchen Filmen liefert Klacktv nicht den Originaltitel. Dann springt das RegEx zum nächsten Film. Muss mal schauen. RegEx ist immer so wirr

[Ascos]

Perfekt, das klappt optimal

Im Anhang mal der komplette Code meiner fertigen TV-Anzeige falls es jemandem mal weiterhilft.
Danke für die Hilfe!

Hey,

vielen Dank für deinen Code. Habe nun versucht das alles bei mir auch einzubauen.
Habe die Bilder, wie bei Grimm80 in dem Post unter deinem beschrieben, herunter geladen.
Leider fehlen bei mir ganz viele Bilder.
Woran kann das liegen?
Habe den Code 1zu1 übernommen.

Anbei ein Bild, da einige Bilder ja gehen.

Viele Grüße
Tino

[kvo1]

Hi Tino,
tja die die Namen sind halt anders , ich habe die einfach umbenannt 
KVO1

[Ascos]

Hi Tino,
tja die die Namen sind halt anders , ich habe die einfach umbenannt 
KVO1

So klein und doch so einfach.
Das war es natürlich.
Vielen Dank

Tino

[Ascos]

Hi,

muss mich nochmals melden.
Habe das Skript leider wieder löschen müssen, da sich FHEM 3x aufgehangen hatte.
Habe nun ein volles Log mit folgenden Fehlermeldungen:

Code Auswählen Erweitern

2015.10.14 00:24:30 2: Undefined subroutine &main::wrapLine called at (eval 1904) line 1.

2015.10.14 00:24:30 2: Undefined subroutine &main::wrapLine called at (eval 1905) line 1.

2015.10.14 00:24:30 2: Undefined subroutine &main::wrapLine called at (eval 1906) line 1.

2015.10.14 00:24:30 2: Undefined subroutine &main::wrapLine called at (eval 1907) line 1.

2015.10.14 00:24:30 2: Undefined subroutine &main::wrapLine called at (eval 1908) line 1.

2015.10.14 00:24:30 2: Undefined subroutine &main::wrapLine called at (eval 1909) line 1.

2015.10.14 00:24:30 2: Undefined subroutine &main::wrapLine called at (eval 1910) line 1.

2015.10.14 00:24:30 2: Undefined subroutine &main::wrapLine called at (eval 1911) line 1.

Kann damit jemand etwas anfangen?

Viele Grüße
Tino

[Adriano]

Ja, ich habe es auch wieder entfernt nachdem mein FHEM die Grätsche gemacht hatte. Werde mir nun was auf OS Ebene mit Perl schreiben.

[RoBra81]

Siehe post #631...

[Ascos]

Siehe post #631...

Siehe post #636...
Habe genau das Skript verwendet und es erzeugte die in post #639 erwähnten Fehler...

[Paul]

Siehe post #636...
Habe genau das Skript verwendet und es erzeugte die in post #639 erwähnten Fehler...

Ich glaube der erwähnte Fehler kommt nach löschen des Script, so hast du auch in#636 geschrieben.

Denke du hast das attr in der readinggroup nicht gelöscht

[RoBra81]

Hallo,

Die Fehlermeldung besagt, dass er die sub wrapLine nicht gefunden hat. Also hast du entweder die sub nicht in deine myUtils übernommen oder diese hat einen Fehler (z. B. das include aus besagtem Post #631 vergessen)...

Ronny