summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2013-08-16 16:35:03 +0100
committerIan Jackson <ijackson@chiark.greenend.org.uk>2013-08-16 16:35:03 +0100
commit12dc1b71aa58bd4d044077b4f921580cedb0c347 (patch)
treedc34ac1daec6f96a800855e07f307c219d196bd7
parent713eaae4d3f172cca513f90c2a0a00501f440bd6 (diff)
configurable mirror
-rwxr-xr-xdgit7
-rw-r--r--dgit.12
2 files changed, 6 insertions, 3 deletions
diff --git a/dgit b/dgit
index c66a001..23c5f81 100755
--- a/dgit
+++ b/dgit
@@ -26,7 +26,6 @@ use Dpkg::Control::Hash;
use File::Path;
use POSIX;
-our $mirror = 'http://mirror.relativity.greenend.org.uk/mirror/debian-ftp/';
our $suite = 'sid';
our $package;
@@ -139,7 +138,8 @@ our %defcfg = ('dgit.default.distro' => 'debian',
'dgit-distro.debian.git-proto' => 'git+ssh://',
'dgit-distro.debian.git-path' => '/git/dgit-repos',
'dgit-distro.debian.git-check' => 'ssh-cmd',
- 'dgit-distro.debian.git-create' => 'ssh-cmd');
+ 'dgit-distro.debian.git-create' => 'ssh-cmd',
+ 'dgit-distro.debian.mirror' => 'http://ftp.debian.org/debian/');
sub cfg {
foreach my $c (@_) {
@@ -224,7 +224,8 @@ sub get_archive_dsc () {
my $vsn = askmadison();
# fixme madison does not show us the component
my $prefix = substr($package, 0, $package =~ m/^l/ ? 4 : 1);
- $dscurl = "$mirror/pool/main/$prefix/$package/${package}_$vsn.dsc";
+ $dscurl = access_cfg('mirror').
+ "/pool/main/$prefix/$package/${package}_$vsn.dsc";
$dscdata = url_get($dscurl);
my $dscfh = new IO::File \$dscdata, '<' or die $!;
print DEBUG Dumper($dscdata);
diff --git a/dgit.1 b/dgit.1
index feb6d7a..5895458 100644
--- a/dgit.1
+++ b/dgit.1
@@ -160,6 +160,8 @@ on the dgit command line.
.TP
.BI dgit-distro. distro .upload-host
.TP
+.BI dgit-distro. distro .mirror
+.TP
.BI dgit-distro. distro .ssh
.TP
.BR dgit.default. *