Vlákno názorů k článku Používáme MythTV v České republice od hloupý Nemouš - Zdá se, že tv_grab_cz skript, který roste na...

Zdá se, že tv_grab_cz skript, který roste na pastebin.com přestal fungovat.
Nemohl by na to někdo juknout a opravit to?
Děkuji zoufale pěkně....

--- 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 = '';