Andrew's git - gitweb.git/blob - git-fetch-dumb-http

   1#!/bin/sh
   2#
   3# Copyright (c) 2005, Junio C Hamano
   4#
   5# Called by git-fetch-script
   6# Exits 2 when the remote site does not support dumb server protocol.
   7
   8# Usage: git-fetch-dumb-http <head-SHA1> <repo> [ <head> | tag <tag> ]
   9
  10. git-sh-setup-script || die "Not a git archive"
  11head="$1"
  12shift
  13. git-parse-remote "$@"
  14
  15merge_repo="$_remote_repo"
  16merge_head="$_remote_head"
  17merge_store="$_remote_store"
  18
  19if [ -n "$GIT_SSL_NO_VERIFY" ]; then
  20    curl_extra_args="-k"
  21fi
  22http_fetch () {
  23        # $1 = Remote, $2 = Local
  24        curl -ns $curl_extra_args "$1" >"$2"
  25}
  26
  27# Try dumb server protocol
  28
  29clone_tmp=".git/clone-tmp$$" &&
  30mkdir -p "$clone_tmp" || exit 1
  31trap "rm -rf $clone_tmp" 0 1 2 3 15
  32http_fetch "$merge_repo/info/refs" "$clone_tmp/refs" &&
  33http_fetch "$merge_repo/objects/info/packs" "$clone_tmp/packs" &&
  34http_fetch "$merge_repo/info/rev-cache" "$clone_tmp/rev-cache" || exit 2
  35
  36# Which packs are we interested in?
  37has_missing=,
  38while read tag num sha1 type
  39do
  40    case "$tag" in
  41    T) ;;
  42    *) continue ;;
  43    esac
  44    git-cat-file -t "$sha1" >/dev/null || has_missing="$has_missing$num,"
  45done <$clone_tmp/packs
  46
  47# Slurp the pack index we do not have all objects for.
  48pack_ix=0
  49may_want_pack_count=0
  50while read tag pack
  51do
  52    case "$tag" in
  53    P) ;;
  54    *) break ;; # P records always come first.
  55    esac
  56    case "$has_missing" in
  57    *",$pack_ix,"*)
  58       name=`expr "$pack" : '\(.*\)\.pack$'` &&
  59       idx="$name.idx" &&
  60       http_fetch "$merge_repo/objects/pack/$idx" "$clone_tmp/$idx" &&
  61       # Note that idx file is sorted --- otherwise we need to sort it here.
  62       git-show-index <"$clone_tmp/$idx" |
  63       sed -e 's/^[^ ]* //' >"$clone_tmp/$name.toc" ||
  64       exit 1
  65       may_want_pack_count=`expr "$may_want_pack_count" + 1`
  66       ;;
  67    esac
  68    pack_ix=`expr "$pack_ix" + 1`
  69done <$clone_tmp/packs
  70
  71case "$may_want_pack_count" in
  720)
  73    exit 0 ;;
  74esac
  75
  76# We want $head.  What are the head objects we are missing?
  77git-missing-revs $clone_tmp/rev-cache $head >$clone_tmp/missing-revs &&
  78sort -o $clone_tmp/missing-revs $clone_tmp/missing-revs || exit 2
  79
  80for toc in $clone_tmp/*.toc
  81do
  82    name=`expr $toc : '.*/\([^/]*\)\.toc'` &&
  83    comm -12 $clone_tmp/missing-revs $toc >$clone_tmp/$name.can
  84    # FIXME: this is stupid.
  85    if test -s $clone_tmp/$name.can
  86    then
  87        pack="$name.pack" idx="$name.idx" &&
  88        http_fetch "$merge_repo/objects/pack/$pack" "$clone_tmp/$pack" &&
  89        git-verify-pack "$clone_tmp/$pack" &&
  90        mkdir -p "$GIT_OBJECT_DIRECTORY/pack" &&
  91        mv "$clone_tmp/$pack" "$clone_tmp/$idx" \
  92            "$GIT_OBJECT_DIRECTORY/pack/" || {
  93            # remote may just have a stale dumb server information files.
  94            # and normal pull might succeed.
  95            exit 2
  96        }
  97    fi
  98done
  99
 100exit 0