mirror of
ssh://git.janware.com/srv/git/janware/proj/jw-pkg
synced 2026-01-15 12:03:31 +01:00
42 lines
505 B
Bash
42 lines
505 B
Bash
#!/bin/bash
|
|
|
|
log()
|
|
{
|
|
echo $@
|
|
}
|
|
|
|
err()
|
|
{
|
|
echo $@ >&2
|
|
}
|
|
|
|
fatal()
|
|
{
|
|
err $@
|
|
exit 1
|
|
}
|
|
|
|
cmd_list_projects()
|
|
{
|
|
local all_proj proj p
|
|
(
|
|
cd $projroot || fatal Failed to change to $projroot
|
|
all_proj=`find . -maxdepth 1 -mindepth 1 -type d`
|
|
for p in $all_proj; do
|
|
test -x $p || continue
|
|
test -r $p || continue
|
|
p=${p##./}
|
|
proj="$proj $p"
|
|
done
|
|
[ "$proj" ] && echo $proj
|
|
)
|
|
}
|
|
|
|
# ---------- here we go
|
|
|
|
cvsroot=/home/jannet/arc/cvs
|
|
projroot=$cvsroot/proj
|
|
cmd=${1/-/_}
|
|
shift
|
|
eval cmd_$cmd $@
|
|
|