Aktuelles TV-Programm in FHEM

[Paul]

Der Kanal hat sicher nichts da zu suchen, wo du die Zeit auslesen willst

[Tommy82]

Der Kanal hat sicher nichts da zu suchen, wo du die Zeit auslesen willst

Aber so hat es RoBra81 ja geschrieben würde es bei ihm funktionieren!? Und woher soll das at sonst wissen wo es hinschalten soll?

WIe müsste es deiner meinung nach ausehen?

[RoBra81]

Doch, der channel ist richtig dort, da auf jedem Sender die nächste Sendung zu einem anderen Zeitpunkt anfängt. Es soll also zum Beispiel der Startzeitpunkt der nächsten Sendung auf RTL aus dem Reading rtl_time_next ausgelesen werden...

Wenn er bei dir um 00:00 Uhr versucht umzuschalten, dann scheint das at ja definiert worden zu sein (das müsstest du ja nach einem klick auf die nächste Sendung auch im fhem finden). Ist nur noch die Frage, warum er die Zeit nicht findet... Kannst du mal versuchen, den ReadingsVal-Befehl (mit einem richtigen channel) in geschweiften Klammern im Kommandofeld einzugeben?

[Tommy82]

Wie meinst du soll das aussehen?
So?

Code Auswählen Erweitern

.ReadingsVal('TV_Programme_next', $Das_Erste_HD'_next_time', '00:00')

[RoBra81]

So:

Code Auswählen Erweitern

{ReadingsVal('TV_Programme_next','Das_Erste_HD_next_time','00:00')}
Der Sender (in dem Fall Das_Erste_HD muss demzufolge so im HTTPMOD vom TV_Programm_next existierten)

[Tommy82]

Hab ich gemacht, es wird dann ein 00:00 zugrückgegeben

[RoBra81]

Heißt das HTTPMOD bei dir TV_Programme_next und gibt es da ein Reading Das_Erste_HD_next_time (Groß- und Kleinschreibung beachten)?

[RoBra81]

Ich habe beim durchsehen meines Codes noch einen Fehler gefunden (der aber erstmal nix mit deinem Problem zu tun haben dürfte). Ersetze mal bitte die Zeilen

Code Auswählen Erweitern


    my @array = split(/_/, $channel);
    $channel = $array[0];


mit der Zeile

Code Auswählen Erweitern


$channel =~ s/_next//g;


sonst kann Probleme bei Sendern mit _ im Namen geben...

[Tommy82]

Heißt das HTTPMOD bei dir TV_Programme_next und gibt es da ein Reading Das_Erste_HD_next_time (Groß- und Kleinschreibung beachten)?

JaEin

TV_Programme_next

und

Code Auswählen Erweitern

readingsRegex_ARD_next_time

Der Channel auf den dann umgeschaltet werden soll heißt im Enigma2 Modul

Code Auswählen Erweitern

Das_Erste_HD
Da könnte ja schon ein fehler liegen!?

[RoBra81]

Nein, das ist kein Fehler, dafür gibt es ja das Mapping. Ich habe aber das Problem erkannt - kannst du mal die komplette Funktion (das sub) posten, da korrigiere ich es mal...

[Tommy82]

Hier mein sub

Code Auswählen Erweitern

############################################
sub
switchChannel($)
{
  my %channellist = (
    pro7 => 'ProSieben_HD',
    rtl => 'RTL',
ard => 'Das_Erste_HD',
    kabel_1 => 'kabel_eins_HD',
sat1 => 'SAT.1_HD',
    rtl2 => 'RTL_II',
sport1 => '',
    vox => 'VOX',
zdf => 'ZDF_HD',


  );
 
  my $TVDevice = 'VU_Ultimo';

  my ($channel) = @_;
  $channel =~ s/_time//g;
  $channel = lc $channel;
  my $next = 0;
  if ($channel =~ /_next/)
  {
    my @array = split(/_/, $channel);
    $channel = $array[0];
    $next = 1;
  }
  my $command = '';
 
  $command = 'set '.$TVDevice.' channel '.$channellist{$channel};

  if ($command ne '')
  {
    if ($next == 1)
    {
      $command =~ s/;/;;/g;
      fhem('delete '.$TVDevice.'.Senderwechsel.at');
      fhem('define '.$TVDevice.'.Senderwechsel.at at '.ReadingsVal('TV_Programme_next', $channel.'_next_time', '00:00').' '.$command);
      fhem('attr '.$TVDevice.'.Senderwechsel.at room Wohnzimmer');
    }
    else
{
    Log(1, 'Channelnumber not found for channel: '.$channel);
  }
}


Hoffe ich hab alles richtig kopiert, bin unterwegs und konnte Grad nur übers Handy zugreifen

[RoBra81]

Das Problem war, dass bei mir die Readings alle mit Kleinbuchstaben sind und daher geht's bei mir. Bei dir ist ARD z.B. groß geschrieben. Ich habe es mal geändert, aber nicht getestet. So könnte es u.U. funktionieren - kannst du es mal probieren?:

Code Auswählen Erweitern

############################################
sub
switchChannel($)
{
  my %channellist = (
    pro7 => 'ProSieben_HD',
    rtl => 'RTL',
ard => 'Das_Erste_HD',
    kabel_1 => 'kabel_eins_HD',
sat1 => 'SAT.1_HD',
    rtl2 => 'RTL_II',
sport1 => '',
    vox => 'VOX',
zdf => 'ZDF_HD',


  );
 
  my $TVDevice = 'VU_Ultimo';

  my ($channel) = @_;
  $channel =~ s/_time//g;
  my $next = 0;
  if ($channel =~ /_next/)
  {
  $channel =~ s/_next//g;
    $next = 1;
  }
  my $command = '';
 
  $command = 'set '.$TVDevice.' channel '.$channellist{lc $channel};

  if ($command ne '')
  {
    if ($next == 1)
    {
      $command =~ s/;/;;/g;
      fhem('delete '.$TVDevice.'.Senderwechsel.at');
      fhem('define '.$TVDevice.'.Senderwechsel.at at '.ReadingsVal('TV_Programme_next', $channel.'_next_time', '00:00').' '.$command);
      fhem('attr '.$TVDevice.'.Senderwechsel.at room Wohnzimmer');
    }
    else
{
    Log(1, 'Channelnumber not found for channel: '.$channel);
  }
}

[Tommy82]

Ja aber erst heute Abend, meld mich dann. Danke schon mal

[Tommy82]

Wenn ich das in meine myutils eingebe kommt beim speichern

Code Auswählen Erweitern

ERROR:

Missing right curly or square bracket at ./FHEM/99_myUtils.pm line 145, at end of line syntax error at ./FHEM/99_myUtils.pm line 145, at EOF
In line 145 ist nur die geschweifte Klammer

}

Also hab ich noch eine } dahinter gesetzt, hoffe das war richtig?

Der nächste Sendungswechsel ist um 11:40, hab den mal angeklickt, dann sollte automatisch von jetzt Pro7 auf Sat1 gewechselt werden, mal sehn obs jetzt klappt:-)

Allerdings hab ich grade schon festgestellt das das normale Umschalten jetzt wieder nicht mehr klappt, im Log gibts jetzt den Fehler:

Code Auswählen Erweitern

2014.11.16 11:20:16.287 1: Channelnumber not found for channel: Sat1

Denn gabs doch am anfang mal, denn hattest du doch eigentlich korregiert!?

[Tommy82]

So, habs jetzt nochmal so abgeändert, jetzt klappt das normale Umschalten wieder, allerdings das Umschalten auf das "next" Programm geht nicht

Code Auswählen Erweitern

############################################
sub
switchChannel($)
{
  my %channellist = (
    pro7 => 'ProSieben_HD',
    rtl => 'RTL',
ard => 'Das_Erste_HD',
    kabel_1 => 'kabel_eins_HD',
sat1 => 'SAT.1_HD',
    rtl2 => 'RTL_II',
sport1 => '',
    vox => 'VOX',
zdf => 'ZDF_HD',
  );
 
  my $TVDevice = 'VU_Ultimo';

  my ($channel) = @_;
  $channel =~ s/_time//g;
  $channel = lc $channel;
  my $next = 0;
  if ($channel =~ /_next/)
  {
    my @array = split(/_/, $channel);
    $channel = $array[0];
    $next = 1;
  }
  my $command = '';
 
  $command = 'set '.$TVDevice.' channel '.$channellist{$channel};

  if ($command ne '')
  {
    if ($next == 1)
    {
      $command =~ s/;/;;/g;
      fhem('delete '.$TVDevice.'.Senderwechsel.at');
      fhem('define '.$TVDevice.'.Senderwechsel.at at '.ReadingsVal('TV_Programm.dann', $channel.'_next_time', '00:00').' '.$command);
      fhem('attr '.$TVDevice.'.Senderwechsel.at room Wohnzimmer');
    }
    else
    {
      fhem($command);
    }
  }
  else
  {
    Log(1, 'Channelnumber not found for channel: '.$channel);
  }
}

Bekomme im Log dann diesen Fehler:

Code Auswählen Erweitern

2014.11.16 15:33:29.303 1: PERL WARNING: Use of uninitialized value in concatenation (.) or string at ./FHEM/99_myUtils.pm line 130.
2014.11.16 15:33:29.322 3: delete VU_Ultimo.Senderwechsel.at : Please define VU_Ultimo.Senderwechsel.at first

In Zeile 130 steht

Code Auswählen Erweitern

$command = 'set '.$TVDevice.' channel '.$channellist{$channel};
und das at heisst bei mir

VU_Ultimo.Senderwechsel.at