Fix a "label defined but unreferenced" warning.
[git.git] / git-ls-remote.sh
1 #!/bin/sh
2 #
3
4 usage () {
5     echo >&2 "usage: $0 [--heads] [--tags] [-u|--upload-pack <upload-pack>]"
6     echo >&2 "          <repository> <refs>..."
7     exit 1;
8 }
9
10 die () {
11     echo >&2 "$*"
12     exit 1
13 }
14
15 exec=
16 while case "$#" in 0) break;; esac
17 do
18   case "$1" in
19   -h|--h|--he|--hea|--head|--heads)
20   heads=heads; shift ;;
21   -t|--t|--ta|--tag|--tags)
22   tags=tags; shift ;;
23   -u|--u|--up|--upl|--uploa|--upload|--upload-|--upload-p|--upload-pa|\
24   --upload-pac|--upload-pack)
25         shift
26         exec="--upload-pack=$1"
27         shift;;
28   -u=*|--u=*|--up=*|--upl=*|--uplo=*|--uploa=*|--upload=*|\
29   --upload-=*|--upload-p=*|--upload-pa=*|--upload-pac=*|--upload-pack=*)
30         exec=--upload-pack=$(expr "z$1" : 'z-[^=]*=\(.*\)')
31         shift;;
32   --)
33   shift; break ;;
34   -*)
35   usage ;;
36   *)
37   break ;;
38   esac
39 done
40
41 case "$#" in 0) usage ;; esac
42
43 case ",$heads,$tags," in
44 ,,,) heads=heads tags=tags other=other ;;
45 esac
46
47 . git-parse-remote
48 peek_repo="$(get_remote_url "$@")"
49 shift
50
51 tmp=.ls-remote-$$
52 trap "rm -fr $tmp-*" 0 1 2 3 15
53 tmpdir=$tmp-d
54
55 case "$peek_repo" in
56 http://* | https://* | ftp://* )
57         if [ -n "$GIT_SSL_NO_VERIFY" ]; then
58             curl_extra_args="-k"
59         fi
60         if [ -n "$GIT_CURL_FTP_NO_EPSV" -o \
61                 "`git-config --bool http.noEPSV`" = true ]; then
62                 curl_extra_args="${curl_extra_args} --disable-epsv"
63         fi
64         curl -nsf $curl_extra_args --header "Pragma: no-cache" "$peek_repo/info/refs" ||
65                 echo "failed    slurping"
66         ;;
67
68 rsync://* )
69         mkdir $tmpdir &&
70         rsync -rlq "$peek_repo/HEAD" $tmpdir &&
71         rsync -rq "$peek_repo/refs" $tmpdir || {
72                 echo "failed    slurping"
73                 exit
74         }
75         head=$(cat "$tmpdir/HEAD") &&
76         case "$head" in
77         ref:' '*)
78                 head=$(expr "z$head" : 'zref: \(.*\)') &&
79                 head=$(cat "$tmpdir/$head") || exit
80         esac &&
81         echo "$head     HEAD"
82         (cd $tmpdir && find refs -type f) |
83         while read path
84         do
85                 cat "$tmpdir/$path" | tr -d '\012'
86                 echo "  $path"
87         done &&
88         rm -fr $tmpdir
89         ;;
90
91 * )
92         git-peek-remote $exec "$peek_repo" ||
93                 echo "failed    slurping"
94         ;;
95 esac |
96 sort -t '       ' -k 2 |
97 while read sha1 path
98 do
99         case "$sha1" in
100         failed)
101                 exit 1 ;;
102         esac
103         case "$path" in
104         refs/heads/*)
105                 group=heads ;;
106         refs/tags/*)
107                 group=tags ;;
108         *)
109                 group=other ;;
110         esac
111         case ",$heads,$tags,$other," in
112         *,$group,*)
113                 ;;
114         *)
115                 continue;;
116         esac
117         case "$#" in
118         0)
119                 match=yes ;;
120         *)
121                 match=no
122                 for pat
123                 do
124                         case "/$path" in
125                         */$pat )
126                                 match=yes
127                                 break ;;
128                         esac
129                 done
130         esac
131         case "$match" in
132         no)
133                 continue ;;
134         esac
135         echo "$sha1     $path"
136 done