TV Programm - Versionsgeschichte

Ph1959de: Tippfehler?

2022-11-20T15:44:14Z

Tippfehler?

← Nächstältere Version		Version vom 20. November 2022, 17:44 Uhr
Zeile 678:		Zeile 678:

	=== rssFeed Device anlegen: ===		=== rssFeed Device anlegen: ===

	Das Attribut rfAllReadingsEvents sorgt dafür, dass EPG-Aktualisierung auch zu Events führen in Verbindung mit event-on-change / event-on-update. Siehe dazu commandref zum Modul rssFeed.		Das Attribut rfAllReadingsEvents sorgt dafür, dass EPG-Aktualisierung auch zu Events führen in Verbindung mit event-on-change / event-on-update. Siehe dazu commandref zum Modul rssFeed.

	<pre>		<pre>
	defmod ~~Dev_Mutlimedia_EPG_Spartensender~~ rssFeed http://www.texxas.de/tv/spartensenderJetzt.xml 300		defmod Dev_Multimedia_EPG_Spartensender rssFeed http://www.texxas.de/tv/spartensenderJetzt.xml 300
	attr ~~Dev_Mutlimedia_EPG_Spartensender~~ rfAllReadingsEvents 1		attr Dev_Multimedia_EPG_Spartensender rfAllReadingsEvents 1
	</pre>		</pre>

LordVoodoo: /* Variante 4 (RSS Daten einlesen): */ Auslesen des rss-Feed mittels des Moduls rssFeed ohne Umweg über eine rss2json-Konvertierung. Der vorher genannte Dienst rss2json.com cached die Ergebnisse und so erhält man ohne dynamische URL-Anpassung, z.B. timestamp als Zusatzparameter in der URL, keine Zeitgenossen Ergebnisse. Weiterhin hat man eine dynamische Sortierreihenfolge, beim rssFeed scheint diese fix zu sein.

2022-11-20T09:02:51Z

Variante 4 (RSS Daten einlesen):: Auslesen des rss-Feed mittels des Moduls rssFeed ohne Umweg über eine rss2json-Konvertierung. Der vorher genannte Dienst rss2json.com cached die Ergebnisse und so erhält man ohne dynamische URL-Anpassung, z.B. timestamp als Zusatzparameter in der URL, keine Zeitgenossen Ergebnisse. Weiterhin hat man eine dynamische Sortierreihenfolge, beim rssFeed scheint diese fix zu sein.

← Nächstältere Version		Version vom 20. November 2022, 11:02 Uhr
Zeile 670:		Zeile 670:
	== Variante 4 (RSS Daten einlesen): ==		== Variante 4 (RSS Daten einlesen): ==

	~~Zuerst muss ein Service gefunden werden~~, ~~der RSS zu JSON Daten konvertieren kann~~. ~~Anbieten würde sich hier z.B. www.rss2json.com. Hier kann man sich kostenlos anmelden und einen API Key generieren~~.		Die Website texxas.de stellt das aktuelle TV-Programm in einem RSS-Feed bereit, dies erzeugt eine sehr geringe Downloadmenge. Die Website unterteilt das Programm in verschiedene Kategorien:
			* Hauptsender (ARD, ZDF, RTL, ProSieben, Sat.1, Kabel1, VOX)
			* Spartensender (Anixe HD, ARTE, Bibel TV, Comedy Central, DMAX, HGTV, Kabel Eins Classics, MTV, One)
			* Regionalsender
			* Dokumentation
			* …

	=== ~~httpmod~~ Device anlegen: ===		=== rssFeed Device anlegen: ===

	~~Vergesst bitte nicht im unten stehenden Code euren API Key einzutragen!~~		Das Attribut rfAllReadingsEvents sorgt dafür, dass EPG-Aktualisierung auch zu Events führen in Verbindung mit event-on-change / event-on-update. Siehe dazu commandref zum Modul rssFeed.

	<pre>		<pre>
	defmod ~~TV_JETZT_HAUPTSENDER HTTPMOD https~~://~~api~~.~~rss2json~~.~~com~~/v1/~~api.json?rss_url=http%3A%2F%2Fwww.texxas.de%2Ftv%2FhauptsenderJetzt~~.xml~~&api_key=<dein API Key>&order_by=pubDate&order_dir=asc&count=100~~ 300		defmod Dev_Mutlimedia_EPG_Spartensender rssFeed http://www.texxas.de/tv/spartensenderJetzt.xml 300
	attr ~~TV_JETZT_HAUPTSENDER userattr get01Name get01URL getEncode readingEncode~~		attr Dev_Mutlimedia_EPG_Spartensender rfAllReadingsEvents 1
	~~attr TV_JETZT_HAUPTSENDER disable~~ 1
	~~attr TV_JETZT_HAUPTSENDER extractAllJSON 1~~
	~~attr TV_JETZT_HAUPTSENDER get01Name update~~
	~~attr TV_JETZT_HAUPTSENDER get01URL https://api.rss2json.com/v1/api.json?rss_url=http%3A%2F%2Fwww.texxas.de%2Ftv%2FhauptsenderJetzt.xml&api_key=<dein API Key>&order_by=pubDate&order_dir=asc&count=100~~
	~~attr TV_JETZT_HAUPTSENDER getEncode UTF-8~~
	~~attr TV_JETZT_HAUPTSENDER readingEncode UTF-8~~
	~~attr TV_JETZT_HAUPTSENDER timeout 10~~
	</pre>		</pre>

	~~www~~.~~texxas~~.~~de bietet weitere rss an,~~ die ~~man ebenfalls einbinden könnte. Wie man daraus dann eine readingsGroup erstellt~~, ~~muss ich leider schuldig bleiben~~, ~~ich habe diesen Ansatz nicht weiter verfolgt~~. ~~Funktionieren würde er aber~~ und ~~das Download Volumen~~ ist ~~bei jeder Abfrage nur einige wenige kb~~.		Anschließend liegen je Sender zwei Readings vor:
			{\| class="wikitable"
			\|+
			!Reading
			!Wert
			\|-
			\|n01_title
			\|ARD Alpha: Panoramabilder
			\|-
			\|n01_description
			\|20.11.2022 08:20 - 09:45
			\|-
			\|n02_title
			\|ARTE: 27 - Das europäische Magazin
			\|-
			\|n02_description
			\|20.11.2022 09:30 - 10:15<nowiki><br></nowiki>In Europa ist die Sterbehilfe in gerade einmal vier Ländern erlaubt: in den Niederlanden, Belgien, Luxemburg und seit neuestem auch in Spanien. Die Schweiz hat mit der aktiven Sterbehilfe einen alternativen Weg gewählt. In Frankreich hat die nationale Ethikkommission das Thema im September wieder auf den Tisch gebracht und sich für eine "streng geregelte" Form der Sterbehilfe ausgesprochen. Wie sollten kranke Menschen mit Sterbewillen begleitet werden? Unter welchen Umständen ist die akt ...
			\|}
	[[Datei:screenshot-2018-04-28-16-28-03.png\|200px\|thumb\|left\|Beispiel]]		[[Datei:screenshot-2018-04-28-16-28-03.png\|200px\|thumb\|left\|Beispiel]]

	[[Kategorie:Code Snippets]]		[[Kategorie:Code Snippets]]

Mumpitzstuff: timezone problems fixed

2020-05-03T22:52:42Z

timezone problems fixed

← Nächstältere Version		Version vom 4. Mai 2020, 00:52 Uhr
Zeile 87:		Zeile 87:
	#my $timeAdjust = 86400;		#my $timeAdjust = 86400;

			# internal variable
			my $timepiece = 0;

	~~my $redt = qr/^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(?~~:~~\s+([+-]\d{4}))?$/~~;		eval "use Time::Piece";
			$timepiece = 1 if (!$@);

	~~sub time2xmltv(~~$)
	{
	~~my @t~~ = ~~localtime(shift);~~
	~~return sprintf~~(~~"%04d%02d%02d%02d%02d%02d",~~ $~~t[5]+1900, $t[4]+1, $t[3], $t[2], $t[1], $t[0]~~);
	}

	sub xmltv2epoch($)		sub xmltv2epoch($)
	{		{
	my $dt = shift;		my $t = shift;

	if (~~$dt~~ =~ $~~redt~~)		if (1 == $timepiece)
	{		{
	~~#if (defined($7))~~		return Time::Piece->strptime($t, '%Y%m%d%H%M%S %z')->epoch;
	#{
	# return ~~$1.'-'.$2.'-'.$3.' '.$4.'~~:~~'.$5.'~~:'.$6.' '~~.$7;~~
	#}
	~~#else~~
	#{
	~~return $1.'-'.$2.'~~-~~'.$3.' '.$4.':'.$5.':'.$6~~;
	#}
	}		}
			else
			{
			substr($t, 8, 0) = 'T';

	return ~~'2000-01-01 00:00:00'~~;		return str2time($t);
			}
	}		}

Zeile 142:		Zeile 135:
	my $n = 0;		my $n = 0;
	my $k = 0;		my $k = 0;
	my $primeTime = substr(FmtDateTime(time() - $timeAdjust), 0, 11).'20:14:00';		my $primeTime = substr(FmtDateTime(time() + $timeAdjust), 0, 11).'20:14:00';
	my $sendTelnet = '';		my $sendTelnet = '';

	if (!$@)		if (!$@)
	{		{
	my $old = ~~time2xmltv(~~time() - $timeAdjust);		my $old = time() + $timeAdjust;

	foreach (@{forcearray($xml->{'tv'}{'programme'})})		foreach (@{forcearray($xml->{'tv'}{'programme'})})
Zeile 153:		Zeile 146:
	if ($_->{'channel'}{'value'} =~ $channelFilter)		if ($_->{'channel'}{'value'} =~ $channelFilter)
	{		{
	my $stop = ~~substr~~($_->{'stop'}{'value'}~~, 0, 14~~);		my $stop = xmltv2epoch($_->{'stop'}{'value'});

	# filter old stuff		# filter old stuff
	if (($stop ~~cmp~~ $old~~) >= 0~~)		if ($stop > $old)
	{		{
	if ($lastChannel ne $_->{'channel'}{'value'})		if ($lastChannel ne $_->{'channel'}{'value'})
Zeile 171:		Zeile 164:
	{		{
	my $fi = sprintf("%03d", $i);		my $fi = sprintf("%03d", $i);
	my $start = ~~str2time(~~xmltv2epoch($_->{'start'}{'value'}));		my $start = xmltv2epoch($_->{'start'}{'value'});
	my $readingName;		my $readingName;
	my $readingValue;		my $readingValue;

	~~#$stop = str2time(xmltv2epoch($_->{'stop'}{'value'}));~~

	$readingName = 'next_'.$reading.'_'.$fi.'_bdate';		$readingName = 'next_'.$reading.'_'.$fi.'_bdate';
Zeile 225:		Zeile 216:
	if ($n < 3 && (!defined($mode) \|\| 'prime' eq $mode))		if ($n < 3 && (!defined($mode) \|\| 'prime' eq $mode))
	{		{
	my $start = ~~str2time(~~xmltv2epoch($_->{'start'}{'value'}));		my $start = xmltv2epoch($_->{'start'}{'value'});
	my $fmtStart = FmtDateTime($start);		my $fmtStart = FmtDateTime($start);
	my $bdate = substr($fmtStart, 0, 10);		my $bdate = substr($fmtStart, 0, 10);
Zeile 235:		Zeile 226:
	my $readingName;		my $readingName;
	my $readingValue;		my $readingValue;

	~~#$stop = str2time(xmltv2epoch($_->{'stop'}{'value'}));~~

	$readingName = 'prime_'.$reading.'_'.$fn.'_bdate';		$readingName = 'prime_'.$reading.'_'.$fn.'_bdate';
Zeile 373:		Zeile 362:
	# http://91.121.106.172/~rytecepg/epg_data/rytecDE_SportMovies.xz		# http://91.121.106.172/~rytecepg/epg_data/rytecDE_SportMovies.xz
	my $output = qx(wget http://www.vuplus-community.net/rytec/rytecDE_Basic.xz -O /opt/fhem/tv/rytecDE_Basic.xz 2>&1);		my $output = qx(wget http://www.vuplus-community.net/rytec/rytecDE_Basic.xz -O /opt/fhem/tv/rytecDE_Basic.xz 2>&1);
			#my $output = qx(wget http://192.168.178.100:8083/fhem/www/images/guide.xml -O /opt/fhem/tv/rytecDE_Basic 2>&1);
	#print $output;		#print $output;
	$output = qx(xz -df /opt/fhem/tv/rytecDE_Basic.xz 2>&1);		$output = qx(xz -df /opt/fhem/tv/rytecDE_Basic.xz 2>&1);

Mumpitzstuff: timing bug fixed

2020-02-17T21:00:36Z

timing bug fixed

← Nächstältere Version		Version vom 17. Februar 2020, 23:00 Uhr
Zeile 103:		Zeile 103:
	if ($dt =~ $redt)		if ($dt =~ $redt)
	{		{
	if (defined($7))		#if (defined($7))
	{		#{
	return $1.'-'.$2.'-'.$3.' '.$4.':'.$5.':'.$6.' '.$7;		# return $1.'-'.$2.'-'.$3.' '.$4.':'.$5.':'.$6.' '.$7;
	}		#}
	else		#else
	{		#{
	return $1.'-'.$2.'-'.$3.' '.$4.':'.$5.':'.$6;		return $1.'-'.$2.'-'.$3.' '.$4.':'.$5.':'.$6;
	}		#}
	}		}

Mumpitzstuff: /* Perl Script einrichten: */

2020-01-17T00:05:12Z

Perl Script einrichten:

← Nächstältere Version		Version vom 17. Januar 2020, 02:05 Uhr
Zeile 441:		Zeile 441:

	<pre>		<pre>
	"perl /opt/fhem/tv/tv.pl dmy_TV downloadMerge"		perl /opt/fhem/tv/tv.pl dmy_TV downloadMerge
	</pre>		</pre>

Mumpitzstuff: /* Perl Script einrichten: */

2020-01-17T00:04:29Z

Perl Script einrichten:

← Nächstältere Version		Version vom 17. Januar 2020, 02:04 Uhr
Zeile 441:		Zeile 441:

	<pre>		<pre>
	perl /opt/fhem/tv/tv.pl dmy_TV ~~download~~		"perl /opt/fhem/tv/tv.pl dmy_TV downloadMerge"
	</pre>		</pre>

Mumpitzstuff: /* at Devices anlegen: */

2020-01-16T23:59:59Z

at Devices anlegen:

← Nächstältere Version		Version vom 17. Januar 2020, 01:59 Uhr
Zeile 455:		Zeile 455:

	<pre>		<pre>
	defmod at_TV_DOWNLOAD at *00:10:00 {if ((1 == $wday) \|\| (4 == $wday)) {fhem("perl /opt/fhem/tv/tv.pl dmy_TV downloadMerge")}}		defmod at_TV_DOWNLOAD at *00:10:00 {if ((1 == $wday) \|\| (4 == $wday)) {fhem("\"perl /opt/fhem/tv/tv.pl dmy_TV downloadMerge\"")}}
	</pre>		</pre>

Mumpitzstuff: more channels added

2019-12-30T14:10:05Z

more channels added

@@ Zeile 491: / Zeile 491: @@
 dmy_TV:<%tv/dmax>,next_DMax_000_btime,<{rgUnfold($DEVICE,'next_DMax_000_')}@next_DMax_000_title>,<|>,next_DMax_001_btime,<{rgUnfold($DEVICE,'next_DMax_001_')}@next_DMax_001_title>,<|>,next_DMax_002_btime,<{rgUnfold($DEVICE,'next_DMax_002_')}@next_DMax_002_title>\
 dmy_TV:<%tv/vox>,next_Vox_000_btime,<{rgUnfold($DEVICE,'next_Vox_000_')}@next_Vox_000_title>,<|>,next_Vox_001_btime,<{rgUnfold($DEVICE,'next_Vox_001_')}@next_Vox_001_title>,<|>,next_Vox_002_btime,<{rgUnfold($DEVICE,'next_Vox_002_')}@next_Vox_002_title>\
-dmy_TV:<%tv/kabel1>,next_Kabel_000_btime,<{rgUnfold($DEVICE,'next_Kabel_000_')}@next_Kabel_000_title>,<|>,next_Kabel_001_btime,<{rgUnfold($DEVICE,'next_Kabel_001_')}@next_Kabel_001_title>,<|>,next_Kabel_002_btime,<{rgUnfold($DEVICE,'next_Kabel_002_')}@next_Kabel_002_title>
+dmy_TV:<%tv/kabel1>,next_Kabel_000_btime,<{rgUnfold($DEVICE,'next_Kabel_000_')}@next_Kabel_000_title>,<|>,next_Kabel_001_btime,<{rgUnfold($DEVICE,'next_Kabel_001_')}@next_Kabel_001_title>,<|>,next_Kabel_002_btime,<{rgUnfold($DEVICE,'next_Kabel_002_')}@next_Kabel_002_title>\
 attr rg_TV alias Aktuelles TV-Programm
 attr rg_TV cellStyle { \
@@ Zeile 519: / Zeile 539: @@
 dmy_TV:<%tv/vox>,prime_Vox_000_btime,<{rgUnfold($DEVICE,'prime_Vox_000_')}@prime_Vox_000_title>,<|>,prime_Vox_001_btime,<{rgUnfold($DEVICE,'prime_Vox_001_')}@prime_Vox_001_title>,<|>,prime_Vox_002_btime,<{rgUnfold($DEVICE,'prime_Vox_002_')}@prime_Vox_002_title>\
 dmy_TV:<%tv/kabel1>,prime_Kabel_000_btime,<{rgUnfold($DEVICE,'prime_Kabel_000_')}@prime_Kabel_000_title>,<|>,prime_Kabel_001_btime,<{rgUnfold($DEVICE,'prime_Kabel_001_')}@prime_Kabel_001_title>,<|>,prime_Kabel_002_btime,<{rgUnfold($DEVICE,'prime_Kabel_002_')}@prime_Kabel_002_title>\
+dmy_TV:<%tv/kabel1classic>,prime_KabelEinsClassic_000_btime,<{rgUnfold($DEVICE,'prime_KabelEinsClassic_000_')}@prime_KabelEinsClassic_000_title>,<|>,prime_KabelEinsClassic_001_btime,<{rgUnfold($DEVICE,'prime_KabelEinsClassic_001_')}@prime_KabelEinsClassic_001_title>,<|>,prime_KabelEinsClassic_002_btime,<{rgUnfold($DEVICE,'prime_KabelEinsClassic_002_')}@prime_KabelEinsClassic_002_title>\
 attr rg_TV_PRIME alias TV-Programm Primetime
 attr rg_TV_PRIME cellStyle { \

Mumpitzstuff: merge feature used | split of next and prime updates

2019-12-30T14:06:54Z

merge feature used | split of next and prime updates

← Nächstältere Version		Version vom 30. Dezember 2019, 16:06 Uhr
Zeile 452:		Zeile 452:
	==== at Devices anlegen: ====		==== at Devices anlegen: ====

	2 "at" Devices müssen angelegt werden. Eins für den Download (alle 3 Tage 1x), eins für das Parsen der aktuellen Daten ins Dummy Device (alle 15 Minuten). Die 2 "at" sind als raw Definitionen kopiert und können auch als solche wieder angelegt werden. Dazu irgend ein Device öffnen, ganz unten auf "Raw definition" klicken und alles entfernen. Den Code von hier einfügen und ausführen und die Devices sind angelegt. Jedes at Device muss separat angelegt werden!		3 "at" Devices müssen angelegt werden. Eins für den Download (alle 3 Tage 1x), eins für das Parsen der aktuellen Daten ins Dummy Device (alle 15 Minuten) und eins für das Parsen der Primtime Sendungen (einmal am Tag). Die 3 "at" sind als raw Definitionen kopiert und können auch als solche wieder angelegt werden. Dazu irgend ein Device öffnen, ganz unten auf "Raw definition" klicken und alles entfernen. Den Code von hier einfügen und ausführen und die Devices sind angelegt. Jedes at Device muss separat angelegt werden!

	<pre>		<pre>
	defmod at_TV_DOWNLOAD at *00:15:00 {if ((1 == $wday) \|\| (4 == $wday)) {fhem("perl /opt/fhem/tv/tv.pl dmy_TV ~~download~~")}}		defmod at_TV_DOWNLOAD at *00:10:00 {if ((1 == $wday) \|\| (4 == $wday)) {fhem("perl /opt/fhem/tv/tv.pl dmy_TV downloadMerge")}}
	</pre>		</pre>

	<pre>		<pre>
	defmod at_TV_UPDATE at +*00:15:00 "perl /opt/fhem/tv/tv.pl dmy_TV ~~parse~~"		defmod at_TV_UPDATE at +*00:15:00 "perl /opt/fhem/tv/tv.pl dmy_TV next"
			</pre>

			<pre>
			defmod at_TV_UPDATE_PRIME at *00:15:00 "perl /opt/fhem/tv/tv.pl dmy_TV prime"
	</pre>		</pre>

Mumpitzstuff: script runtime optimizations and bugfixes | merge feature added

2019-12-30T14:02:05Z

script runtime optimizations and bugfixes | merge feature added

Änderungen zeigen