Use ftpmasterapi archive query method. (Closes:#727702.)

diff --git a/debian/changelog b/debian/changelog
index a5abed6774420e336f3e3e346f4dbb3afa3e2607..b925ce710de5b3bdd3c0c20287c8c8cc1647114e 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -61,6 +61,8 @@ dgit (0.23~) unstable; urgency=low
   * Fix inaccurate error message when archive's git hash is not an
     ancestor of git repo's git hash.
 
+  * Use ftpmasterapi archive query method.  (Closes:#727702.)
+
  --
 
 dgit (0.22.1) unstable; urgency=high

diff --git a/dgit b/dgit
index 661670c373b787ab9891f937f88ba45423547340..be9045048bc6ff282755ea68fe105e14e9232d94 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -518,7 +518,7 @@ our %defcfg = ('dgit.default.distro' => 'debian',
               'dgit.default.ssh' => 'ssh',
               'dgit.default.archive-query' => 'madison:',
               'dgit.default.sshpsql-dbname' => 'service=projectb',
-              'dgit-distro.debian.archive-query' => 'sshpsql:',
+              'dgit-distro.debian.archive-query' => 'ftpmasterapi:',
               'dgit-distro.debian.git-host' => 'dgit-git.debian.net',
               'dgit-distro.debian.git-user-force' => 'dgit',
               'dgit-distro.debian.git-proto' => 'git+ssh://',
@@ -533,7 +533,6 @@ our %defcfg = ('dgit.default.distro' => 'debian',
               'dgit-distro.debian/alioth.git-proto' => 'git+ssh://',
               'dgit-distro.debian/alioth.git-path' => '/git/dgit-repos/repos',
               'dgit-distro.debian/alioth.git-create' => 'ssh-cmd',
-              'dgit-distro.debian.sshpsql-host' => 'mirror.ftp-master.debian.org',
               'dgit-distro.debian.upload-host' => 'ftp-master', # for dput
               'dgit-distro.debian.mirror' => 'http://ftp.debian.org/debian/',
  'dgit-distro.debian.backports-quirk' => '(squeeze)-backports*',
@@ -860,7 +859,7 @@ sub archive_query_ftpmasterapi () {
            my $component = "$entry->{component}";
            $component =~ m/^$component_re$/ or die "bad component";
            my $filename = "$entry->{filename}";
-           $filename && $filename !~ m#[^-+:._0-9a-zA-Z/]|^[/.]|/[/.]#
+           $filename && $filename !~ m#[^-+:._~0-9a-zA-Z/]|^[/.]|/[/.]#
                or die "bad filename";
            my $sha256sum = "$entry->{sha256sum}";
            $sha256sum =~ m/^[0-9a-f]+$/ or die "bad sha256sum";