[DEFEKT][RELEASE] Rytec EPG Downloader für IPTV Simple PVR Addon

21:00:58.710 T:1555035040  NOTICE: [Rytec EPG Downloader]: rytec downloader started
21:00:58.728 T:1555035040  NOTICE: [Rytec EPG Downloader]: Deutschland/Osterreich/Switzerland - Gemeinsam
21:00:58.728 T:1555035040  NOTICE: [Rytec EPG Downloader]: get sources list
21:01:00.603 T:1555035040  NOTICE: [Rytec EPG Downloader]: get epg
21:01:00.604 T:1555035040  NOTICE: [Rytec EPG Downloader]: get source
21:01:00.859 T:1555035040  NOTICE: [Rytec EPG Downloader]: get epg url
21:01:00.964 T:1555035040  NOTICE: [Rytec EPG Downloader]: get epg
21:01:00.964 T:1555035040  NOTICE: [Rytec EPG Downloader]: get source
21:01:01.553 T:1555035040  NOTICE: [Rytec EPG Downloader]: get epg url
21:01:01.651 T:1555035040  NOTICE: [Rytec EPG Downloader]: get epg
21:01:01.652 T:1555035040  NOTICE: [Rytec EPG Downloader]: get source
21:01:01.741 T:1555035040  NOTICE: [Rytec EPG Downloader]: get epg url
21:01:01.743 T:1555035040  NOTICE: [Rytec EPG Downloader]: error in get epg url
21:01:01.743 T:1555035040  NOTICE: syntax error: line 1, column 49
21:01:01.743 T:1555035040  NOTICE: [Rytec EPG Downloader]: get epg
21:01:01.743 T:1555035040  NOTICE: [Rytec EPG Downloader]: get source
21:01:01.870 T:1555035040  NOTICE: [Rytec EPG Downloader]: get epg url
21:01:01.968 T:1555035040  NOTICE: [Rytec EPG Downloader]: get epg
21:01:01.969 T:1555035040  NOTICE: [Rytec EPG Downloader]: get source
21:01:02.087 T:1555035040  NOTICE: [Rytec EPG Downloader]: get epg url

#!/usr/bin/perl


use strict;
use warnings;


my $rytec = shift;
my $XMLTV;
my $subtitle = "";
my $desc = "";
my $director = "";
my @actors = ();
my $year = "";
my @categories = ();
my $season = "";
my $episode = "";
my $fsk = "";


#
# The categories recognized by tvheadend (see epg.c)
#
my $MOVIE             =    "Movie / Drama";
my $THRILLER          =    "Detective / Thriller";
my $ADVENTURE         =    "Adventure / Western / War";
my $SF                =    "Science fiction / Fantasy / Horror";
my $COMEDY            =    "Comedy";
my $SOAP              =    "Soap / Melodrama / Folkloric";
my $ROMANCE           =    "Romance";
my $HISTORICAL        =    "Serious / Classical / Religious / Historical movie / Drama";
my $XXX               =    "Adult movie / Drama";


my $NEWS              =    "News / Current affairs";
my $WEATHER           =    "News / Weather report";
my $NEWS_MAGAZINE     =    "News magazine";
my $DOCUMENTARY       =    "Documentary";
my $DEBATE            =    "Discussion / Interview / Debate";
my $INTERVIEW         =    $DEBATE ;


my $SHOW              =    "Show / Game show";
my $GAME              =    "Game show / Quiz / Contest";
my $VARIETY           =    "Variety show";
my $TALKSHOW          =    "Talk show";


my $SPORT             =    "Sports";
my $SPORT_SPECIAL     =    "Special events (Olympic Games; World Cup; etc.)";
my $SPORT_MAGAZINE    =    "Sports magazines";
my $FOOTBALL          =    "Football / Soccer";
my $TENNIS            =    "Tennis / Squash";
my $SPORT_TEAM        =    "Team sports (excluding football)";
my $ATHLETICS         =    "Athletics";
my $SPORT_MOTOR       =    "Motor sport";
my $SPORT_WATER       =    "Water sport";


my $KIDS              =    "Children's / Youth programmes";
my $KIDS_0_5          =    "Pre-school children's programmes";
my $KIDS_6_14         =    "Entertainment programmes for 6 to 14";
my $KIDS_10_16        =    "Entertainment programmes for 10 to 16";
my $EDUCATIONAL       =    "Informational / Educational / School programmes";
my $CARTOON           =    "Cartoons / Puppets";


my $MUSIC             =    "Music / Ballet / Dance";
my $ROCK_POP          =    "Rock / Pop";
my $CLASSICAL         =    "Serious music / Classical music";
my $FOLK              =    "Folk / Traditional music";
my $JAZZ              =    "Jazz";
my $OPERA             =    "Musical / Opera";


my $CULTURE           =    "Arts / Culture (without music)";
my $PERFORMING        =    "Performing arts";
my $FINE_ARTS         =    "Fine arts";
my $RELIGION          =    "Religion";
my $POPULAR_ART       =    "Popular culture / Traditional arts";
my $LITERATURE        =    "Literature";
my $FILM              =    "Film / Cinema";
my $EXPERIMENTAL_FILM =    "Experimental film / Video";
my $BROADCASTING      =    "Broadcasting / Press";


my $SOCIAL            =    "Social / Political issues / Economics";
my $MAGAZINE          =    "Magazines / Reports / Documentary";
my $ECONOMIC          =    "Economics / Social advisory";
my $VIP               =    "Remarkable people";


my $SCIENCE           =    "Education / Science / Factual topics";
my $NATURE            =    "Nature / Animals / Environment";
my $TECHNOLOGY        =    "Technology / Natural sciences";
my $DIOLOGY           =    $TECHNOLOGY;
my $MEDECINE          =    "Medicine / Physiology / Psychology";
my $FOREIGN           =    "Foreign countries / Expeditions";
my $SPIRITUAL         =    "Social / Spiritual sciences";
my $FURTHER_EDUCATION =    "Further education";
my $LANGUAGES         =    "Languages";
my $NOCLASS           =    "Unpublished";
my $HOBBIES           =    "Leisure hobbies";
my $TRAVEL            =    "Tourism / Travel";
my $HANDICRAF         =    "Handicraft";
my $MOTORING          =    "Motoring";
my $FITNESS           =    "Fitness and health";
my $COOKING           =    "Cooking";
my $SHOPPING          =    "Advertisement / Shopping";
my $GARDENING         =    "Gardening";


my %REPLACE=(
	"Actionkrimi" => $THRILLER,
	"Dailysoap" => $SOAP,
	"Daily Soap" => $SOAP,
	"Dauerwerbesendung" => $SHOPPING,
	"Dekosoap" => $SOAP,
	"Dokusoap" => $SOAP,
	"Doku-Soap" => $SOAP,
	"E-Sport" => $SPORT,
	"Extremsport" => $SPORT,
	"Extremsport-Reihe" => $SPORT,
	"Freizeit. Kochen" => $COOKING,
	"Historiensoap" => $SOAP,
	"Horror-Krimi" => $THRILLER,
	"Kampfsport" => $SPORT,
	"Kinderabenteuerserie" => $KIDS,
	"Kinder-Abenteuerserie" => $KIDS,
	"Kinder" => $KIDS,
	"Kinder-Fantasyserie" => $KIDS,
	"Kinderkrimiserie" => $KIDS,
	"Kindermagazin" => $KIDS,
	"Kindernachrichten" => $KIDS,
	"Kinderquiz" => $KIDS,
	"Kinderreihe" => $KIDS,
	"Kinderreportage" => $KIDS,
	"Kinderserie" => $KIDS,
	"Kindershow" => $KIDS,
	"Kinderspielshow" => $KIDS,
	"Kinder-Tierserie" => $KIDS,
	"Knast-Soap" => $SOAP,
	"Koch-Dokusoap" => $SOAP,
	"Koch-Doku-Soap" => $SOAP,
	"Kochduell" => $COOKING,
	"Kochsendung" => $COOKING,
	"Kochserie" => $COOKING,
	"Kochshow" => $COOKING,
	"Krimi" => $THRILLER,
	"Krimidrama" => $THRILLER,
	"Krimikomödie" => $THRILLER,
	"Krimireihe" => $THRILLER,
	"Krimiserie" => $THRILLER,
	"Motorradsport" => $SPORT,
	"Motorsport" => $SPORT,
	"Motorsportmagazin" => $SPORT,
	"Mysterykrimi" => $THRILLER,
	"Nachrichten" => $NEWS,
	"Nachrichten. Dokumentation" => $NEWS,
	"Nachrichtenmagazin" => $NEWS_MAGAZINE,
	"Nachrichtenrückblick" => $NEWS,
	"Nachrichtensatire" => $NEWS,
	"Pseudo-Doku-Soap" => $SOAP,
	"Radsport" => $SPORT,
	"Realitysoap" => $SOAP,
	"Reality-Soap" => $SOAP,
	"Regionalnachrichten" => $NEWS,
	"Science-Fiction-Abenteuer" => $SF,
	"Science-Fiction" => $SF,
	"Science-Fiction-Horror" => $SF,
	"Science-Fiction-Serie" => $SF,
	"Science-fiction series" => $SF,
	"Science-Fiction-Thriller" => $SF,
	"SciFi-Actionfilm" => $SF,
	"SciFi-Drama" => $SF,
	"Sci-Fi-Film" => $SF,
	"Sci-Fi-Horror" => $SF,
	"SciFi-Horror" => $SF,
	"SciFi-Komödie" => $SF,
	"Sci-Fi-Serie" => $SF,
	"SciFi-Serie" => $SF,
	"Soap" => $SOAP,
	"Sport" => $SPORT,
	"Sportdoku" => $SPORT,
	"Sporthighlights" => $SPORT,
	"Sportlerdrama" => $SPORT,
	"Sportmagazin" => $SPORT,
	"Sportnachrichten" => $SPORT,
	"Sportquiz" => $SPORT,
	"Sportreportage" => $SPORT,
	"US-Sport" => $SPORT,
	"Wassersport" => $SPORT,
	"Werbesendung" => $SHOPPING,
	"Werbung" => $SHOPPING,
	"Wetterbericht" => $WEATHER,
	"Wintersport" => $SPORT,
	"Zeichentrick" => $CARTOON,
	"Zeichentrickfilm" => $CARTOON,
	"Zeichentrickserie" => $CARTOON,
);


sub parse_subtitle()
{
	# Extract year
	if ($subtitle =~ m/\((\d{4})\)/) {
		$year = $1;
		$subtitle =~ s/\(\d{4}\)//;
		# Remove leading and trailing whitespace
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	}


	# Extract season and episode number
	if ($subtitle =~ m/\(Staffel (\d+), Episode (\d+)\)/) {
		$season = $1;
		$episode = $2;
		$subtitle =~ s/\(Staffel \d+, Episode \d+\)//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	} elsif ($subtitle =~ m/\(Staffel (\d+), Folge (\d+)\)/) {
		$season = $1;
		$episode = $2;
		$subtitle =~ s/\(Staffel \d+, Folge \d+\)//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	} elsif ($subtitle =~ m/\(Staffel (\d+), Folge (\d+)<\)/) {
		$season = $1;
		$episode = $2;
		$subtitle =~ s/\(Staffel \d+, Folge \d+<\)//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	} elsif ($subtitle =~ m/\((\d+) (\d+)\)/) {
		$season = $1;
		$episode = $2;
		$subtitle =~ s/\(\d+ \d+\)//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	}
	# Extract episode number
	elsif ($subtitle =~ m/\(Episode (\d+)\)/) {
		$season = "";
		$episode = $1;
		$subtitle =~ s/\(Episode \d+\)//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	} elsif ($subtitle =~ m/Episode (\d+)/) {
		$season = "";
		$episode = $1;
		$subtitle =~ s/Episode \d+//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	} elsif ($subtitle =~ m/\(Folge (\d+)\)/) {
		$season = "";
		$episode = $1;
		$subtitle =~ s/\(Folge \d+\)//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	} elsif ($subtitle =~ m/\(Folge (\d+)<\)/) {
		$season = "";
		$episode = $1;
		$subtitle =~ s/\(Folge \d+<\)//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	}


	# Extract multiple categories with content rating
	if ($subtitle =~ m/\[([^\]]+\[\d+\][^\]]+)\]/) {
		#TODO push @categories, $1;
		$subtitle =~ s/\[[^\]]+\[\d+\][^\]]+\]//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	}


	# Extrate content rating
	if ($subtitle =~ m/\[0\+\]/) {
		$fsk = "FSK 0";
		$subtitle =~ s/\[0\+\]//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	} elsif ($subtitle =~ m/\[(\d+)\]/) {
		$fsk = "FSK " . $1;
		$subtitle =~ s/\[\d+\]//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	} elsif ($subtitle =~ m/\[(\d+)\+\]/) {
		$fsk = "FSK " . $1;
		$subtitle =~ s/\[\d+\+\]//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	}


	# Extract categories
	while ($subtitle =~ m/\[([^\]]+)\]/) {
		my $text = $1;


		while ($text =~ m/([^\,]+)/) {
			push @categories, $1;
			$text =~ s/[^\,]+//;
			$text =~ s/^\, //;
		}
		$subtitle =~ s/\[[^\]]+\]//;
		$subtitle =~ s/^\s+//;
		$subtitle =~ s/\s+$//;
	}


	$subtitle = "" if "." eq $subtitle;
}


sub parse_desc()
{
	# Remove ()
	$desc =~ s/\(\)//;
	$desc =~ s/^\s+//;
	$desc =~ s/\s+$//;
	if ($desc =~ m/([^-]*) - (.*)/) {
		$subtitle = $1;
		$desc = $2;
	}
}


open $XMLTV, "<$rytec" or die "\e[1;31m$!\e[0m: »$rytec«\n";


while (<$XMLTV>) {
	chomp;


	# Remove wrong and so useless »lang="??"« attributes
	$_ =~ s/ lang="\w\w"//;


	# Handle <programme>
	if (m/^\W+<programme/) {
		# TODO convert timestamps to UTC
		printf "%s\n", $_;
		next;
	}


	# Handle <title>
	if (m/^\W+<title>/) {
		printf "%s\n", $_;
		next;
	}


	# Handle <sub-title>
	if (m/^\W+<sub-title>(.*)<\/sub-title>/) {
		$subtitle = $1;
		parse_subtitle();
		next;
	}


	# Handle <desc>
	if (m/^\W+<desc>(.*)/) {
		$desc = $1;


		# Remove </desc>
		$desc =~ s/<\/desc>//;
		parse_desc();
		next;
	}


	# Handle </programme>
	if (m/^\W+<\/programme>/) {
		printf "    <sub-title>%s</sub-title>\n", $subtitle unless "" eq $subtitle;
		printf "    <desc>%s</desc>\n", $desc unless "" eq $desc;
		if ("" ne $director) {
			printf "    <credits>\n      <director>%s</director>\n", $director;
			for my $actor (@actors) {
				printf "      <actor>%s</actor>\n", $actor;;
			}
			printf "    </credits>\n";
		}
		printf "    <date>%s</date>\n", $year unless "" eq $year;
		for my $category (@categories) {
			if (exists $REPLACE{$category}) {
				printf "    <category>%s</category>\n", $REPLACE{$category};
			} else {
				printf "    <category>»%s«</category>\n", $category;
			}
		}
		printf "    <episode-num system=\"xmltv_ns\">%s.%s.</episode-num>\n", $season, $episode unless "" eq $episode;
		printf "    <rating system=\"FSK\">\n      <value>%s</value>\n    </rating>\n", $fsk unless "" eq $fsk;
		printf "%s\n", $_;
		$subtitle = "";
		$desc = "";
		$director = "";
		@actors = ();
		$year = "";
		@categories = ();
		$season = "";
		$episode = "";
		$fsk = "";
		next;
	}


	# Write channel part
	if (m/\W+<channel/) {
		printf "%s\n", $_;
		next;
	}
	if (m/\W+<display-name>/) {
		# TODO Set lang attribute depending on channel id
		printf "%s\n", $_;
		next;
	}
	if (m/\W+<\/channel>/) {
		printf "%s\n", $_;
		next;
	}


	# Catch all for <?xml>, <!DOCTYPE>, <tv> and </tv>
	if (m/^<.*/) {
		printf "%s\n", $_;
		next;
	}


	# Remove </desc>
	$_ =~ s/<\/desc>//;


	# Handle remaining
	my @words_on_this_line = split(" ", $_);
	if ("" ne $director) {
		push @actors, $_;
	} elsif (10 > scalar(@words_on_this_line)) {
		$director = $_;
	} else {
		$desc = $desc . " - " . $_;
		parse_desc();
	}
}


close ($XMLTV);

21:47:08.513 T:1672475552  NOTICE: [plugin.video.youtube] Startup: detected Krypton (Kodi-17.5), setting DASH_SUPPORT_BUILTIN = False, DASH_SUPPORT_ADDON = True
21:47:08.624 T:1613235104   ERROR: EXCEPTION Thrown (PythonToCppException) : -->Python callback/script returned the following error<--
- NOTE: IGNORING THIS CAN LEAD TO MEMORY LEAKS!
Error Type: <type 'exceptions.ValueError'>
Error Contents: invalid literal for int() with base 10: ''
Traceback (most recent call last):
File "/storage/.kodi/addons/service.rytecepgdownloader/service.py", line 128, in <module>
service()
File "/storage/.kodi/addons/service.rytecepgdownloader/service.py", line 112, in service
if not common.blocked(a):
File "/storage/.kodi/addons/service.rytecepgdownloader/resources/lib/common.py", line 150, in blocked
bt = int(addon.getSetting('bt'))
ValueError: invalid literal for int() with base 10: ''
-->End of Python script error report<--
21:47:08.702 T:1647309728  NOTICE: [Exodus] ######################### EXODUS ############################
21:47:08.703 T:1647309728  NOTICE: [Exodus] ####### CURRENT EXODUS VERSIONS REPORT ######################
21:47:08.703 T:1647309728  NOTICE: [Exodus] ### EXODUS PLUGIN VERSION: 4.1.07 ###
21:47:08.703 T:1647309728  NOTICE: [Exodus] ### EXODUS SCRIPT VERSION: 1.00.025 ###
21:47:08.703 T:1647309728  NOTICE: [Exodus] ### COLOSSUS REPOSITORY VERSION: 4.0.0 ###
21:47:08.703 T:1647309728  NOTICE: [Exodus] ###############################################################
21:47:10.032 T:1630012320  NOTICE: URLResolver: Initializing URLResolver version: 4.0.09
21:47:10.465 T:1504183200   ERROR: Traceback (most recent call last):
21:47:10.465 T:1504183200   ERROR:   File "/storage/.kodi/addons/script.tvguide/source.py", line 346, in _updateChannelAndProgramListCaches
21:47:10.550 T:1504183200   ERROR:     for item in self.source.getDataFromExternal(date, progress_callback):
21:47:10.550 T:1504183200   ERROR:   File "/storage/.kodi/addons/script.tvguide/source.py", line 818, in getDataFromExternal
21:47:10.550 T:1504183200   ERROR:     for idx, channel in enumerate(channels):
21:47:10.550 T:1504183200   ERROR: TypeError: 'NoneType' object is not iterable
21:50:05.423 T:1690575776 WARNING: CSkinInfo: failed to load skin settings
21:50:05.502 T:1690575776   ERROR: EXCEPTION: Non-Existent Control 1
21:50:05.505 T:1690575776   ERROR: EXCEPTION Thrown (PythonToCppException) : -->Python callback/script returned the following error<--
- NOTE: IGNORING THIS CAN LEAD TO MEMORY LEAKS!
Error Type: <type 'exceptions.RuntimeError'>
Error Contents: Non-Existent Control 1
Traceback (most recent call last):
File "/storage/.kodi/addons/screensaver.xbmc.slideshow/resources/lib/gui.py", line 71, in onInit
self._get_settings()
File "/storage/.kodi/addons/screensaver.xbmc.slideshow/resources/lib/gui.py", line 113, in _get_settings
self.image1 = self.getControl(1)
RuntimeError: Non-Existent Control 1
-->End of Python script error report<--
22:05:33.544 T:1690575776   ERROR: CPythonInvoker(18, /storage/.kodi/addons/screensaver.xbmc.slideshow/default.py): failed to run the gc to clean up after running prior to shutting down the Interpreter
22:05:33.544 T:1690575776 WARNING: CPythonInvoker(18, /storage/.kodi/addons/screensaver.xbmc.slideshow/default.py): the python script "/storage/.kodi/addons/screensaver.xbmc.slideshow/default.py" has left several classes in memory that we couldn't clean up. The classes include: N14PythonBindings42XBMCAddon_xbmcgui_WindowXMLDialog_DirectorE,N14PythonBindings31XBMCAddon_xbmc_Monitor_DirectorE,N9XBMCAddon7xbmcgui6WindowE
22:05:42.918 T:1163383712 WARNING: CSkinInfo: failed to load skin settings
22:05:42.938 T:1945563136 WARNING: Skin has invalid include: DefaultBackground
22:05:42.938 T:1945563136 WARNING: Skin has invalid include: TopBar
22:05:42.938 T:1945563136 WARNING: Skin has invalid include: BottomBar
22:05:42.946 T:1945563136   ERROR: Window Translator: Can't find window videolibrary
22:05:42.946 T:1945563136 WARNING: Label Formating: $VAR[GlobalFanartVar] is not defined
22:05:43.015 T:1945563136   ERROR: Control 1000 in window 13005 has been asked to focus, but it can't
22:05:43.026 T:1945563136 WARNING: COMXImageFile::GetCodingType progressive images not supported by decoder
22:05:43.026 T:1945563136  NOTICE: LoadJpeg: unable to load /usr/share/kodi/addons/service.libreelec.settings/resources/skins/Default/media/default/bg.jpg