[SCM] Debian Qt/KDE packaging tools branch, master, updated. debian/0.12.0-2-g2df5bf3

[Modestas Vainius]

The following commit has been merged in the master branch:
commit 2df5bf36b134e8bdac3183ddf2596655b8ebb5b4
Author: Modestas Vainius <modax at debian.org>
Date:   Thu Apr 28 11:16:43 2011 +0300

    pkgkde-getbuildlogs: fix fetching of last logs.
---
 debian/changelog    |    1 +
 pkgkde-getbuildlogs |    6 ++++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 944d6b4..921da20 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,5 +1,6 @@
 pkg-kde-tools (0.12.1) UNRELEASED; urgency=low
 
+  * pkgkde-getbuildlogs: fix fetching of last logs.
 
  -- Modestas Vainius <modax at debian.org>  Thu, 28 Apr 2011 11:15:15 +0300
 
diff --git a/pkgkde-getbuildlogs b/pkgkde-getbuildlogs
index 69b2403..c6ab01a 100755
--- a/pkgkde-getbuildlogs
+++ b/pkgkde-getbuildlogs
@@ -207,7 +207,9 @@ sub download_logs {
     if (my $response = $browser->request($request)) {
 	error "unable to access log index at URL $url: ".$response->status_line
 	    unless $response->is_success();
-	my $linkextor = HTML::LinkExtor->new(undef, "https://buildd.debian.org/");
+	my $urlbase = $url;
+	$urlbase =~ s,[^/]*$,,;
+	my $linkextor = HTML::LinkExtor->new(undef, $urlbase);
 	$linkextor->parse($response->content());
 	if (my @links = grep { $_->[0] eq "a" } $linkextor->links()) {
 	    @links = map { shift @{$_}; +{ @{$_} }->{href} } @links;
@@ -218,7 +220,7 @@ sub download_logs {
 	    # Collect links we need to fetch
 	    foreach my $link (@links) {
 		# Check if it is the link we need
-		if ($link =~ m,/fetch\.cgi(\?[^/]+)$,) {
+		if ($link =~ m,/fetch\.(cgi|php)(\?[^/]+)$,) {
 		    # We might need to filter out links based on the arch and
 		    # version we need
 		    my $loguri = URI->new($link);

-- 
Debian Qt/KDE packaging tools