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;
> }
> 

Reply via email to