2010-06-01 16:27:33 +05:30
|
|
|
#!/bin/sh
|
2010-04-24 23:00:38 +05:30
|
|
|
|
|
|
|
|
. $(dirname $0)/adc.common-functions
|
|
|
|
|
|
|
|
|
|
delete=$1
|
|
|
|
|
|
|
|
|
|
get_rights_and_owner $delete
|
2010-08-20 09:45:05 +05:30
|
|
|
|
2010-06-01 16:27:33 +05:30
|
|
|
[ "$owner" = "$GL_USER" ] || die "$delete is not yours to delete!"
|
2010-04-24 23:00:38 +05:30
|
|
|
|
|
|
|
|
cd $GL_REPO_BASE_ABS
|
|
|
|
|
rm -rf $delete.git
|
2010-10-06 20:03:50 +05:30
|
|
|
|
|
|
|
|
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
|
