Package: devscripts Version: 2.14.1 Severity: wishlist Tags: patch User: devscri...@packages.qa.debian.org Usertags: uscan
Hi,
The attached trivial patch aims at honoring Referer on HTTP(S) download.
Some upstream pages [0] mandates it to actually download the tarball.
O: e.g., http://www.phpconcept.net/pclzip/pclzip-downloads
Regards
David
P.-S.: I’m pretty sure I’ll again fail to set the usertag, sorry, but I
was not able to find where it is documented.
-- Package-specific info:
--- /etc/devscripts.conf ---
--- ~/.devscripts ---
DEBSIGN_KEYID=0xB82A217AFDFE09F2
-- System Information:
Debian Release: jessie/sid
APT prefers unstable
APT policy: (500, 'unstable'), (500, 'testing'), (500, 'stable'), (500,
'oldstable'), (100, 'experimental')
Architecture: amd64 (x86_64)
Foreign Architectures: i386
Kernel: Linux 3.12-1-rt-amd64 (SMP w/1 CPU core; PREEMPT)
Locale: LANG=fr_FR.UTF-8, LC_CTYPE=fr_FR.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Versions of packages devscripts depends on:
ii dpkg-dev 1.17.6
ii libc6 2.17-97
ii perl 5.18.2-2
ii python3 3.3.4-1
pn python3:any <none>
Versions of packages devscripts recommends:
ii at 3.1.14-1
ii curl 7.35.0-1
ii dctrl-tools 2.23
ii debian-keyring 2014.01.31
ii dput 0.9.6.4
ii equivs 2.0.9
ii fakeroot 1.20-3
ii gnupg 1.4.16-1
ii libdistro-info-perl 0.12
ii libencode-locale-perl 1.03-1
ii libjson-perl 2.61-1
ii liblwp-protocol-https-perl 6.04-2
ii libparse-debcontrol-perl 2.005-4
ii libsoap-lite-perl 1.09-1
ii liburi-perl 1.60-1
ii libwww-perl 6.05-2
ii lintian 2.5.21
ii man-db 2.6.6-1
ii patch 2.7.1-4
ii patchutils 0.3.2-3
ii python3-debian 0.1.21+nmu2
ii python3-magic 1:5.14-2
ii sensible-utils 0.0.9
ii strace 4.5.20-2.3
ii unzip 6.0-10
ii wdiff 1.2.1-2
ii wget 1.15-1
ii xz-utils 5.1.1alpha+20120614-2
Versions of packages devscripts suggests:
ii bsd-mailx [mailx] 8.1.2-0.20131005cvs-1
ii build-essential 11.6
ii cvs-buildpackage 5.23
pn devscripts-el <none>
ii gnuplot 4.6.4-2
ii gpgv 1.4.16-1
ii libauthen-sasl-perl 2.1500-1
ii libfile-desktopentry-perl 0.07-1
ii libnet-smtp-ssl-perl 1.01-3
ii libterm-size-perl 0.207-1+b1
ii libtimedate-perl 2.3000-1
ii libyaml-syck-perl 1.27-2+b1
ii mutt 1.5.21-6.4
ii openssh-client [ssh-client] 1:6.5p1-4
pn svn-buildpackage <none>
ii w3m 0.5.3-15
-- no debconf information
-- debsums errors found:
debsums: changed file /usr/bin/uscan (from devscripts package)
From 3d353f41e05f7ce2a925960a9dcbcaaab055752b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?David=20Pr=C3=A9vot?= <taf...@debian.org>
Date: Sat, 15 Feb 2014 20:59:17 -0400
Subject: [PATCH] uscan: Honor Referer
---
scripts/uscan.pl | 1 +
1 file changed, 1 insertion(+)
diff --git a/scripts/uscan.pl b/scripts/uscan.pl
index 4438e25..198cdb1 100755
--- a/scripts/uscan.pl
+++ b/scripts/uscan.pl
@@ -1377,6 +1377,7 @@ EOF
print STDERR "$progname debug: requesting URL $url\n" if $debug;
my $headers = HTTP::Headers->new;
$headers->header('Accept' => '*/*');
+ $headers->header('Referer' => $base);
$request = HTTP::Request->new('GET', $url, $headers);
$response = $user_agent->request($request, $fname);
if (! $response->is_success) {
--
1.9.0.rc3
signature.asc
Description: Digital signature
