Provide for configurable git url suffix.

[dgit.git] / dgit

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 ($$;$) {