jw-pkg/scripts/pgit.sh
Jan Lindemann 1b5e66808a pgit.sh: Doesn't fail clone over git-srv-admin.sh fails
pgit.sh clone does not error out in clone if git-srv-admin.sh
list-personal-projects reports an error, fix that.

Signed-off-by: Jan Lindemann <jan@janware.com>
2016-07-26 13:46:39 +00:00

101 lines
1.3 KiB
Bash

#!/bin/sh
log()
{
echo $@
}
err()
{
log $@
}
fatal()
{
err $@
exit 1
}
marker()
{
log "# ============= $@"
}
config()
{
# 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=`(cd $pdir; ls -d */.git | sed 's%/.git%%')`
}
# ------------- commands
run()
{(
local d
local cmd=$1
shift
config
cd $pdir
for d in $pdirs; do
marker $d
(cd $d; git $cmd "$@")
done
)}
clone()
{(
local p
config
cd $pdir
local id=$PGIT_CLONE_FROM_USER
local projects="$PGIT_CLONE_PROJECTS"
[ "$id" ] || id=`whoami`
if [ -z "$projects" ]; then
projects=`$SSH git.jannet.de /opt/ytools/bin/git-srv-admin.sh -u $id -j list-personal-projects`
[ "$?" != 0 ] && exit 1
fi
for p in $projects; do
[ -d $p ] && {
marker "skipping existing $p"
continue
}
marker "cloning $p"
git clone ssh://$id@git.jannet.de/srv/git/$id/proj/$p
(
cd $p
git submodule init
git submodule update
)
done
)}
diff()
{(
local d
config
cd $pdir
for d in $pdirs; do
marker $d
(cd $d; git diff --src-prefix=a/$d/ --dst-prefix=b/$d/ "$@")
done
)}
SSH=ssh
[ "$GIT_SSH" ] && SSH=$GIT_SSH
cmd=$1
shift
case $cmd in
clone|diff)
$cmd "$@"
;;
*)
run $cmd "$@"
;;
esac