Bug#799597: marked as done (fakeupstream.cgi: please add a redirector for Adacore website)
Your message dated Tue, 22 Sep 2015 17:16:19 +0200
with message-id <CAKTje6EqrDR2AyUSWmZjLaO8vouf0HxV6JUJrE1z0YzvrMSiAw@mail.gmail.com>
and subject line Re: Bug#799597: fakeupstream.cgi: please add a redirector for Adacore website
has caused the Debian Bug report #799597,
regarding fakeupstream.cgi: please add a redirector for Adacore website
to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact owner@bugs.debian.org
immediately.)
--
799597: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=799597
Debian Bug Tracking System
Contact owner@bugs.debian.org with problems
--- Begin Message ---
Package: qa.debian.org
Severity: wishlist
Tags: patch
Hello.
The Adacore website provides upstream tarballs for a few packages, but
the list uses multi-line href nodes that uscan cannot parse directly.
The attached patch adds a redirector with one line per href node.
I have checked it in a local script, but not in real conditions. The
expected output should contain lines like
<a href="http://mirrors.cdn.adacore.com/art/(40hexdigits)">xmlada-gpl-2015-src.tar.gz</a>
Thanks.
726a727,749
> # http://libre.adacore.com/download/configurations
> # Download URLs are not on the same line than the versioned file name.
> # http://qa.debian.org/cgi-bin/fakeupstream.cgi?upstream=libre.adacore.com
> elsif( $upstream_param =~ m%^libre\.adacore\.com$% )
> {
> my $page_url = "http://libre.adacore.com/download/configurations";;
> my $contents = LWP::Simple::get( $page_url );
> if( not defined $contents )
> {
> return_error( "failed to get $page_url" );
> }
> print $q->header;
> print $q->start_html;
> print $q->start_ul;
> while( $contents =~ m%<a href="(http://[^"]+)">\s*<span\s+class="art-file-name">([a-zA-Z0-9\-]+\.(?:zip|tgz|tbz|txz|(?:tar\.(?:gz|bz2|xz))))</span>\s*</a>%gs )
> {
> print $q->li($q->a({ -href => $1 }, $2)) . "\n";
> }
> print $q->end_ul;
> print $q->end_html;
> exit 0;
> }
>
--- End Message ---
--- Begin Message ---
Version: r3439
On Tue, Sep 22, 2015 at 1:20 PM, Nicolas Boulenguez wrote:
> Hello.
> Please consider this very short patch instead of the previous one.
Applied in SVN and updated the site.
--
bye,
pabs
https://wiki.debian.org/PaulWise
http://bonedaddy.net/pabs3/
http://wiki.openmoko.org/wiki/User:PaulWise
--- End Message ---
Reply to: