2012-03-25 17:59:14 +02:00
|
|
|
package Gitolite::Triggers::Writable;
|
|
|
|
|
|
|
|
use Gitolite::Rc;
|
|
|
|
use Gitolite::Common;
|
|
|
|
|
|
|
|
sub writable {
|
2012-03-30 02:41:06 +02:00
|
|
|
my ( $repo, $aa, $result ) = @_[ 1, 3, 5 ];
|
2012-03-25 17:59:14 +02:00
|
|
|
return if $aa eq 'R' or $result =~ /DENIED/;
|
|
|
|
|
2012-03-30 02:41:06 +02:00
|
|
|
for my $f ( "$ENV{HOME}/.gitolite.down", "$rc{GL_REPO_BASE}/$repo.git/.gitolite.down" ) {
|
2012-03-25 17:59:14 +02:00
|
|
|
next unless -f $f;
|
|
|
|
_die slurp($f) if -s $f;
|
|
|
|
_die "sorry, writes are currently disabled (no more info available)\n";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
1;
|