#!/usr/bin/perl 
use Date::Calc qw(:all);

$date = `date`;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;

$year_f=$year+1900;
$mon=$mon+1;
if ($mon < 10) {
$mon="0".$mon;
}

if ($mday < 10) {
$mday="0".$mday;
}


print"Öffne Datei xml_giga.dat\n";

open(FD, "> xml_giga.dat") or die("Konnte xml_giga.dat nicht öffnen\n");



print FD"<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>
<!DOCTYPE tv SYSTEM \"xmltv.dtd\">

<tv source-info-url=\"http://www.giga.de/\" source-data-url=\"http://www.giga/tv/guide\" generator-info-name=\"XMLTV\" 
generator-info-url=\"http://membled.com/work/apps/xmltv/\">

  <channel id=\"GigaTV.de\">
    <display-name lang=\"de\">GigaTV</display-name>
    <icon src=\"http://static1.giga.de/grafik/navigation/logo-giga.gif\" />
  </channel>";

print"Erzeuge Xml\n";
$number=0;
while (1)
{
$number++;
if ($number >= 10 ) {
last;
}

print FD"
  <programme start=\"$year_f$mon$mday"."060000 +0100\" stop=\"$year_f$mon$mday"."100000 +0100\" channel=\"GigaTV.de\">
    <title lang=\"de\">Giga Music Box</title>
    <desc lang=\"de\">Hier gibt es die neusten TOP Musikvideos locker und kompetent moderiert von den GIGA 
Netzreportern!</desc>    
    <credits>
      <presenter>Giga Netzreporter</presenter>
    </credits>
    <date>$year_f</date>
    <category lang=\"de\">Musik</category>
    <country lang=\"de\">Deutschland</country>
  </programme>

  <programme start=\"$year_f$mon$mday"."100000 +0100\" stop=\"$year_f$mon$mday"."120000 +0100\" channel=\"GigaTV.de\">
    <title lang=\"de\">ZOOlenovela</title>
    <desc lang=\"de\">Telenovella mal ganz anders: Innovativ und spaßig die ZOOlenovela! Gigas 
Antwort auf \"Verliebt in 
Berlin\"! Giga vor Ort im Duisburger Zoo!</desc>
    <date>$year_f</date>
    <category lang=\"de\">Telenovella</category>
    <country lang=\"de\">Deutschland</country>
  </programme>

  <programme start=\"$year_f$mon$mday"."130000 +0100\" stop=\"$year_f$mon$mday"."153000 +0100\" channel=\"GigaTV.de\">
    <title lang=\"de\">Giga</title>
    <desc lang=\"de\">Interaktive Fernsehen der Generation-@. Giga präsentierts kurrile und spannende Themen aus den 
Bereichen Entertainment, Lifestyle und Technologies.</desc>
    <credits>
      <presenter>Hüseyin</presenter>
      <presenter>Daniel</presenter>
      <presenter>Andrea</presenter>
<presenter>Jana Ina</presenter>
<presenter>Susanne</presenter>
<presenter>Alex</presenter>
<presenter>Martin</presenter>
<presenter>Marco</presenter>
    </credits>
    <date>$year_f</date>
    <category lang=\"de\">Computer</category>
    <country lang=\"de\">Deutschland</country>
  </programme>

  <programme start=\"$year_f$mon$mday"."153000 +0100\" stop=\"$year_f$mon$mday"."160000 +0100\" channel=\"GigaTV.de\">
    <title lang=\"de\">Giga real</title>
    <desc lang=\"de\">Das Nachrichtenformat ohne Schlips und Kragen. Aktuell, kritisch und informativ und mit Studiogästen aus Politik und Wirtschaft. Täglich live, direkt vom Brandenburger 
Tor in Berlin.</desc>
    <credits>
      <presenter>Alex</presenter>
      <presenter>Matthias</presenter>
      <presenter>Christoph</presenter>
    </credits>
    <date>$year_f</date>
    <category lang=\"de\">Politik</category>
    <country lang=\"de\">Deutschland</country>
  </programme>


  <programme start=\"$year_f$mon$mday"."171500 +0100\" stop=\"$year_f$mon$mday"."201500 +0100\" channel=\"GigaTV.de\">
    <title lang=\"de\">Giga</title>
    <desc lang=\"de\">Interaktive Fernsehen der Generation-@. Giga präsentierts kurrile und spannende Themen aus 
den
Bereichen Entertainment, Lifestyle und Technologies.</desc>
    <credits>
      <presenter>Hüseyin</presenter>
      <presenter>Daniel</presenter>
      <presenter>Andrea</presenter>
<presenter>Jana Ina</presenter>
<presenter>Susanne</presenter>
<presenter>Alex</presenter>
<presenter>Martin</presenter>
<presenter>Marco</presenter>
    </credits>
    <date>$year_f</date>
    <category lang=\"de\">Computer</category>
    <country lang=\"de\">Deutschland</country>
  </programme>


  <programme start=\"$year_f$mon$mday"."203000 +0100\" stop=\"$year_f$mon$mday"."210000 +0100\" channel=\"GigaTV.de\">
    <title lang=\"de\">Giga real</title>
    <desc lang=\"de\">Das Nachrichtenformat ohne Schlips und Kragen. Aktuell, kritisch und informativ und mit Studiogästen aus Politik und Wirtschaft. Täglich live, direkt vom Brandenburger
Tor in Berlin.</desc>
    <credits>
      <presenter>Alex</presenter>
      <presenter>Matthias</presenter>
      <presenter>Christoph</presenter>
    </credits>
    <date>$year_f</date>
    <category lang=\"de\">Politik</category>
    <country lang=\"de\">Deutschland</country>
  </programme>


  <programme start=\"$year_f$mon$mday"."210000 +0100\" stop=\"$year_f$mon$mday"."220000 +0100\" channel=\"GigaTV.de\">
    <title lang=\"de\">Giga Play</title>
    <desc lang=\"de\">Bei GIGA Play befassen sich Gregor und Vio mit Trends aus der Computerspiele Welt</desc>
    <credits>
      <presenter>Vio</presenter>
      <presenter>Gregor</presenter>
    </credits>
    <date>$year_f</date>
    <category lang=\"de\">Politik</category>
    <country lang=\"de\">Deutschland</country>
  </programme>";



$days = Date_to_Text($year_f,$mon,$mday);
$day_out=substr($days,0,3);




if ( $day_out eq "Mon" || $day_out eq "Tue" ) {


print FD"
  <programme start=\"$year_f$mon$mday"."220000";

$mday=$mday+1;
print FD" +0100\" stop=\"$year_f$mon$mday"."000000 +0100\" channel=\"GigaTV.de\">
    <title lang=\"de\">Giga eSports</title>
    <desc lang=\"de\">Giga eSports präsentiert euch die neusten Infos rund um eSports</desc>
    <credits>
      <presenter>Budi</presenter>
      <presenter>Etienne</presenter>

    </credits>
    <date>$year_f</date>
    <category lang=\"de\">Games</category>
    <country lang=\"de\">Deutschland</country>
  </programme>
";

}
else
{

print FD"
  <programme start=\"$year_f$mon$mday"."220000";

$mday=$mday+1;
print FD" +0100\" stop=\"$year_f$mon$mday"."000000 +0100\" channel=\"GigaTV.de\">
    <title lang=\"de\">Giga Games</title>
    <desc lang=\"de\">Giga Games präsentiert euch die neusten PC- und Konsolenspiele und alles drum herum.</desc>
    <credits>
      <presenter>Ade</presenter>
      <presenter>Michael</presenter>
      <presenter>Simon</presenter>
     <presenter>Felix</presenter>
     <presenter>Nils</presenter>
     <presenter>Vio</presenter>

    </credits>
    <date>$year_f</date>
    <category lang=\"de\">Games</category>
    <country lang=\"de\">Deutschland</country>
  </programme>
";

}






print FD"
  <programme start=\"$year_f$mon$mday"."030000 +0100\" stop=\"$year_f$mon$mday"."050000 +0100\" channel=\"GigaTV.de\">
    <title lang=\"de\">Night watch</title>
    <desc lang=\"de\">Die private Chillout Lounge mit Aquarium und Go-Go-Girls für zu hause</desc>
    <date>$year_f</date>
    <category lang=\"de\">Politik</category>
    <country lang=\"de\">Deutschland</country>
  </programme>";


}

print"Xml erzeugt\n";
print FD"</tv>";
close(FD);
print"Datei geschlossen.\n";
