Hlavní navigace

Názor k článku Používáme MythTV v České republice od xxx - --- tv_grab_cz.pl.bak 2010-12-21 20:33:37.000000000 +0100 +++ tv_grab_cz.pl...

  • Článek je starý, nové názory již nelze přidávat.
  • 9. 1. 2011 11:16

    xxx (neregistrovaný)
    --- tv_grab_cz.pl.bak   2010-12-21 20:33:37.000000000 +0100
    +++ tv_grab_cz.pl       2010-12-21 22:35:48.000000000 +0100
    @@ -161,6 +159,7 @@
            my $id = &getChannelId($ch);
            &download('POST', 'http://tv.sms.cz/kategorie/televize/volba_stanice.php',
                    (
    +                       'P_soubor'              => '%2Ftelevize%2Fvolba_stanice.php',
                            'tvs['.$id.']'          => &getChannelCode($ch),
                            'pozice['.$id.']'       => '',
                            'ulozit'                => 'true'
    @@ -178,12 +177,13 @@
                    # download page
                    my $html = Encode::decode_utf8 &download('GET', 'http://tv.sms.cz/index.php',
                            (
    -                               'P_soubor'      => '%2Ftelevize%2Findex.php',
    +                               'P_soubor'      => '%2Ftelevize%2Findex.php%3Fdatum%3D'.$date,
                                    'datum'         => $date,
                                    'casod'         => '0' # 0 = since now; -1 = since the begining of the day
    -                       )
    +                       )
                    );
    
    +               $html =~ s/<table class="porad"/\n<table class="porad"/;
                    my @txt = split /\n/, $html;
    
                    foreach my $line (@txt) {
    @@ -193,9 +193,9 @@
                                            $icon{$ch} = $1;
                                    }
                            }
    -
    -                       if ($line =~ /<table class="porad" /) {
    -                               $line =~ s/<table class="porad" .[^>]+><tr><td .*?>(.*?)<\/table>/&parseHTML($1, $i, $ch, $date)/eg;
    +
    +                       if ($line =~ /<table class="porad"/) {
    +                               $line =~ s/<table class="porad"><tr><td .*?>(.*?)<\/table>/&parseHTML($1, $i, $ch, $date)/eg;
                            }
                    }
            }
    @@ -927,7 +927,7 @@
    
            my $txt;
            foreach my $line (@html) {
    -               if ($line =~ /class="tv"/) {
    +               if ($line =~ /class="tv_volba"/) {
                            $txt .= $line;
                    }
            }
    @@ -941,7 +941,7 @@
            my @group = split /<div class="P_podnadpis">/, $txt;
    
            for (my $i=1; $i<scalar @group; $i++) {
    -               my @chgrp = split /<div class="tv">/, $group[$i];
    +               my @chgrp = split /<div class="tv_volba">/, $group[$i];
    
                    foreach my $ch (@chgrp) {
                            my $tvs = '';