git-request-pull.sh

   1 #!/bin/sh
   2 # Copyright 2005, Ryan Anderson <ryan@michonline.com>
   3 #
   4 # This file is licensed under the GPL v2, or a later version
   5 # at the discretion of Linus Torvalds.
   6
   7 SUBDIRECTORY_OK='Yes'
   8 OPTIONS_KEEPDASHDASH=
   9 OPTIONS_STUCKLONG=
  10 OPTIONS_SPEC='git request-pull [options] start url [end]
  11 --
  12 p    show patch text as well
  13 '
  14
  15 . git-sh-setup
  16
  17 GIT_PAGER=
  18 export GIT_PAGER
  19
  20 patch=
  21 while   case "$#" in 0) break ;; esac
  22 do
  23         case "$1" in
  24         -p)
  25                 patch=-p ;;
  26         --)
  27                 shift; break ;;
  28         -*)
  29                 usage ;;
  30         *)
  31                 break ;;
  32         esac
  33         shift
  34 done
  35
  36 base=$1 url=$2 status=0
  37
  38 test -n "$base" && test -n "$url" || usage
  39
  40 baserev=$(git rev-parse --verify --quiet "$base"^0)
  41 if test -z "$baserev"
  42 then
  43     die "fatal: Not a valid revision: $base"
  44 fi
  45
  46 #
  47 # $3 must be a symbolic ref, a unique ref, or
  48 # a SHA object expression. It can also be of
  49 # the format 'local-name:remote-name'.
  50 #
  51 local=${3%:*}
  52 local=${local:-HEAD}
  53 remote=${3#*:}
  54 pretty_remote=${remote#refs/}
  55 pretty_remote=${pretty_remote#heads/}
  56 head=$(git symbolic-ref -q "$local")
  57 head=${head:-$(git show-ref --heads --tags "$local" | cut -d' ' -f2)}
  58 head=${head:-$(git rev-parse --quiet --verify "$local")}
  59
  60 # None of the above? Bad.
  61 test -z "$head" && die "fatal: Not a valid revision: $local"
  62
  63 # This also verifies that the resulting head is unique:
  64 # "git show-ref" could have shown multiple matching refs..
  65 headrev=$(git rev-parse --verify --quiet "$head"^0)
  66 test -z "$headrev" && die "fatal: Ambiguous revision: $local"
  67
  68 local_sha1=$(git rev-parse --verify --quiet "$head")
  69
  70 # Was it a branch with a description?
  71 branch_name=${head#refs/heads/}
  72 if test "z$branch_name" = "z$headref" ||
  73         ! git config "branch.$branch_name.description" >/dev/null
  74 then
  75         branch_name=
  76 fi
  77
  78 merge_base=$(git merge-base $baserev $headrev) ||
  79 die "fatal: No commits in common between $base and $head"
  80
  81 # $head is the refname from the command line.
  82 # Find a ref with the same name as $head that exists at the remote
  83 # and points to the same commit as the local object.
  84 find_matching_ref='
  85         my ($head,$headrev) = (@ARGV);
  86         my $pattern = qr{/\Q$head\E$};
  87         my ($remote_sha1, $found);
  88
  89         while (<STDIN>) {
  90                 chomp;
  91                 my ($sha1, $ref, $deref) = /^(\S+)\s+([^^]+)(\S*)$/;
  92
  93                 if ($sha1 eq $head) {
  94                         $found = $remote_sha1 = $sha1;
  95                         break;
  96                 }
  97
  98                 if ($ref eq $head || $ref =~ $pattern) {
  99                         if ($deref eq "") {
 100                                 # Remember the matching object on the remote side
 101                                 $remote_sha1 = $sha1;
 102                         }
 103                         if ($sha1 eq $headrev) {
 104                                 $found = $ref;
 105                                 break;
 106                         }
 107                 }
 108         }
 109         if ($found) {
 110                 $remote_sha1 = $headrev if ! defined $remote_sha1;
 111                 print "$remote_sha1 $found\n";
 112         }
 113 '
 114
 115 set fnord $(git ls-remote "$url" | @@PERL@@ -e "$find_matching_ref" "${remote:-HEAD}" "$headrev")
 116 remote_sha1=$2
 117 ref=$3
 118
 119 if test -z "$ref"
 120 then
 121         echo "warn: No match for commit $headrev found at $url" >&2
 122         echo "warn: Are you sure you pushed '${remote:-HEAD}' there?" >&2
 123         status=1
 124 elif test "$local_sha1" != "$remote_sha1"
 125 then
 126         echo "warn: $head found at $url but points to a different object" >&2
 127         echo "warn: Are you sure you pushed '${remote:-HEAD}' there?" >&2
 128         status=1
 129 fi
 130
 131 # Special case: turn "for_linus" to "tags/for_linus" when it is correct
 132 if test "$ref" = "refs/tags/$pretty_remote"
 133 then
 134         pretty_remote=tags/$pretty_remote
 135 fi
 136
 137 url=$(git ls-remote --get-url "$url")
 138
 139 git show -s --format='The following changes since commit %H:
 140
 141   %s (%ci)
 142
 143 are available in the Git repository at:
 144 ' $merge_base &&
 145 echo "  $url $pretty_remote" &&
 146 git show -s --format='
 147 for you to fetch changes up to %H:
 148
 149   %s (%ci)
 150
 151 ----------------------------------------------------------------' $headrev &&
 152
 153 if test $(git cat-file -t "$head") = tag
 154 then
 155         git cat-file tag "$head" |
 156         sed -n -e '1,/^$/d' -e '/^-----BEGIN PGP /q' -e p
 157         echo
 158         echo "----------------------------------------------------------------"
 159 fi &&
 160
 161 if test -n "$branch_name"
 162 then
 163         echo "(from the branch description for $branch_name local branch)"
 164         echo
 165         git config "branch.$branch_name.description"
 166         echo "----------------------------------------------------------------"
 167 fi &&
 168
 169 git shortlog ^$baserev $headrev &&
 170 git diff -M --stat --summary $patch $merge_base..$headrev || status=1
 171
 172 exit $status