Bug #92679 for WWW-Dict-Leo-Org: leo script does not work anymore

Mon Feb 03 07:59:53 2014 SREZIC [...] cpan.org - Ticket created

Subject:

leo script does not work anymore

Since about three or four days the leo script does not work anymore. For every query I get the following response: $ /opt/perl-5.18.2/bin/leo hello got HTTP error 301! at /opt/perl-5.18.2/bin/leo line 247. I tried this on different systems (Linux, FreeBSD). Usually the script works fine. Regards, Slaven

Mon Feb 03 22:27:38 2014 lists [...] rohieb.name - Correspondence added

Subject:	[rt.cpan.org #92679]
Date:	Tue, 04 Feb 2014 04:27:20 +0100
To:	bug-WWW-Dict-Leo-Org [...] rt.cpan.org
From:	Roland Hieber <lists [...] rohieb.name>

FYI, I tried resolving the redirect by hand (see attached patch), then the error message was gone, but the script now shows "No results" for everything. I guess it seems to be related to a redesign of the website. - Roland

Message body is not shown because sender requested not to inline it.

Mon Feb 03 22:27:38 2014 The RT System itself - Status changed from 'new' to 'open'

Tue Feb 04 02:45:30 2014 tlinden [...] cpan.org - Taken

Tue Feb 04 02:47:56 2014 tlinden [...] cpan.org - Correspondence added

There are 2 changes on leo.org: 1) the URL has changed, now it's: http://pda.leo.org/dictQuery/m-vocab/ende/de.html?... 2) the table with the results has another location (3 instead of 3.1). I changed both and it works for me. I'll upload a new version this evening. Thanks for reporting, Tom

Tue Feb 04 03:08:27 2014 tlinden [...] cpan.org - Correspondence added

Meanwhile you might try the following patch.

Subject:

www-dict-leo-org-1-37.patch

*** WWW-Dict-Leo-Org-1.36/Org.pm 2013-07-03 11:01:25.000000000 +0200 --- WWW-Dict-Leo-Org-1.37/Org.pm 2014-02-04 09:06:45.452710770 +0100 *************** *** 149,155 **** } my($host, $pport) = split /:/, $proxy; if ($pport) { ! $url = "http://$ip:$port/$lang{speak}"; $port = $pport; } else { --- 149,155 ---- } my($host, $pport) = split /:/, $proxy; if ($pport) { ! $url = "http://$ip:$port/dictQuery/m-vocab/$lang{speak}/de.html"; $port = $pport; } else { *************** *** 161,166 **** --- 161,167 ---- else { $this->debug( "connecting to site:", $ip, "port", $port); $url = "/$lang{speak}"; + $url = "/dictQuery/m-vocab/$lang{speak}/de.html"; } my $conn = new IO::Socket::INET( *************** *** 224,230 **** #print $site; my @request = ({ ! id => 3.1, row => sub { $this->row(@_); } } ); --- 225,231 ---- #print $site; my @request = ({ ! id => 3, row => sub { $this->row(@_); } } );

Tue Feb 04 12:05:53 2014 SREZIC [...] cpan.org - Correspondence added

On 2014-02-04 03:08:27, TLINDEN wrote: Show quoted text

> Meanwhile you might try the following patch.

Thanks, this seems to work (with manually resolving one conflict). Regards, Slaven

Tue Feb 04 13:18:55 2014 tlinden [...] cpan.org - Correspondence added

Fixed in version 1.37.

Tue Feb 04 13:18:55 2014 tlinden [...] cpan.org - Status changed from 'open' to 'resolved'