jw-pkg/scripts/pgit.sh

#!/bin/sh

log()
{
	echo $@
}

err()
{
	log $@
}

fatal()
{
	err $@
	exit 1
}

marker()
{
	log "# ------------- [$cur/$n_projects] $@"
}

fat_marker()
{
	log "# ==================================================== [$cur/$n_projects] $@"
}

config()
{
	[ "$pdir" ] || {
		# guess pdir
		pdir=`pwd`
		while [ `cat $pdir/CVS/Repository 2>/dev/null` != proj ]; do
			[ "$pdir" = / ] && fatal "didn't find \"proj\" in directory components"
			pdir=`dirname $pdir`
		done
	}

	[ "$pdirs" ] || {
		pdirs=`(cd $pdir; ls -d */.git 2>/dev/null | sed 's%/.git%%')`
	}
	n_projects=`echo $pdirs | wc -w`
}

run_git()
{
	marker git "$@"
	# sadly, CentOS 7 has git 1.8.3.1, which doesn't support -C
	if [ "$1" = -C ]; then
		(
			cd $2
			shift 2
			git "$@"
		)
		return $?
	fi
	git "$@"
}

# ------------- commands
run()
{(
	local cmd=$1
	local d

	shift
	config
	cd $pdir

	if [ "$PGIT_KEEP_GOING" != y ]; then set -e; fi
	for d in $pdirs; do
		cur=`expr $cur + 1`
		run_git -C $d $cmd "$@"
	done
)}

commit()
{(
	local d do_cvs

	if [ "$1" = --cvs ]; then
		do_cvs=true
		shift
	fi

	config
	cd $pdir

	if [ "$PGIT_KEEP_GOING" != y ]; then set -e; fi
	for d in $pdirs; do
		cur=`expr $cur + 1`
		if run_git -C $d diff-index --quiet HEAD --; then
			log "Nothing to commit"
			continue
		fi
		run_git -C $d commit "$@"
	done

	if [ "$do_cvs" = true -a -d CVS ]; then
		cvs commit "$@"
	fi
)}

clone()
{(
	local p
	config
	cd $pdir
	local fromuser=$PGIT_CLONE_FROM_USER
	local login=$JANWARE_USER
	local projects="$PGIT_CLONE_PROJECTS"
	[ "$login" ] || login=`whoami`
	[ "$fromuser" ] || fromuser=`whoami`
	local git_srv_admin="$SSH $login@git.janware.com /opt/jw-build/bin/git-srv-admin.sh"
	if [ -z "$projects" ]; then
		projects=`$git_srv_admin -u $fromuser -j list-personal-projects`
		[ "$?" != 0 ] && exit 1
	fi
	n_projects=`echo $projects | wc -w`
	if [ "$PGIT_KEEP_GOING" != y ]; then set -e; fi
	for p in $projects; do
		cur=`expr $cur + 1`
		local pullurl=ssh://$login@git.janware.com/srv/git/$fromuser/proj/$p
		local pushurl=ssh://$login@git.janware.com/srv/git/$login/proj/$p
		fat_marker "Fetching project $p from user $fromuser"
		if [ "$fromuser" = "$login" ]; then
			if [ -d $p ]; then
				run_git -C $p pull --recurse-submodules
			else
				run_git clone ssh://$login@git.janware.com/srv/git/$fromuser/proj/$p
			fi
			run_git -C $p submodule update --init --recursive || fatal git submodule update failed in $p
		else
			local remotename="user-$fromuser"
			if [ -d $p ]; then
				run_git -C $p remote | grep -q "^$remotename$" || {
					run_git -C $p remote add $remotename $pullurl
					run_git -C $p remote set-url --push $remotename no_push
				}
				run_git -C $p fetch --recurse-submodules $remotename master
			else
				# set -x
				run_git clone ssh://$login@git.janware.com/srv/git/$fromuser/proj/$p
				run_git -C $p remote rename origin $remotename || fatal failed to rename remote in $p
				run_git -C $p remote set-url --push $remotename no_push
				$git_srv_admin -u $login -j create-personal-project $p
				run_git -C $p remote add origin $pushurl
				run_git -C $p push --recurse-submodules origin master
				$git_srv_admin -u $login -j update-descriptions $p
				run_git -C $p branch --set-upstream-to origin/master master
				# set +x
			fi
			run_git -C $p submodule update --init --recursive || fatal git submodule update failed in $p
		fi
	done
)}

diff()
{(
	local d
	config
	cd $pdir
	for d in $pdirs; do
		cur=`expr $cur + 1`
		# marker $d
		run_git -C $d diff --src-prefix=$d/ --dst-prefix=$d/ "$@"
	done
)}

echo "running $0 $@ GIT_SSH=$GIT_SSH" >&2

SSH=ssh
[ "$GIT_SSH" ] && SSH=$GIT_SSH

cmd=$1
cur=0
shift
case $cmd in
	clone|diff|commit)
		$cmd "$@"
		;;
	*)
		run $cmd "$@"
		;;
esac