#!/usr/bin/perl

system("rm -rf channels.dat*");
system("rm -rf 1-xmltv_radiotimes_com.xml*");
system("wget http://xmltv.radiotimes.com/xmltv/channels.dat");

my %hash = ();

open(OUTPUT, '>', "1-xmltv_radiotimes_com.xml");
print OUTPUT "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";
print OUTPUT "<Grabber>\n";
print OUTPUT "  <Info language=\"en\" availableDays=\"0\" timezone=\"GMT Standard Time\" version=\"2.0.4\" />\n";
print OUTPUT "  <Channels>\n";

open(INPUT, "channels.dat") || die("Cannot open channels.dat configuration file");

my @lines = <INPUT>;
foreach my $line (@lines) {
    chomp($line);
    #print "line: $line\n";

    if ($line =~ /.*\|.*/) {

        ($id, $channel) = split(/\|/, $line);
        #@arr = split(/|/, $line);
        #print "arr $arr[0]";
        #print("id: $id\n");
        #print("ch: $channel\n");
        $channel =~ s/&/\+/;
    
        $hash{${channel}} = $id;
    }
}


foreach $key (sort keys %hash) {
     #print "$key: $hash{$key}\n";
     print OUTPUT "    <Channel id=\"${key}.com\" siteId=\"$hash{$key}\" />\n";
}


print OUTPUT "  </Channels>\n";
print OUTPUT "  <Listing type=\"Data\">\n";
print OUTPUT "    <Site url=\"http://xmltv.radiotimes.com/xmltv/[ID].dat\" post=\"\" external=\"false\" encoding=\"\" />\n";
print OUTPUT "    <Data rowDelimitor=\"&#xA;\" dataDelimitor=\"~\">#TITLE~~#SUBTITLE~~~#ACTORS~~~#REPEAT~#SUBTITLES~~~~~~~#GENRE~#DESCRIPTION~~#DATE~#START~#END~\n</Data>\n";
print OUTPUT "  </Listing>\n";
print OUTPUT "</Grabber>\n";

close(OUTPUT);
close(INPUT);

#system("unix2dos 1-xmltv_radiotimes_com.xml");
system("cp 1-xmltv_radiotimes_com.xml /cygdrive/c/ProgramData/Team\\\ MediaPortal/MediaPortal\\\ TV\\\ Server/WebEPG/grabbers/GB/");