Moin zusammen!
Habe mir ein Clickfinder Abo besorgt und gestern mal angefangen die Daten zu extrahieren...
Vorgehensweise ist im mythtv-Forum beschrieben - von dort (vom User reznor) habe ich auch die Vorlage für das Importscript "kopiert"...
Bisher noch ungetestet (dazu komme ich wohl erst am Wochenende) - sollte aber eigentlich funktionieren...
Das Script extrahiert aus der tvdaten.mdb (die Datenbank vom Clickfinder) alle relevanten Informationen zum epg-Import für xmltv2vdr.
Was schon funktionieren sollte:
- Angaben aller Sendungsinformationen
- Sendung erhält eine eindeutige ID (falls das über den Zusatz im xml2vdr funktioniert)
- Extrahieren/Kopieren von EPG-Bildern - soweit ich mich erinnere, werden Bilder nach der SendungsID angezeigt - entsprechend wird das Bild vom Clickfinder-Ordner in den Ordner der VDR-Images kopiert und umbenannt in SendungsID.png
Es fehlt allerdings noch:
Kanalnamen-Abgleich zu denen in xmltv2vdr
Hier muss ich mich noch etwas einlesen - ob dort eine "einfache Datei" ausreicht, die ein Mapping vornimmt - dann wäre es nämlich recht einfach und schnell fertig!
Ich habe nicht wirklich viel geändert an der Vorlage, somit erstmal einen großen Dank an reznor vom mythtv-Forum!
Mit ein klein wenig Hilfe vom Joe_D und/oder C-3PO dürfte es recht schnell zum gewünschten Erfolg führen und wir haben endlich perfektes EPG!
<EDIT>
Im letzten Post sind die funktionierenden Scripte hinzugefügt - dort "funktioniert alles"
<EDIT ENDE>
#!/usr/bin/perl -w
## Needed Packages
## mdbtools
################################################################################
##### BEGIN CONFIG #############################################################
################################################################################
## tvmovie .mdb file
# $TVMDB = '/root/bin/tvmovie/tvdaten.mdb';
$TVMDB = '/root/Clickfinder/tvdaten.mdb';
### MW 2010-03-16 #############################################################
$BilderPfadClickFinder = '/root/Clickfinder/Hyperlinks/';
$BilderPfadVDR = '/var/cache/vdr/epgimages/';
$BilderEndung = '.png';
### MW 2010-03-16 ENDE ########################################################
## path to icons
#$ICONPATH = '';
################################################################################
##### END OF CONFIG ############################################################
################################################################################
# Determine if mdbtools are installed
$MDBEXPORT=`which mdb-export`;
chomp($MDBEXPORT);
$MDBSQL=`which mdb-sql`;
chomp($MDBSQL);
$delim = chr(1);
$rowdelim = chr(2);
$senderfile = `$MDBEXPORT -H -R $rowdelim -q '' -d $delim $TVMDB Sender`;
@tvsender = split(/$rowdelim/, $senderfile);
print '<?xml version="1.0" encoding="UTF-8"?>'."\n";
print '<tv generator-info-name="tvm2xml.pl">'."\n";
for ($i=0; $i <= $#tvsender;$i++)
{
chomp ($tvsender[$i]);
(undef, my $SenderKennung, undef, my $Zeichen, undef, undef, undef, undef, my $Favorit, my $Bezeichnung, my $BezeichnungKurz, undef) = split(/$delim/, $tvsender[$i]);
$senderkennung = $SenderKennung;
# $senderkennung =~ s/ /_/g;
### MW 2010-03-16 #####################################################
$senderkennung =~ s/Dmax/dmax.de/;
$senderkennung =~ s/XXP/dmax.de/;
$senderkennung =~ s/13th Street/13th-street.de/;
$senderkennung =~ s/3SAT/3sat.de/;
$senderkennung =~ s/9Live/9live.de/;
$senderkennung =~ s/Alpengluehen TVX/alpengluehen-tvx.de/;
$senderkennung =~ s/Animal Planet/animal-planet.de/;
$senderkennung =~ s/Animax/animax.de/;
$senderkennung =~ s/Anixe HD/anixe.de/;
$senderkennung =~ s/ARD/ard.de/;
$senderkennung =~ s/Arte/arte.de/;
$senderkennung =~ s/ATV Avrupa/atv-avrupa.tr/;
$senderkennung =~ s/ATV+/atvplus.at/;
$senderkennung =~ s/Austria9/austria9.at/;
$senderkennung =~ s/AutoMotorSportChannel/automotorsportchannel.de/;
$senderkennung =~ s/AXN/axntv.de/;
$senderkennung =~ s/Baby TV/baby-tv.de/;
$senderkennung =~ s/B3/bayern3.de/;
$senderkennung =~ s/Beate-Uhse-TV/beate-uhse-tv.de/;
$senderkennung =~ s/Bibel-TV/bibeltv.de/;
$senderkennung =~ s/BloombergTV/bloombergtv.de/;
$senderkennung =~ s/Blue Movie 1/blue-movie-1.de/;
$senderkennung =~ s/Blue Movie 2/blue-movie-2.de/;
$senderkennung =~ s/Blue Movie 3/blue-movie-3.de/;
$senderkennung =~ s/Boomerang/boomerang-tv.de/;
$senderkennung =~ s/BR Alpha/br-alpha.de/;
$senderkennung =~ s/Cartoon Network/cartoon-network.de/;
$senderkennung =~ s/Classica/classica.de/;
$senderkennung =~ s/CNN/cnn.de/;
$senderkennung =~ s/Comedy Central/comedy-central.de/;
$senderkennung =~ s/Das\ Vierte/das-vierte.de/;
$senderkennung =~ s/Detski Mir \/ Teleclub/detski-mir.ru/;
$senderkennung =~ s/Discovery Channel/discovery-channel.de/;
$senderkennung =~ s/Discovery Geschichte/discovery-geschichte.de/;
$senderkennung =~ s/Discovery HD/discovery-hd.de/;
$senderkennung =~ s/Disney Channel/disney-channel.de/;
$senderkennung =~ s/Disney Cinemagic/disney-cinemagic.de/;
$senderkennung =~ s/Disney XD/disney-xd.de/;
$senderkennung =~ s/DK1/dk1.dk/;
$senderkennung =~ s/DK2/dk2.dk/;
$senderkennung =~ s/DSF/dsf.de/;
$senderkennung =~ s/EinsExtra/einsextra.de/;
$senderkennung =~ s/EinsFestival/einsfestival.de/;
$senderkennung =~ s/EinsMuXx/einsmuxx.de/;
$senderkennung =~ s/Entertainment Channel/espn-classic-sport.com/;
$senderkennung =~ s/EURONEWS/euronews.de/;
$senderkennung =~ s/EUROSPORT/eurosport.de/;
$senderkennung =~ s/Eurosport 2/eurosport-2.de/;
$senderkennung =~ s/Euro Star/euro-star.tr/;
$senderkennung =~ s/Fashion TV/fashiontv.fr/;
$senderkennung =~ s/FOCUS Gesundheit/focus-gesundheit.de/;
$senderkennung =~ s/FOX Channel/fox-channel.de/;
$senderkennung =~ s/Goldstar TV/goldstar-tv.de/;
$senderkennung =~ s/gotv/gotv.at/;
$senderkennung =~ s/Gute Laune TV/gute-laune-tv.de/;
$senderkennung =~ s/Heimatkanal/heimatkanal.de/;
$senderkennung =~ s/H3/hessen3.de/;
$senderkennung =~ s/HH1/hh1.de/;
$senderkennung =~ s/History Channel/history-channel.de/;
$senderkennung =~ s/Home Shopping Europe/hse24.de/;
$senderkennung =~ s/iTVN/itvn.pl/;
$senderkennung =~ s/Junior/junior.de/;
$senderkennung =~ s/Kabel/kabel1.de/;
$senderkennung =~ s/kabel eins classics/kabel-eins-classics.de/;
$senderkennung =~ s/Kanal 7 Int/kanal-7-int.tr/;
$senderkennung =~ s/Ki.Ka/kika.de/;
$senderkennung =~ s/Kinowelt TV/kinowelt-tv.de/;
$senderkennung =~ s/K-TV/k-tv.at/;
$senderkennung =~ s/LIG TV/ligtv.tr/;
$senderkennung =~ s/LUST PUR/lust-pur.de/;
$senderkennung =~ s/MCM Top/mcm-top.fr/;
$senderkennung =~ s/MDR/mdr.de/;
$senderkennung =~ s/MEZZO/mezzotv.fr/;
$senderkennung =~ s/MGM/mgm.de/;
$senderkennung =~ s/Motors TV/motors-tv.fr/;
$senderkennung =~ s/MOTORVISION TV/motorvision-tv.de/;
$senderkennung =~ s/MTV/mtv.de/;
$senderkennung =~ s/MTV Base/mtv-base.de/;
$senderkennung =~ s/MTV Dance/mtv-dance.uk/;
$senderkennung =~ s/MTV Entertainment/mtv-entertainment.de/;
$senderkennung =~ s/MTV Hits/mtv-hits.uk/;
$senderkennung =~ s/MTV Music/mtv-music.de/;
$senderkennung =~ s/münchen 2/muenchen-2.de/;
$senderkennung =~ s/N24/n24.de/;
$senderkennung =~ s/Nashe Kino/nashe-kino.ru/;
$senderkennung =~ s/National Geographic/national-geographic.de/;
$senderkennung =~ s/National Geographic Wild/national-geographic-wild.de/;
$senderkennung =~ s/NDR/ndr.de/;
$senderkennung =~ s/Nick Premium/nickcomedy.de/;
$senderkennung =~ s/Nick/nicktoons.de/;
$senderkennung =~ s/Nick jr./nicktoons.de/;
$senderkennung =~ s/NL1/nl1.nl/;
$senderkennung =~ s/NL2/nl2.nl/;
$senderkennung =~ s/NL3/nl3.nl/;
$senderkennung =~ s/NRW.TV/nrwtv.de/;
$senderkennung =~ s/NTV/ntv.de/;
$senderkennung =~ s/OKTO TV/okto-tv.at/;
$senderkennung =~ s/ORF 1/orf1.at/;
$senderkennung =~ s/ORF 2/orf2.at/;
$senderkennung =~ s/Phoenix/phoenix.de/;
$senderkennung =~ s/Planet/planet.de/;
$senderkennung =~ s/Playboy TV/playboy.de/;
$senderkennung =~ s/Playhouse Disney/playhouse-disney.de/;
$senderkennung =~ s/PRO7/prosieben.de/;
$senderkennung =~ s/PULS 4/puls4.at/;
$senderkennung =~ s/QVC/qvc.de/;
$senderkennung =~ s/RBB/rbb.de/;
$senderkennung =~ s/RNF/rhein-neckar-fernsehen.de/;
$senderkennung =~ s/Romance TV/romance-tv.de/;
$senderkennung =~ s/RTL\ II/rtl2.de/;
$senderkennung =~ s/RTL Crime/rtl-crime.de/;
$senderkennung =~ s/RTL Living/rtl-living.de/;
$senderkennung =~ s/RTL Passion/rtl-passion.de/;
$senderkennung =~ s/RTL Shop/rtlshop.de/;
$senderkennung =~ s/RTL/rtl.de/;
$senderkennung =~ s/RTR-Planeta/rtr-planeta.ru/;
$senderkennung =~ s/RTVi/rtvi.ru/;
$senderkennung =~ s/Sailing Channel/sailing-channel.it/;
$senderkennung =~ s/SAT1/sat1.de/;
$senderkennung =~ s/Sat.1 Comedy/sat1-comedy.de/;
$senderkennung =~ s/SCI FI/sci-fi.de/;
$senderkennung =~ s/SF 1/sf1.ch/;
$senderkennung =~ s/SF 2/sf2.ch/;
$senderkennung =~ s/Show Turk/show-turk.tr/;
$senderkennung =~ s/Silverline/silverline-tv.de/;
$senderkennung =~ s/Sixx/sixx.de/;
$senderkennung =~ s/SKY Action/sky-action.de/;
$senderkennung =~ s/SKY Cinema/sky-cinema.de/;
$senderkennung =~ s/SKY Cinema +1/sky-cinema-1.de/;
$senderkennung =~ s/SKY Cinema +24/sky-cinema-24.de/;
$senderkennung =~ s/SKY Cinema Hits/sky-cinema-hits.de/;
$senderkennung =~ s/SKY Comedy/sky-comedy.de/;
$senderkennung =~ s/SKY Emotion/sky-emotion.de/;
$senderkennung =~ s/SKY Fußball Bundesliga/sky-fussball-bundesliga.de/;
$senderkennung =~ s/SKY Krimi/sky-krimi.de/;
$senderkennung =~ s/SKY Nostalgie/sky-nostalgie.de/;
$senderkennung =~ s/SKY Sport HD/sky-sport-1.de/;
$senderkennung =~ s/SKY Sport 1/sky-sport-1.de/;
$senderkennung =~ s/SKY Sport 2/sky-sport-2.de/;
$senderkennung =~ s/SKY Sport Austria/sky-sport-austria.at/;
$senderkennung =~ s/Sonnenklar.TV/sonnenklartv.de/;
$senderkennung =~ s/Spiegel Geschichte/spiegel-geschichte.de/;
$senderkennung =~ s/SPIEGEL TV XXP DIGITAL/spiegel-tv.de/;
$senderkennung =~ s/sportdigital.tv/sportdigitaltv.de/;
$senderkennung =~ s/S RTL/superrtl.de/;
$senderkennung =~ s/SWR/swr.de/;
$senderkennung =~ s/Tele5/tele5.de/;
$senderkennung =~ s/TGRT EU/tgrt-eu.de/;
$senderkennung =~ s/The Biography Channel/the-biography-channel.de/;
$senderkennung =~ s/Tier TV/tier-tv.de/;
$senderkennung =~ s/TIMM/timm.de/;
$senderkennung =~ s/TNT Serie/tnt-serie.de/;
$senderkennung =~ s/Trace.TV/tracetv.fr/;
$senderkennung =~ s/Türkmax/tuerkmax.tr/;
$senderkennung =~ s/Turner Classic Movies/turner-classic-movies.de/;
$senderkennung =~ s/TV5/tv5.de/;
$senderkennung =~ s/TV Berlin/tv-berlin.de/;
$senderkennung =~ s/tv.gusto premium/tv-gusto-premium.de/;
$senderkennung =~ s/TV München/tv-muenchen.de/;
$senderkennung =~ s/TVP Info/tvp-info.pl/;
$senderkennung =~ s/TVP Kultura/tvp-kultura.pl/;
$senderkennung =~ s/TV Polonia/tv-polonia.pl/;
$senderkennung =~ s/TW1/tw1.at/;
$senderkennung =~ s/VIVA/viva.de/;
$senderkennung =~ s/VOX/vox.de/;
$senderkennung =~ s/WDR/wdr.de/;
$senderkennung =~ s/Wetter Fernsehen/wetter-fernsehen.de/;
$senderkennung =~ s/YAVIDO/yavido.de/;
$senderkennung =~ s/yourfamilyentertainment/yourfamilyentertainment.de/;
$senderkennung =~ s/ZDF/zdf.de/;
$senderkennung =~ s/ZDFInfo/zdfinfo.de/;
$senderkennung =~ s/ZDFneo/zdfneo.de/;
$senderkennung =~ s/ZDF Theaterkanal/zdf-theaterkanal.de/;
### MW 2010-03-16 ENDE ################################################
if ($Favorit == 1)
{
print "\t".'<channel id="'.$senderkennung.'">'."\n";
print "\t\t".'<display-name lang="de">'.$Bezeichnung.'</display-name>'."\n";
#print "\t\t".'<icon src ="'.$ICONPATH.'/'.$Zeichen.'"/>'."\n";
print "\t".'</channel>'."\n";
$sender{$SenderKennung} = 1;
}
}
$sendungenfile = `$MDBEXPORT -H -R $rowdelim -q '' -d $delim $TVMDB Sendungen`;
@sendungen = split(/$rowdelim/, $sendungenfile);
$sendungendetailsfile = `$MDBEXPORT -H -R $rowdelim -q '' -d $delim $TVMDB SendungenDetails`;
foreach $details (split(/$rowdelim/, $sendungendetailsfile))
{
(my $Pos, my $Darsteller, my $Beschreibung, undef) = split(/$delim/, $details);
$Beschreibung =~ s#\n#\\n#g;
$Beschreibung =~ s#</?br/?>#\\n#g;
$sendungendetails{$Pos} = {
'Darsteller' => $Darsteller,
'Beschreibung' => $Beschreibung
};
}
for (my $i=0; $i <= $#sendungen; $i++)
{
chomp($sendungen[$i]);
(my $Pos, my $SenderKennung, my $Beginn, my $Ende, my $Titel, my $SendungID, my $InhaltID, my $Aktualisierung, my $Showview, my $ShowviewVPS, my $VPS, my $Kategorietext, my $KurzBeschreibung, my $Bewertung, my $Bilddateiname, my $Dauer, my $Genre, my $Herstellungsjahr, my $Herstellungsland, my $Originaltitel, my $Regie, my $Bewertungen, my $Kurzkritik, my $FSK, my $Keywords, my $KzFilm, my $Kz16zu9, my $KzDolby, my $KzDolbyDigital, my $KzDolbySurround, my $KzLive, my $KzStereo, my $KzSchwarzweis, my $KzTelefon, my $KzUncoded, my $KzUntertitel, my $KzZweikanalton, my $KzAudiodescription, my $KzBilddateiHeruntergeladen, my $KzInFavoritenliste, my $KzImArchiv, my $KzWiederholung) = split(/$delim/, $sendungen[$i]);
if ($sender{$SenderKennung})
{
if (length ${$sendungendetails{$Pos}}{'Beschreibung'})
{
$KurzBeschreibung = ${$sendungendetails{$Pos}}{'Beschreibung'};
} else {
$KurzBeschreibung =~ s#\n# #g;
$KurzBeschreibung =~ s#</?br/?># #g;
}
$colour = 'yes' if ($KzSchwarzweis == 0);
$colour = 'no' if ($KzSchwarzweis == 1);
$aspect = '16:9' if ($Kz16zu9 == 1);
$aspect = '4:3' if ($Kz16zu9 == 0);
$stereo = 'stereo' if ($KzStereo == 1);
$stereo = 'dolby' if ($KzDolby == 1);
$stereo = 'dolby digital' if ($KzDolbyDigital == 1);
$stereo = 'surround' if ($KzDolbySurround == 1);
$stereo = '' if (!$stereo);
$wiederholung = 'yes' if ($KzWiederholung == 1);
$wiederholung = 'no' if ($KzWiederholung == 0);
my $bewertung = 0;
if (length $Bewertungen)
{
my @bewertungen = split(/;/, $Bewertungen);
my $kriterium;
foreach $kriterium (@bewertungen)
{
(undef, my $krit_bewertung) = split(/=/, $kriterium);
$bewertung += $krit_bewertung;
}
if ($bewertung == 0 || $#bewertungen == 0)
{
$bewertung = "0 / 10";
} else {
$bewertung = sprintf("%1d / 10", ($bewertung / ($#bewertungen+1) * 3.33));
}
} else {
$bewertung = "";
}
$senderkennung = $SenderKennung;
# $senderkennung =~ s/ /_/g;
### MW 2010-03-16 #####################################################
$senderkennung =~ s/Dmax/dmax.de/;
$senderkennung =~ s/XXP/dmax.de/;
$senderkennung =~ s/13th Street/13th-street.de/;
$senderkennung =~ s/3SAT/3sat.de/;
$senderkennung =~ s/9Live/9live.de/;
$senderkennung =~ s/Alpengluehen TVX/alpengluehen-tvx.de/;
$senderkennung =~ s/Animal Planet/animal-planet.de/;
$senderkennung =~ s/Animax/animax.de/;
$senderkennung =~ s/Anixe HD/anixe.de/;
$senderkennung =~ s/ARD/ard.de/;
$senderkennung =~ s/Arte/arte.de/;
$senderkennung =~ s/ATV Avrupa/atv-avrupa.tr/;
$senderkennung =~ s/ATV+/atvplus.at/;
$senderkennung =~ s/Austria9/austria9.at/;
$senderkennung =~ s/AutoMotorSportChannel/automotorsportchannel.de/;
$senderkennung =~ s/AXN/axntv.de/;
$senderkennung =~ s/Baby TV/baby-tv.de/;
$senderkennung =~ s/B3/bayern3.de/;
$senderkennung =~ s/Beate-Uhse-TV/beate-uhse-tv.de/;
$senderkennung =~ s/Bibel-TV/bibeltv.de/;
$senderkennung =~ s/BloombergTV/bloombergtv.de/;
$senderkennung =~ s/Blue Movie 1/blue-movie-1.de/;
$senderkennung =~ s/Blue Movie 2/blue-movie-2.de/;
$senderkennung =~ s/Blue Movie 3/blue-movie-3.de/;
$senderkennung =~ s/Boomerang/boomerang-tv.de/;
$senderkennung =~ s/BR Alpha/br-alpha.de/;
$senderkennung =~ s/Cartoon Network/cartoon-network.de/;
$senderkennung =~ s/Classica/classica.de/;
$senderkennung =~ s/CNN/cnn.de/;
$senderkennung =~ s/Comedy\ Central/comedy-central.de/;
$senderkennung =~ s/Das\ Vierte/das-vierte.de/;
$senderkennung =~ s/Detski\ Mir\ \/\ Teleclub/detski-mir.ru/;
$senderkennung =~ s/Discovery\ Channel/discovery-channel.de/;
$senderkennung =~ s/Discovery\ Geschichte/discovery-geschichte.de/;
$senderkennung =~ s/Discovery\ HD/discovery-hd.de/;
$senderkennung =~ s/Disney Channel/disney-channel.de/;
$senderkennung =~ s/Disney Cinemagic/disney-cinemagic.de/;
$senderkennung =~ s/Disney XD/disney-xd.de/;
$senderkennung =~ s/DK1/dk1.dk/;
$senderkennung =~ s/DK2/dk2.dk/;
$senderkennung =~ s/DSF/dsf.de/;
$senderkennung =~ s/EinsExtra/einsextra.de/;
$senderkennung =~ s/EinsFestival/einsfestival.de/;
$senderkennung =~ s/EinsMuXx/einsmuxx.de/;
$senderkennung =~ s/Entertainment Channel/espn-classic-sport.com/;
$senderkennung =~ s/EURONEWS/euronews.de/;
$senderkennung =~ s/EUROSPORT/eurosport.de/;
$senderkennung =~ s/Eurosport\ 2/eurosport-2.de/;
$senderkennung =~ s/Euro\ Star/euro-star.tr/;
$senderkennung =~ s/Fashion\ TV/fashiontv.fr/;
$senderkennung =~ s/FOCUS\ Gesundheit/focus-gesundheit.de/;
$senderkennung =~ s/FOX\ Channel/fox-channel.de/;
$senderkennung =~ s/Goldstar\ TV/goldstar-tv.de/;
$senderkennung =~ s/gotv/gotv.at/;
$senderkennung =~ s/Gute\ Laune TV/gute-laune-tv.de/;
$senderkennung =~ s/Heimatkanal/heimatkanal.de/;
$senderkennung =~ s/H3/hessen3.de/;
$senderkennung =~ s/HH1/hh1.de/;
$senderkennung =~ s/History\ Channel/history-channel.de/;
$senderkennung =~ s/Home\ Shopping Europe/hse24.de/;
$senderkennung =~ s/iTVN/itvn.pl/;
$senderkennung =~ s/Junior/junior.de/;
$senderkennung =~ s/Kabel/kabel1.de/;
$senderkennung =~ s/kabel\ eins\ classics/kabel-eins-classics.de/;
$senderkennung =~ s/Kanal\ 7\ Int/kanal-7-int.tr/;
$senderkennung =~ s/Ki.Ka/kika.de/;
$senderkennung =~ s/Kinowelt\ TV/kinowelt-tv.de/;
$senderkennung =~ s/K-TV/k-tv.at/;
$senderkennung =~ s/LIG\ TV/ligtv.tr/;
$senderkennung =~ s/LUST\ PUR/lust-pur.de/;
$senderkennung =~ s/MCM\ Top/mcm-top.fr/;
$senderkennung =~ s/MDR/mdr.de/;
$senderkennung =~ s/MEZZO/mezzotv.fr/;
$senderkennung =~ s/MGM/mgm.de/;
$senderkennung =~ s/Motors TV/motors-tv.fr/;
$senderkennung =~ s/MOTORVISION TV/motorvision-tv.de/;
$senderkennung =~ s/MTV/mtv.de/;
$senderkennung =~ s/MTV\ Base/mtv-base.de/;
$senderkennung =~ s/MTV\ Dance/mtv-dance.uk/;
$senderkennung =~ s/MTV\ Entertainment/mtv-entertainment.de/;
$senderkennung =~ s/MTV\ Hits/mtv-hits.uk/;
$senderkennung =~ s/MTV\ Music/mtv-music.de/;
$senderkennung =~ s/münchen\ 2/muenchen-2.de/;
$senderkennung =~ s/N24/n24.de/;
$senderkennung =~ s/Nashe\ Kino/nashe-kino.ru/;
$senderkennung =~ s/National\ Geographic/national-geographic.de/;
$senderkennung =~ s/National\ Geographic Wild/national-geographic-wild.de/;
$senderkennung =~ s/NDR/ndr.de/;
$senderkennung =~ s/Nick\ Premium/nickcomedy.de/;
$senderkennung =~ s/Nick/nicktoons.de/;
$senderkennung =~ s/Nick\ jr./nicktoons.de/;
$senderkennung =~ s/NL1/nl1.nl/;
$senderkennung =~ s/NL2/nl2.nl/;
$senderkennung =~ s/NL3/nl3.nl/;
$senderkennung =~ s/NRW.TV/nrwtv.de/;
$senderkennung =~ s/NTV/ntv.de/;
$senderkennung =~ s/OKTO TV/okto-tv.at/;
$senderkennung =~ s/ORF\ 1/orf1.at/;
$senderkennung =~ s/ORF\ 2/orf2.at/;
$senderkennung =~ s/Phoenix/phoenix.de/;
$senderkennung =~ s/Planet/planet.de/;
$senderkennung =~ s/Playboy\ TV/playboy.de/;
$senderkennung =~ s/Playhouse\ Disney/playhouse-disney.de/;
$senderkennung =~ s/PRO7/prosieben.de/;
$senderkennung =~ s/PULS\ 4/puls4.at/;
$senderkennung =~ s/QVC/qvc.de/;
$senderkennung =~ s/RBB/rbb.de/;
$senderkennung =~ s/RNF/rhein-neckar-fernsehen.de/;
$senderkennung =~ s/Romance\ TV/romance-tv.de/;
$senderkennung =~ s/RTL\ II/rtl2.de/;
$senderkennung =~ s/RTL\ Crime/rtl-crime.de/;
$senderkennung =~ s/RTL\ Living/rtl-living.de/;
$senderkennung =~ s/RTL\ Passion/rtl-passion.de/;
$senderkennung =~ s/RTL\ Shop/rtlshop.de/;
$senderkennung =~ s/RTL/rtl.de/;
$senderkennung =~ s/RTR-Planeta/rtr-planeta.ru/;
$senderkennung =~ s/RTVi/rtvi.ru/;
$senderkennung =~ s/Sailing\ Channel/sailing-channel.it/;
$senderkennung =~ s/SAT1/sat1.de/;
$senderkennung =~ s/Sat.1\ Comedy/sat1-comedy.de/;
$senderkennung =~ s/SCI\ FI/sci-fi.de/;
$senderkennung =~ s/SF\ 1/sf1.ch/;
$senderkennung =~ s/SF\ 2/sf2.ch/;
$senderkennung =~ s/Show\ Turk/show-turk.tr/;
$senderkennung =~ s/Silverline/silverline-tv.de/;
$senderkennung =~ s/Sixx/sixx.de/;
$senderkennung =~ s/SKY\ Action/sky-action.de/;
$senderkennung =~ s/SKY\ Cinema/sky-cinema.de/;
$senderkennung =~ s/SKY\ Cinema +1/sky-cinema-1.de/;
$senderkennung =~ s/SKY\ Cinema +24/sky-cinema-24.de/;
$senderkennung =~ s/SKY\ Cinema Hits/sky-cinema-hits.de/;
$senderkennung =~ s/SKY\ Comedy/sky-comedy.de/;
$senderkennung =~ s/SKY\ Emotion/sky-emotion.de/;
$senderkennung =~ s/SKY\ Fußball Bundesliga/sky-fussball-bundesliga.de/;
$senderkennung =~ s/SKY\ Krimi/sky-krimi.de/;
$senderkennung =~ s/SKY\ Nostalgie/sky-nostalgie.de/;
$senderkennung =~ s/SKY Sport HD/sky-sport-1.de/;
$senderkennung =~ s/SKY\ Sport\ 1/sky-sport-1.de/;
$senderkennung =~ s/SKY\ Sport\ 2/sky-sport-2.de/;
$senderkennung =~ s/SKY\ Sport\ Austria/sky-sport-austria.at/;
$senderkennung =~ s/Sonnenklar.TV/sonnenklartv.de/;
$senderkennung =~ s/Spiegel\ Geschichte/spiegel-geschichte.de/;
$senderkennung =~ s/SPIEGEL\ TV\ XXP\ DIGITAL/spiegel-tv.de/;
$senderkennung =~ s/sportdigital.tv/sportdigitaltv.de/;
$senderkennung =~ s/S\ RTL/superrtl.de/;
$senderkennung =~ s/SWR/swr.de/;
$senderkennung =~ s/Tele5/tele5.de/;
$senderkennung =~ s/TGRT\ EU/tgrt-eu.de/;
$senderkennung =~ s/The\ Biography\ Channel/the-biography-channel.de/;
$senderkennung =~ s/Tier\ TV/tier-tv.de/;
$senderkennung =~ s/TIMM/timm.de/;
$senderkennung =~ s/TNT\ Serie/tnt-serie.de/;
$senderkennung =~ s/Trace.TV/tracetv.fr/;
$senderkennung =~ s/Türkmax/tuerkmax.tr/;
$senderkennung =~ s/Turner\ Classic\ Movies/turner-classic-movies.de/;
$senderkennung =~ s/TV5/tv5.de/;
$senderkennung =~ s/TV\ Berlin/tv-berlin.de/;
$senderkennung =~ s/tv.gusto\ premium/tv-gusto-premium.de/;
$senderkennung =~ s/TV\ München/tv-muenchen.de/;
$senderkennung =~ s/TVP\ Info/tvp-info.pl/;
$senderkennung =~ s/TVP\ Kultura/tvp-kultura.pl/;
$senderkennung =~ s/TV\ Polonia/tv-polonia.pl/;
$senderkennung =~ s/TW1/tw1.at/;
$senderkennung =~ s/VIVA/viva.de/;
$senderkennung =~ s/VOX/vox.de/;
$senderkennung =~ s/WDR/wdr.de/;
$senderkennung =~ s/Wetter\ Fernsehen/wetter-fernsehen.de/;
$senderkennung =~ s/YAVIDO/yavido.de/;
$senderkennung =~ s/yourfamilyentertainment/yourfamilyentertainment.de/;
$senderkennung =~ s/ZDF/zdf.de/;
$senderkennung =~ s/ZDFInfo/zdfinfo.de/;
$senderkennung =~ s/ZDFneo/zdfneo.de/;
$senderkennung =~ s/ZDF\ Theaterkanal/zdf-theaterkanal.de/;
### MW 2010-03-16 ENDE ################################################
$dauer = $Dauer;
$dauer =~ s/[^\d]*(\d+)[^\d]*/$1/;
print "\t".'<programme start="'.formatDate($Beginn).' +0100" stop="'.formatDate($Ende).' +0100" channel="'.$senderkennung.'">'."\n";
print "\t\t".'<title lang="de"><![CDATA['.$Titel.']]></title>'."\n";
if (length $Originaltitel > 1)
{
print "\t\t".'<sub-title lang="de"><![CDATA['.$Originaltitel.']]></sub-title>'."\n";
}
if (length $KurzBeschreibung > 1)
{
print "\t\t".'<desc lang="de"><![CDATA['.$KurzBeschreibung.']]></desc>'."\n";
}
print "\t\t".'<credits>'."\n";
if (length $Regie > 1)
{
print "\t\t\t".'<director><![CDATA['.$Regie.']]></director>'."\n";
}
if (${$sendungendetails{$Pos}}{'Darsteller'})
{
foreach $actor (split(/;/, ${$sendungendetails{$Pos}}{'Darsteller'}))
{
$actor =~ s/ ?\([^(]*\)//;
print "\t\t\t".'<actor><![CDATA['.$actor.']]></actor>'."\n";
}
}
print "\t\t".'</credits>'."\n";
if (length $Herstellungsjahr > 1)
{
print "\t\t".'<date>'.$Herstellungsjahr.'</date>'."\n";
}
if (length $Kategorietext > 1)
{
print "\t\t".'<category lang="de"><![CDATA['.$Kategorietext.']]></category>'."\n";
}
if ($Genre ne "" && $Genre ne $Kategorietext)
{
print "\t\t".'<category lang="de"><![CDATA['.$Genre.']]></category>'."\n";
}
### MW 2010-03-16 #####################################################
use File::Copy;
# Hinzufügen der Sendungs ID
if (length $SendungID > 1)
{
print "\t\t".'<category lang="de">'.$SendungID.'</category>'."\n";
}
# Erstellen des entsprechenden Bildes (falls vorhanden) als Kopie mit Namen der SendungID
if (lc($Bilddateiname) =~ /jpg/)
{
# Bildinformationen vorhanden
copy($BilderPfadClickFinder.$Bilddateiname, $BilderPfadVDR.$SendungID.$BilderEndung);
}
### MW 2010-03-16 ENDE ################################################
if (length $Herstellungsland > 1)
{
print "\t\t".'<country lang="de"><![CDATA['.$Herstellungsland.']]></country>'."\n";
}
# print "\t\t".'<length units="minutes">'.$dauer.'</length>'."\n";
#print "\t\t".'<previously-shown lang="de">'.$wiederholung.'</previously-shown>'."\n";
# print "\t\t".'<star-rating>'.$bewertung.'</star-rating>'."\n";
print "\t\t".'<video>'."\n";
print "\t\t\t".'<present>yes</present>'."\n";
if (length $colour > 1)
{
print "\t\t\t".'<colour>'.$colour.'</colour>'."\n";
}
if (length $aspect > 1)
{
print "\t\t\t".'<aspect>'.$aspect.'</aspect>'."\n";
}
print "\t\t".'</video>'."\n";
print "\t\t".'<audio>'."\n";
print "\t\t\t".'<present>yes</present>'."\n";
if (length $stereo > 1)
{
print "\t\t\t".'<stereo>'.$stereo.'</stereo>'."\n";
}
print "\t\t".'</audio>'."\n";
if (length $FSK > 1)
{
print "\t\t".'<rating system="FSK">'."\n";
print "\t\t\t".'<value>'.$FSK.'</value>'."\n";
print "\t\t".'</rating>'."\n";
}
print "\t".'</programme>'."\n";
}
}
print '</tv>';
sub formatDate
{
$date = shift(@_);
# 12/12/09 02:45:00
($mm, $dd, $yy, $HH, $MM, $SS) = ($date =~ /(\d\d)\/(\d\d)\/(\d\d) (\d\d):(\d\d):(\d\d)/);
# 20110210200000 +0100
return '20'.$yy.$mm.$dd.$HH.$MM.$SS;
}
Alles anzeigen