~ubuntu-branches/ubuntu/utopic/gitolite3/utopic

« back to all changes in this revision

Viewing changes to src/lib/Gitolite/Triggers/Writable.pm

Committer: Package Import Robot
Author(s): David Bremner
Date: 2013-05-18 17:59:21 UTC
Revision ID: package-import@ubuntu.com-20130518175921-ac4xe6vd0jtxvjot

Tags: upstream-3.5.1+4

Import upstream version 3.5.1+4

files added:

CHANGELOG

CONTRIBUTING

COPYING

README.txt

check-g2-compat

convert-gitosis-conf

install

src/VREF

src/VREF/COUNT

src/VREF/EMAIL-CHECK

src/VREF/FILETYPE

src/VREF/MAX_NEWBIN_SIZE

src/VREF/MERGE-CHECK

src/VREF/VOTES

src/VREF/lock

src/VREF/partial-copy

src/VREF/refex-expr

src/commands

src/commands/D

src/commands/access

src/commands/create

src/commands/creator

src/commands/desc

src/commands/fork

src/commands/git-config

src/commands/help

src/commands/htpasswd

src/commands/info

src/commands/list-dangling-repos

src/commands/lock

src/commands/mirror

src/commands/owns

src/commands/perms

src/commands/print-default-rc

src/commands/push

src/commands/rsync

src/commands/sshkeys-lint

src/commands/sskm

src/commands/sudo

src/commands/svnserve

src/commands/symbolic-ref

src/commands/who-pushed

src/commands/writable

src/gitolite

src/gitolite-shell

src/lib

src/lib/Gitolite

src/lib/Gitolite/Common.pm

src/lib/Gitolite/Conf

src/lib/Gitolite/Conf.pm

src/lib/Gitolite/Conf/Explode.pm

src/lib/Gitolite/Conf/Load.pm

src/lib/Gitolite/Conf/Store.pm

src/lib/Gitolite/Conf/Sugar.pm

src/lib/Gitolite/Easy.pm

src/lib/Gitolite/Hooks

src/lib/Gitolite/Hooks/PostUpdate.pm

src/lib/Gitolite/Hooks/Update.pm

src/lib/Gitolite/Rc.pm

src/lib/Gitolite/Setup.pm

src/lib/Gitolite/Test

src/lib/Gitolite/Test.pm

src/lib/Gitolite/Test/Tsh.pm

src/lib/Gitolite/Triggers

src/lib/Gitolite/Triggers.pm

src/lib/Gitolite/Triggers/Alias.pm

src/lib/Gitolite/Triggers/AutoCreate.pm

src/lib/Gitolite/Triggers/CpuTime.pm

src/lib/Gitolite/Triggers/Mirroring.pm

src/lib/Gitolite/Triggers/RefexExpr.pm

src/lib/Gitolite/Triggers/RepoUmask.pm

src/lib/Gitolite/Triggers/Shell.pm

src/lib/Gitolite/Triggers/Writable.pm

src/syntactic-sugar

src/syntactic-sugar/continuation-lines

src/syntactic-sugar/keysubdirs-as-groups

src/syntactic-sugar/macros

src/syntactic-sugar/refex-expr

src/triggers

src/triggers/bg

src/triggers/partial-copy

src/triggers/post-compile

src/triggers/post-compile/ssh-authkeys

src/triggers/post-compile/ssh-authkeys-shell-users

src/triggers/post-compile/ssh-authkeys-split

src/triggers/post-compile/update-description-file

src/triggers/post-compile/update-git-configs

src/triggers/post-compile/update-git-daemon-access-list

src/triggers/post-compile/update-gitweb-access-list

src/triggers/post-compile/update-gitweb-daemon-from-options

src/triggers/renice

src/triggers/set-default-roles

src/triggers/upstream

t/0-me-first.t

t/README

t/access.t

t/all-yall.t

t/basic.t

t/branch-perms.t

t/daemon-gitweb-via-perms.t

t/deleg-1.t

t/deleg-2.t

t/deny-create.t

t/deny-rules-2.t

t/deny-rules.t

t/easy.t

t/fork.t

t/git-config.t

t/gitolite-receive-pack

t/gitolite-upload-pack

t/glt

t/hostname.t

t/include-subconf.t

t/info.t

t/invalid-refnames-filenames.t

t/keys

t/keys/admin

t/keys/admin.pub

t/keys/config

t/keys/u1

t/keys/u1.pub

t/keys/u2

t/keys/u2.pub

t/keys/u3

t/keys/u3.pub

t/keys/u4

t/keys/u4.pub

t/keys/u5

t/keys/u5.pub

t/keys/u6

t/keys/u6.pub

t/listers.t

t/merge-check.t

t/mirror-test

t/mirror-test-rc

t/mirror-test-setup.sh

t/mirror-test-ssh-config

t/partial-copy.t

t/perm-default-roles.t

t/perm-roles.t

t/perms-groups.t

t/personal-branches.t

t/refex-expr-test-1

t/refex-expr-test-2

t/refex-expr-test-3

t/refex-expr-test-9

t/reset

t/rule-seq.t

t/sequence.t

t/smart-http

t/smart-http.root-setup

t/ssh-authkeys.t

t/ssh-basic.t

t/vrefs-1.t

t/vrefs-2.t

t/wild-1.t

t/wild-2.t

t/writable.t

t/z-end.t

Show diffs side-by-side

added added

removed removed

src/lib/Gitolite/Triggers/Writable.pm

package Gitolite::Triggers::Writable;

use Gitolite::Rc;

use Gitolite::Common;

sub access_1 {

my ( $repo, $aa, $result ) = @_[ 1, 3, 5 ];

return if $aa eq 'R' or $result =~ /DENIED/;

for my $f ( "$ENV{HOME}/.gitolite.down", "$rc{GL_REPO_BASE}/$repo.git/.gitolite.down" ) {

next unless -f $f;

_die slurp($f) if -s $f;

_die "sorry, writes are currently disabled (no more info available)\n";

}

Older »