2010-06-01 12:57:33 +02:00
|
|
|
#!/bin/sh
|
2010-04-24 19:30:38 +02:00
|
|
|
|
|
|
|
|
. $(dirname $0)/adc.common-functions
|
|
|
|
|
|
|
|
|
|
delete=$1
|
|
|
|
|
|
|
|
|
|
get_rights_and_owner $delete
|
2010-08-20 06:15:05 +02:00
|
|
|
|
2010-06-01 12:57:33 +02:00
|
|
|
[ "$owner" = "$GL_USER" ] || die "$delete is not yours to delete!"
|
2010-04-24 19:30:38 +02:00
|
|
|
|
|
|
|
|
cd $GL_REPO_BASE_ABS
|
|
|
|
|
rm -rf $delete.git
|
2010-10-06 16:33:50 +02:00
|
|
|
|
|
|
|
|
cd $HOME
|
|
|
|
|
PROJECTS_LIST=$(perl -e 'do ".gitolite.rc"; print $PROJECTS_LIST')
|
|
|
|
|
export delete
|
|
|
|
|
perl -ni -e 'print unless /^\Q$ENV{delete}.git\E$/' $PROJECTS_LIST
|
