chiark / gitweb /
dgit-repos-server: wip
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 12 Jan 2014 18:24:18 +0000 (18:24 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 5 Mar 2014 18:29:02 +0000 (18:29 +0000)
dgit-repos-server

index 0f7c4b0..677e3d7 100644 (file)
@@ -242,7 +242,7 @@ sub verifytag () {
 }
 
 sub checktag () {
-    tagh1('object') eq $branchval or die;
+    tagh1('object') eq $commit or die;
     tagh1('type') eq 'commit' or die;
     tagh1('tag') eq $tagname or die;
 
@@ -250,9 +250,22 @@ sub checktag () {
     $v =~ y/~:/_%/;
     $tagname eq "debian/$v" or die;
 
-    check fast forward;
+    # check that our ref is being fast-forwarded
+    if ($oldcommit =~ m/[^0]/) {
+       $?=0; $!=0; my $mb = `git merge-base $commit $oldcommit`;
+       chomp $mb;
+       $mb eq $oldcommit or reject "not fast forward on dgit branch";
+    }
 }
 
+sub onwardpush () {
+    $!=0;
+    my $r = system (qw(git send-pack),
+                   $destrepo,
+                   "$commit:refs/dgit/$suite",
+                   "$tagval:refs/tags/$tagname");
+    !$r or die "onward push failed: $r $!";
+}      
 
 sub stunthook () {
     chdir $workrepo or die "chdir $workrepo: $!";
@@ -261,7 +274,7 @@ sub stunthook () {
     parsetag();
     verifytag();
     checktag();
-... ...
+    onwardpush();
 }
 
 #----- arg parsing and main program -----
@@ -308,6 +321,10 @@ sub parseargs () {
            or die "requested command $cmd not understood";
        $method = $1;
        $pkg = $2;
+       my $func = $method;
+       $func =~ y/-/_/;
+       $func = $main::{"main__$func"};
+       &$func;
     } else {
        die;
     }
@@ -315,7 +332,7 @@ sub parseargs () {
     $destrepo = "$dgitrepos/$pkg.git";
 }
 
-sub main () {
+sub main__git_receive_pack () {
     parseargs();
 fixme check method;
     makeworkingclone();