#!/usr/bin/perl

my @channel_numbers;
my %num_name_id;

`wget http://www.digitalspy.co.uk/satellite/skyepg/`;
open (CFILE,'index.html');
foreach (<CFILE>)
{
        push(@channel_numbers,$_);
}

sub get_name_from_num
{
        my $num = shift;
        my $found_it = 0;
        foreach (@channel_numbers)
        {
                if ($found_it)
                {
                        if ($_ =~m/<b>(.*)<\/b>/)
                        {
                                return $1;
                        }
                }
                elsif ($_=~m/font-weight: 600;\">$num<\/td>/)
                {
                        $found_it = 1;
                }
        }
}

sub set_xmlid_with_name
{
        my $name = shift;
        my $id = shift;
        foreach (keys(%num_name_id))
        {
                if ($num_name_id{$_}{'name'}=~m/$name/i)
                {
                        #print("Matched $_ $name $id !\n");
                        $num_name_id{$_}{'id'} = $id;
                        return 1;
                }
        }
        #print("Could not match $name !\n");
        return 0;
}

foreach (@channel_numbers)
{
        if ($_=~m/font-weight: 600;\">(\d\d\d)<\/td>/)
        {
                my $name = get_name_from_num($1);
                $num_name_id{$1}{'name'}=$name;
                #print ("Channel number $1 name $name\n");
        }

}

my @raw_channel_list = `tv_grab_uk_rt --list-channels`;
my $look_for_name = 0;
my $look_for_id = 1;

`rm matched_channels`;
`rm matched_channels.xmltv`;
`rm unmatched_channels`;
`rm unmatched_channels.xmltv`;
open(MATCH,'>matched_channels');
open(MATCH2,'>matched_channels.xmltv');
open(UNMATCH,'>unmatched_channels');
open(UNMATCH2,'>unmatched_channels.xmltv');

sub get_name_from_id
{
        my $id = shift;
        my $found_it = 0;
        foreach (@raw_channel_list)
        {
                if ($found_it)
                {
                        $_ =~/<display-name>(.*)<\/display-name>/;
                        return $1;
                }
                if ($_ =~m/channel id=\"$id\"/)
                {
                        $found_it = 1;
                }
        }
}

foreach (@raw_channel_list)
{
        #print $_;
        if ($_ =~m/channel id=\"(.*)\"/)
        {
                my $name=get_name_from_id($1);
                set_xmlid_with_name($name,$1);
                #{
        #               print MATCH ("$name,$1\n");
#                       print MATCH2 ("channel $1\n");
#               }
                #$channels{$1}=0;
                #$look_for_name = 1;
        }

        #<channel id="west.bbc2.bbc.co.uk">
        #    <display-name>BBC2 West</display-name>


}

# Output the data
foreach (keys(%num_name_id))
{
        my $name = $num_name_id{$_}{'name'};
        my $id = $num_name_id{$_}{'id'};
        if ($name ne '' and $id ne '')
        {
                print("Matched $name\n");
                print MATCH ("$_,$name,$id\n");
                print MATCH2 ("channel $id\n");
        }
        else
        {
                print("Failed to match $name\n");
                print UNMATCH ("$_,$name,$id\n");
                print UNMATCH2 ("channel $id\n");
        }
}

close(MATCH,'>matched_channels');
close(MATCH2,'>matched_channels.xmltv');
close(UNMATCH,'>unmatched_channels');
close(UNMATCH2,'>unmatched_channels.xmltv');

print("Created the following files: \n\n");
print(" matched_channels         = input file for update_channels\n");
print(" matched_channels.xmltv   = corresponding .xmltv file to be copied into /home/mythtv/.mythtv/\n");
print(" unmatched_channels       = these are all the channel names I couldn't\n");
print("                            match from http://www.digitalspy.co.uk/satellite/skyepg/\n");
print(" unmatched_channels.xmltv = as above but .xmltv file\n");
print("\n\nNow you will have to manually add channels from unmatched_channels\n");
print("into matched channels (most notably BBC1, BBC2, ITV and 5 as these\n");
print("are specific to the region you live in\n\n");
print("You might also want to remove channels you don't subscribe to\n");
print("\nWhen you are finished, run update_channels matched_channels to update\n");
print("The sql database for Knoppmyth\n")