Bug#799597: fakeupstream.cgi: please add a redirector for Adacore website

[Nicolas Boulenguez <nicolas@debian.org>]

Package: qa.debian.org
Followup-For: Bug #799597

Thanks for applying the patch so quickly.
Please also consider the attached changes, refining the regular
expression in order to consume much less bandwidth.

--- fakeupstream.cgi.old	2015-09-23 20:05:34.527943108 +0200
+++ fakeupstream.cgi	2015-09-23 20:15:18.554838891 +0200
@@ -725,12 +725,13 @@
 }
 
 # http://libre.adacore.com/download/configurations
-# http://qa.debian.org/cgi-bin/fakeupstream.cgi?upstream=adacore
-elsif( $upstream_param =~ m%^adacore$% )
+# http://qa.debian.org/cgi-bin/fakeupstream.cgi?upstream=adacore/xmlada
+# Projects: asis aunit aws florist gnatcoll gprbuild gps gtkada xmlada
+elsif( $upstream_param =~ m%^adacore/($project_char_re+)$% )
 {
 	process_request( {
 		'webpages_urls_ref' => [ 'http://libre.adacore.com/download/configurations' ],
-		'download_url_file_re' => "<a href=\"(http://mirrors\\.cdn\\.adacore\\.com/art/[0-9a-f]{40})\">\\s*<span class=\"art-file-name\">($file_char_re+\\.(?:$suffix_re))</span>\\s*</a>"
+		'download_url_file_re' => "<a href=\"(http://mirrors\\.cdn\\.adacore\\.com/art/[0-9a-f]{40})\">\\s*<span class=\"art-file-name\">($1(?:-gpl)?-[0-9.]+-src\\.(?:$suffix_re))</span>\\s*</a>",
 	} );
 }