summaryrefslogtreecommitdiff
path: root/src/xbs-abs/helper-abs
blob: e9aac361ecf42681d1759b1c1c00e21d49fc87e0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
#!/usr/bin/env bash

# Copyright (C) 2013-2014 Luke Shumaker <lukeshu@sbcglobal.net>
#
# For code from db-functions (arch_svn):
#   Copyright (C) 2012 Pierre Schmitz <pierre@archlinux.de>
# For code from db-move+db-remove (move+unrelease):
#   Copyright (C) 2008-2009 Aaron Griffin <aaronmgriffin@gmail.com>
#   Copyright (C) 2009 Abhishek Dasgupta <abhidg@gmail.com>
#   Copyright (C) 2009, 2011 Dan McGee <dan@archlinux.org>
#   Copyright (C) 2009-2012 Pierre Schmitz <pierre@archlinux.de>
# For code just from db-move (move):
#   Copyright (C) 2011 Rémy Oudompheng <remyoudompheng@gmail.com>
#   Copyright (C) 2012 Florian Pritz <bluewind@xinu.at>
# For code just from db-remove (unrelease):
#   Copyright (C) 2009 Eric Bélanger <snowmaniscool@gmail.com>
#   Copyright (C) 2011 Florian Pritz <bluewind@xinu.at>
#
# License: GNU GPLv2+
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

load_config() {
	. "$(librelib conf.sh)"
	load_files xbs-abs
	# SVNUSER is optional
	check_vars SVNDIR SVNREPOS ARCHES || exit 1
}

# This is taken from dbscripts:db-fuctions
arch_svn() {
	if [[ -z "${SVNUSER}" ]]; then
		/usr/bin/svn "${@}"
	else
		sudo -u "${SVNUSER}" -- /usr/bin/svn --username "${USER}" "${@}"
	fi
}

pac2svn() {
	local pacrepo=$1

	# Figure out which svn repo we need
	local svnrepoStr
	for svnrepoStr in "${SVNREPOS[@]}"; do
		local svnrepoAry=($svnrepoStr)
		local svnrepo=${svnrepoAry[0]}
		local svnurl=${svnrepoAry[1]}
		local pacrepos=("${svnrepoAry[@]:2}")

		if in_array "$pacrepo" "${pacrepos[@]}"; then
			echo "$svnrepo"
			return 0
		fi
	done
	return 1
}

status() {
	load_config
	[[ -z $(arch_svn status -q) ]]
}

download() {
	load_config

	local svnrepoStr
	for svnrepoStr in "${SVNREPOS[@]}"; do
		local svnrepoAry=($svnrepoStr)
		local svnrepo=${svnrepoAry[0]}
		local svnurl=${svnrepoAry[1]}
		local pacrepos=("${svnrepoAry[@]:2}")

		if [[ -d "$SVNDIR/$svnrepo/.svn" ]]; then
			arch_svn -q up "$SVNDIR/$svnrepo"/*
		else
			# checkout non-recursive, then lazy load
			# necessary because:
			#  > DO NOT CHECK OUT THE ENTIRE SVN REPO. Your address
			#  > may be blocked.
			arch_svn -q checkout -N "$svnurl" "$SVNDIR/$svnrepo"
		fi
	done
}

release-client() {
	local repo=$1
	local arch=$2

	# Hack to use arch_svn as 'svn' in external scripts
	local tmpdir="$(mktemp -dt "xbs-abs-release.XXXXXXXXXX")"
	trap "$(printf 'rm -rf -- %q' "$tmpdir")" EXIT
	printf '%s\n' \
		'#!/bin/bash' \
		"$(declare -p SVNUSER 2>/dev/null)" \
		"$(declare -f arch_svn)" \
		'arch_svn "$@"' \
		> "$tmpdir/svn"
	chmod 755 "$tmpdir/svn"
	export PATH="$tmpdir:$PATH"

	"${0}.d/archrelease" -f "${repo}-${arch}"
	"${0}.d/commitpkg" "${repo}" "${arch}"
}

release-server() {
	# Do nothing
	:
}

unrelease() {
	local pkgbase=$1
	local repo=$2
	local arch=$3

	local tag="$repo-$arch"

	load_config
	local svndir="${SVNDIR}/$(pac2svn "$repo")/${pkgbase}"
	arch_svn up -q "$svndir"

	# This is based off code from dbscripts:db-remove
	arch_svn rm --force -q "${svndir}/repos/${tag}"
	arch_svn commit -q "${svndir}" -m "${0##*/}: $pkgbase removed by $(id -un)"
}

move() {
	local repo_from=$1
	local repo_to=$2
	local pkgbase=$3

	load_config
	local svndir="${SVNDIR}/$(pac2svn "$repo")/${pkgbase}"
	arch_svn up -q "$svndir"

	local tag_list=""
	local pkgarch
	local arches=()
	# this is based off code from dbscripts:db-move
	for pkgarch in "${ARCHES[@]}" 'any'; do
		local dir_from="${svndir}/repos/${repo_from}-${pkgarch}"
		local dir_to="${svndir}/repos/${repo_to}-${pkgarch}"

		if [ -f "${dir_from}/PKGBUILD" ]; then
			if [ -d "${dir_to}" ]; then
				for file in $(arch_svn ls "${dir_to}"); do
					arch_svn rm -q "${dir_to}/$file@"
				done
			else
				mkdir "${dir_to}"
				arch_svn add -q "${dir_to}"
			fi

			local file
			for file in $(arch_svn ls "${dir_from}"); do
				arch_svn mv -q -r HEAD "${dir_from}/$file@" "${dir_to}/"
			done
			arch_svn rm --force -q "${dir_from}"
			tag_list="$tag_list, $pkgarch"
			arches+=("$pkgarch")
		fi
	done
	tag_list="${tag_list#, }"
	arch_svn commit -q "${svndir}" -m "${0##*/}: moved ${pkgbase} from [${repo_from}] to [${repo_to}] (${tag_list})"
	echo "${arches[*]}"
}

releasepath() {
	local pkgbase=$1
	local repo=$2
	local arch=$3

	load_config
	local svndir="${SVNDIR}/$(pac2svn "$repo")/${pkgbase}"
	arch_svn up -q "${svndir}"
	local releasepath="${svndir}/repos/${repo}-${arch}"
	if [[ -f "${releasepath}/PKGBUILD" ]]; then
		printf '%s\n' "$releasepath"
		return 0
	fi
	return 1
}

name() {
	echo SVN
}

case "$1" in
	status|download|release-client|release-server|unrelease|move|releasepath|name) "$@";;
	*) exit 127;;
esac