infra: Pass distro to dgit-repos-server

[dgit.git] / dgit

diff --git a/dgit b/dgit
index f6324e02a59a3a8cc6b363b455c4ca3f413ca32a..bd8507cd7d95f20dbffa2ce825390644039268db 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -33,6 +33,8 @@ use Digest::SHA;
 use Digest::MD5;
 use Config;
 
 use Digest::MD5;
 use Config;
 

+use Debian::Dgit;
+

 our $our_version = 'UNRELEASED'; ###substituted###
 
 our $rpushprotovsn = 2;
 our $our_version = 'UNRELEASED'; ###substituted###
 
 our $rpushprotovsn = 2;


@@ -110,11 +112,6 @@ my $lbranch_re = '^refs/heads/'.$branchprefix.'/([^/.]+)$';
 sub lref () { return "refs/heads/".lbranch(); }
 sub lrref () { return "refs/remotes/$remotename/$branchprefix/$csuite"; }
 sub rrref () { return "refs/$branchprefix/$csuite"; }
 sub lref () { return "refs/heads/".lbranch(); }
 sub lrref () { return "refs/remotes/$remotename/$branchprefix/$csuite"; }
 sub rrref () { return "refs/$branchprefix/$csuite"; }

-sub debiantag ($) { 
-    my ($v) = @_;
-    $v =~ y/~:/_%/;
-    return "debian/$v";
-}

 
 sub stripepoch ($) {
     my ($vsn) = @_;
 
 sub stripepoch ($) {
     my ($vsn) = @_;


@@ -528,6 +525,9 @@ our %defcfg = ('dgit.default.distro' => 'debian',
               'dgit-distro.debian.git-user-force' => 'dgit',
               'dgit-distro.debian.git-proto' => 'git+ssh://',
               'dgit-distro.debian.git-path' => '/dgit/debian/repos',
               'dgit-distro.debian.git-user-force' => 'dgit',
               'dgit-distro.debian.git-proto' => 'git+ssh://',
               'dgit-distro.debian.git-path' => '/dgit/debian/repos',

+ 'dgit-distro.debian.archive-query-url', 'https://api.ftp-master.debian.org/',
+ 'dgit-distro.debian.archive-query-tls-key',
+    '/etc/ssl/certs/%HOST%.pem:/etc/dgit/%HOST%.pem',

               'dgit-distro.debian.diverts.alioth' => '/alioth',
               'dgit-distro.debian/alioth.git-host' => 'git.debian.org',
               'dgit-distro.debian/alioth.git-user-force' => '',
               'dgit-distro.debian.diverts.alioth' => '/alioth',
               'dgit-distro.debian/alioth.git-host' => 'git.debian.org',
               'dgit-distro.debian/alioth.git-user-force' => '',


@@ -775,6 +775,27 @@ sub must_getcwd () {
     return $d;
 }
 
     return $d;
 }
 

+sub archive_api_query_cmd ($) {
+    my ($subpath) = @_;
+    my @cmd = qw(curl -sS);
+    my $url = access_cfg('archive-query-url');
+    if ($url =~ m#^https://([-.0-9a-z]+)/#) {
+       my $host = $1;
+       my $keys = access_cfg('archive-query-tls-key','RETURN-UNDEF');
+       foreach my $key (split /\:/, $keys) {
+           $key =~ s/\%HOST\%/$host/g;
+           if (!stat $key) {
+               fail "for $url: stat $key: $!" unless $!==ENOENT;
+               next;
+           }
+           push @cmd, "--ca-certificate=$key", "--ca-directory=/dev/enoent";
+           last;
+       }
+    }
+    push @cmd, $url.$subpath;
+    return @cmd;
+}
+

 our %rmad;
 
 sub archive_query ($) {
 our %rmad;
 
 sub archive_query ($) {


@@ -1413,6 +1434,7 @@ sub clone ($) {
     }
     fetch_from_archive() or no_such_package;
     my $vcsgiturl = $dsc->{'Vcs-Git'};
     }
     fetch_from_archive() or no_such_package;
     my $vcsgiturl = $dsc->{'Vcs-Git'};

+    $vcsgiturl =~ s/\s+-b\s+\S+//g;

     if (length $vcsgiturl) {
        runcmd @git, qw(remote add vcs-git), $vcsgiturl;
     }
     if (length $vcsgiturl) {
        runcmd @git, qw(remote add vcs-git), $vcsgiturl;
     }


@@ -2603,6 +2625,13 @@ sub cmd_quilt_fixup {
     build_maybe_quilt_fixup();
 }
 
     build_maybe_quilt_fixup();
 }
 

+sub cmd_archive_api_query {
+    badusage "need only 1 subpath argument" unless @ARGV==1;
+    my ($subpath) = @ARGV;
+    my @cmd = archive_api_query_cmd($subpath);
+    exec @cmd or fail "exec curl: $!\n";
+}
+

 #---------- argument parsing and main program ----------
 
 sub cmd_version {
 #---------- argument parsing and main program ----------
 
 sub cmd_version {


@@ -2717,24 +2746,27 @@ sub parseopts () {
                } elsif (s/^-c(.*=.*)//s) {
                    push @ropts, $&;
                    push @git, '-c', $1;
                } elsif (s/^-c(.*=.*)//s) {
                    push @ropts, $&;
                    push @git, '-c', $1;

-               } elsif (s/^-d(.*)//s) {
+               } elsif (s/^-d(.+)//s) {

                    push @ropts, $&;
                    $idistro = $1;
                    push @ropts, $&;
                    $idistro = $1;

-               } elsif (s/^-C(.*)//s) {
+               } elsif (s/^-C(.+)//s) {

                    push @ropts, $&;
                    $changesfile = $1;
                    if ($changesfile =~ s#^(.*)/##) {
                        $buildproductsdir = $1;
                    }
                    push @ropts, $&;
                    $changesfile = $1;
                    if ($changesfile =~ s#^(.*)/##) {
                        $buildproductsdir = $1;
                    }

-               } elsif (s/^-k(.*)//s) {
+               } elsif (s/^-k(.+)//s) {

                    $keyid=$1;
                    $keyid=$1;

-               } elsif (s/^-wn//s) {
+               } elsif (m/^-[vdCk]$/) {
+                   badusage
+ "option \`$_' requires an argument (and no space before the argument)";
+               } elsif (s/^-wn$//s) {

                    push @ropts, $&;
                    $cleanmode = 'none';
                    push @ropts, $&;
                    $cleanmode = 'none';

-               } elsif (s/^-wg//s) {
+               } elsif (s/^-wg$//s) {

                    push @ropts, $&;
                    $cleanmode = 'git';
                    push @ropts, $&;
                    $cleanmode = 'git';

-               } elsif (s/^-wd//s) {
+               } elsif (s/^-wd$//s) {

                    push @ropts, $&;
                    $cleanmode = 'dpkg-source';
                } else {
                    push @ropts, $&;
                    $cleanmode = 'dpkg-source';
                } else {