Provide for configurable git url suffix.

diff --git a/debian/changelog b/debian/changelog
index 716b1adce85c3d9d2f49ee70aa146df4729be10d..fd664d3e06aeee5070bc9ed512e1a1b7b95eb459 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -13,6 +13,7 @@ dgit (0.31~~) unstable; urgency=low
 
   Access machinery:
   * Provide for different access mechanisms when pushing.
+  * Provide for configurable git url suffix.
 
   Infrastructure:
   * Provide for mirroring git updates to a different server.

diff --git a/dgit b/dgit
index 76a073fce893ac3d3283483d51a7801a98083991..8f4a71c2a3683087b020520dcc05fea6eb8a1fe5 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -646,6 +646,7 @@ sub access_gituserhost () {
 sub access_giturl (;$) {
     my ($optional) = @_;
     my $url = access_cfg('git-url','RETURN-UNDEF');
+    my $suffix;
     if (!defined $url) {
        my $proto = access_cfg('git-proto', 'RETURN-UNDEF');
        return undef unless defined $proto;
@@ -653,8 +654,11 @@ sub access_giturl (;$) {
            $proto.
            access_gituserhost().
            access_cfg('git-path');
+    } else {
+       $suffix = access_cfg('git-url-suffix','RETURN-UNDEF');
     }
-    return "$url/$package.git";
+    $suffix //= '.git';
+    return "$url/$package$suffix";
 }             
 
 sub parsecontrolfh ($$;$) {