git-tag.shon commit reflog expire: do not punt on tags that point at non commits. (5874829)
   1#!/bin/sh
   2# Copyright (c) 2005 Linus Torvalds
   3
   4USAGE='-l [<pattern>] | [-a | -s | -u <key-id>] [-f | -d] [-m <msg>] <tagname> [<head>]'
   5SUBDIRECTORY_OK='Yes'
   6. git-sh-setup
   7
   8message_given=
   9annotate=
  10signed=
  11force=
  12message=
  13username=
  14list=
  15while case "$#" in 0) break ;; esac
  16do
  17    case "$1" in
  18    -a)
  19        annotate=1
  20        ;;
  21    -s)
  22        annotate=1
  23        signed=1
  24        ;;
  25    -f)
  26        force=1
  27        ;;
  28    -l)
  29        case "$#" in
  30        1)
  31                set x . ;;
  32        esac
  33        shift
  34        git rev-parse --symbolic --tags | sort | grep "$@"
  35        exit $?
  36        ;;
  37    -m)
  38        annotate=1
  39        shift
  40        message="$1"
  41        if test "$#" = "0"; then
  42            die "error: option -m needs an argument"
  43            exit 2
  44        else
  45            message_given=1
  46        fi
  47        ;;
  48    -F)
  49        annotate=1
  50        shift
  51        if test "$#" = "0"; then
  52            die "error: option -F needs an argument"
  53            exit 2
  54        else
  55            message="$(cat "$1")"
  56            message_given=1
  57        fi
  58        ;;
  59    -u)
  60        annotate=1
  61        signed=1
  62        shift
  63        username="$1"
  64        ;;
  65    -d)
  66        shift
  67        tag_name="$1"
  68        tag=$(git-show-ref --verify --hash -- "refs/tags/$tag_name") ||
  69                die "Seriously, what tag are you talking about?"
  70        git-update-ref -m 'tag: delete' -d "refs/tags/$tag_name" "$tag" &&
  71                echo "Deleted tag $tag_name."
  72        exit $?
  73        ;;
  74    -*)
  75        usage
  76        ;;
  77    *)
  78        break
  79        ;;
  80    esac
  81    shift
  82done
  83
  84name="$1"
  85[ "$name" ] || usage
  86prev=0000000000000000000000000000000000000000
  87if git-show-ref --verify --quiet -- "refs/tags/$name"
  88then
  89    test -n "$force" || die "tag '$name' already exists"
  90    prev=`git rev-parse "refs/tags/$name"`
  91fi
  92shift
  93git-check-ref-format "tags/$name" ||
  94        die "we do not like '$name' as a tag name."
  95
  96object=$(git-rev-parse --verify --default HEAD "$@") || exit 1
  97type=$(git-cat-file -t $object) || exit 1
  98tagger=$(git-var GIT_COMMITTER_IDENT) || exit 1
  99: ${username:=$(expr "z$tagger" : 'z\(.*>\)')}
 100
 101trap 'rm -f "$GIT_DIR"/TAG_TMP* "$GIT_DIR"/TAG_FINALMSG "$GIT_DIR"/TAG_EDITMSG' 0
 102
 103if [ "$annotate" ]; then
 104    if [ -z "$message_given" ]; then
 105        ( echo "#"
 106          echo "# Write a tag message"
 107          echo "#" ) > "$GIT_DIR"/TAG_EDITMSG
 108        ${VISUAL:-${EDITOR:-vi}} "$GIT_DIR"/TAG_EDITMSG || exit
 109    else
 110        echo "$message" >"$GIT_DIR"/TAG_EDITMSG
 111    fi
 112
 113    grep -v '^#' <"$GIT_DIR"/TAG_EDITMSG |
 114    git-stripspace >"$GIT_DIR"/TAG_FINALMSG
 115
 116    [ -s "$GIT_DIR"/TAG_FINALMSG -o -n "$message_given" ] || {
 117        echo >&2 "No tag message?"
 118        exit 1
 119    }
 120
 121    ( printf 'object %s\ntype %s\ntag %s\ntagger %s\n\n' \
 122        "$object" "$type" "$name" "$tagger";
 123      cat "$GIT_DIR"/TAG_FINALMSG ) >"$GIT_DIR"/TAG_TMP
 124    rm -f "$GIT_DIR"/TAG_TMP.asc "$GIT_DIR"/TAG_FINALMSG
 125    if [ "$signed" ]; then
 126        gpg -bsa -u "$username" "$GIT_DIR"/TAG_TMP &&
 127        cat "$GIT_DIR"/TAG_TMP.asc >>"$GIT_DIR"/TAG_TMP ||
 128        die "failed to sign the tag with GPG."
 129    fi
 130    object=$(git-mktag < "$GIT_DIR"/TAG_TMP)
 131fi
 132
 133git update-ref "refs/tags/$name" "$object" "$prev"
 134