xmltv tv_grab_fi

Onko tv_grab_fi taas kosahtanut jostain syystä vai mikä on kun ei tule ohjelmatietoja ollenkaan. Kanavalistaus toimii kyllä. Onko kellään samoja ongelmia?

Vielä pari päivää sitten, kuun lopussa, toimi OK.

 

Ihan hyvin tuntuu toimivan mulla. 2006.6.20.0 versio käytössä.

 

Mikäs versio tuo on? Linux/windows pohjalla?

Latailin uusimman linuxille, sanoo olevansa version 1.47 2006/04/12

 

Saman huomasin minäkin.
Versio 1.47, 2006/04/12, Linuxissa.

Onkohan telkku.com muuttanut sivua jotenkin?

-Tomi

 

Kuun alussahan aloitti ne pari mtv3:n lisäkanavaa, mutta kun kattelin telkku.comia niin ei sieltä ainakaan niitä näkynyt.

Kanavalistaus tulee ok, mutta ei mitään ohjelmia. Kokeilin paria muuta
grabberia ja ne näyttää toimivan...

 

Itseasiassa ei tunnu toimivan sittenkään :hitme: Windows versio käytössä.

 

Velipoika oli havainnut,että Telkku.com vaihtanut kellonajoissa välimerkin tuplapisteesta pisteeksi.Eikun perliskriptiä editoimaan...

 

Juu huomasin saman, tosin en saanut toimimaan muuttamalla kaksoispistettä pisteeksi. Näyttää siltä että ohjelmien kuvaus ei enää löydy kellonajan ja ohjelman nimen perästä, ja telkku.comin html näyttää muutenkin erilaiselta mitä tv_grab skripti olettaa. Pitää jatkaa tutkimista...

-Tomi

 

Veli lähetti skriptiin tekemänsä muutokset.Tässä nämä ovat.
*******************************************
Moi,

Alla tekemäni muutokset kommentteineen - koskevat siis get_program_data
-aliohjelman alkua...

t. Juha

--------------------------------------------------------------------------


sub get_program_data {
my $tree = shift;
t "get_program_data() ENTRY for tree: $tree";
my @data;
# Dump the html-tree to a string for matching
my $html = $tree->as_HTML;

#ao. rivillä muutettu tuplapiste pisteeksi
while ($html =~ m/<b>([0-9]{2}\.[0-9]{2})
(.+?)<\/b><br>(.*?)<br><br>/g) {
# Use decode_entities() to convert html characters
# to ascii (e.g &auml; to ä)
#ao. rivit lisätty, kun ei osaa tehdä tyylikkäämminkään
my $tmp_jh1 = $1;
my $tmp_jh2 = $2;
my $tmp_jh3 = $3;
#ao. rivillä kellonajasta muutetaan piste tuplapisteeksi, jotta XML(?):n
autom. kellorutiinit sen
myöhemmin tunnistaisivat oikein
$tmp_jh1 =~ s/\./:/;
#ao. rivi muutettu, jotta väliin laitettu oma osuus ei tuhoaisi jatkoa
my %keys = (time => $tmp_jh1,
title => decode_entities($tmp_jh2),
desc => decode_entities($tmp_jh3),
);

 

Jees, kiitos. Nyt toimii taas listaukset! :thumbsup:
Vaikka aikaisemmin jotain muuta kirjoitinkin niin eihän tuossa tosiaan ollut muuttunut kuin kellonajan kaksoispiste :hitme:

-Tomi

 

No perkules. Ei nyt kyllä jostain syystä onnaa tuo skriptin muokkaaminen. Voisko joku liittää muokatun ja toimivan tv_grab_fi filen? Vai mikäs tässä on pielessä?

Koodi:

sub get_program_data {
    my $tree = shift;
    t "get_program_data() ENTRY for tree: $tree";
    my @data;
    # Dump the html-tree to a string for matching
    my $html = $tree->as_HTML;
    while ($html =~ m/<b>([0-9]{2}\.[0-9]{2}) (.+?)<\/b><br>(.*?)<br><br>/g) {
	# Use decode_entities() to convert html characters 
	# to ascii (e.g &auml; to ä)

	#ao. rivit lisätty, kun ei osaa tehdä tyylikkäämminkään
	my $tmp_jh1 = $1;
	my $tmp_jh2 = $2;
	my $tmp_jh3 = $3;
	#ao. rivillä kellonajasta muutetaan piste tuplapisteeksi, jotta XML(?):n autom.  	 kellorutiinit sen myöhemmin tunnistaisivat oikein
	
	$tmp_jh1 =~ s/\./:/;

	#ao. rivi muutettu, jotta väliin laitettu oma osuus ei tuhoaisi jatkoa
	my %keys = (time => $tmp_jh1,
	title => decode_entities($tmp_jh2),
	desc => decode_entities($tmp_jh3),
	);

	#my %keys = (time => $1,
	#	    title => decode_entities($2),
	#	    desc => decode_entities($3),
	#	    );
	my %h;
	foreach my $k (keys %keys) {
	    my $v = $keys{$k};
	    # Only record entry if it isn't empty (actually time 
	    # and title are required, but we don't check that.)
	    if (length ($v) > 0) {
		t "got a result from sub for $k: $v";
		$h{$k} = $v;
	    }
	}
	t 'after running all subs, got data: ' . d \%h;
	push @data, \%h;
    }
    t 'get_program_data() RETURNING ' . d \@data;
    return @data;
}

Ja sitten kun vielä sais käännetyn xmltv.exen windowsille

 

Laitoin pikafiksauksen CVS:ään, joten huomenna windows-porukka voi ymmärtääkseni hakea uuden alfan http://alpha-exe.xmltv.org/:sta.

- Ville

 

Kiitoksia, näyttäisi toimivan hienosti :thumbsup:

 

Onko muilla ongelmia xmltv tv_grab_fi:n kanssa uuden Telkku.comin kanssa windowsissa? Latasin uusimman version, mutta herjaa tulee: could not fetch http://www.telkku.com/telkku?tila=knvt&kan=149, error: 404 Not Found, aborting