ukamnya
/
Redmine-mod-perl-auth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Whitespace cleanup.

1.x
Adirelle 2012-04-04 16:20:35 +02:00
parent 9bd17313c7
commit 1003b40d9d
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
Redmine.pm
View File

@ -57,47 +57,47 @@ Authen::Simple::LDAP (and IO::Socket::SSL if LDAPS is used):
RedmineDbUser "redmine" RedmineDbUser "redmine"
RedmineDbPass "password" RedmineDbPass "password"
## Authorization where clause (fulltext search would be slow and database dependant). ## Authorization where clause (fulltext search would be slow and database dependant).
## Default: none ## Default: none
# RedmineDbWhereClause "and members.role_id IN (1,2)" # RedmineDbWhereClause "and members.role_id IN (1,2)"
## Credentials cache size ## Credentials cache size
## Default: 0 (disabled) ## Default: 0 (disabled)
# RedmineCacheCredsMax 50 # RedmineCacheCredsMax 50
## Credentials cache expiration delay in seconds ## Credentials cache expiration delay in seconds
## Set to 0 to disable expiration. ## Set to 0 to disable expiration.
## Default: 5 minutes (300) ## Default: 5 minutes (300)
# RedmineCacheCredsMaxAge 60 # RedmineCacheCredsMaxAge 60
## Check authorizations against a specific project. ## Check authorizations against a specific project.
## Default: none (extract project from location) ## Default: none (extract project from location)
# RedmineProject myproject # RedmineProject myproject
## Permissions to check for "read" access. ## Permissions to check for "read" access.
## You can add several permissions, user is granted access if *at least* one them exists. ## You can add several permissions, user is granted access if *at least* one them exists.
## Default: :browse_repository ## Default: :browse_repository
# RedmineReadPermissions :browse_repository # RedmineReadPermissions :browse_repository
## Permissions to check for "write" access. ## Permissions to check for "write" access.
## You can add several permissions, user is granted access if *at least* one them exists. ## You can add several permissions, user is granted access if *at least* one them exists.
## Default: :commit_access ## Default: :commit_access
# RedmineWritePermissions :commit_access # RedmineWritePermissions :commit_access
## Deny anonymous access. ## Deny anonymous access.
## Affects both authentication and authorization ## Affects both authentication and authorization
## Default: Off ## Default: Off
# RedmineDenyAnonymous On # RedmineDenyAnonymous On
## Deny non-member access to projects. ## Deny non-member access to projects.
## Default: Off ## Default: Off
# RedmineDenyNonMember On # RedmineDenyNonMember On
## Administrators have super-powers ## Administrators have super-powers
## Default: On ## Default: On
# RedmineSuperAdmin Off # RedmineSuperAdmin Off
</Location> </Location>
To be able to browse repository inside redmine, you must add something To be able to browse repository inside redmine, you must add something
@ -327,7 +327,7 @@ sub authen_handler {
# Else check them # Else check them
my $dbh = connect_database($r) my $dbh = connect_database($r)
or return SERVER_ERROR; or return SERVER_ERROR;
($res, $reason) = check_login($r, $dbh, $password); ($res, $reason) = check_login($r, $dbh, $password);
$dbh->disconnect(); $dbh->disconnect();
@ -338,7 +338,7 @@ sub authen_handler {
} elsif($res == AUTH_REQUIRED) { } elsif($res == AUTH_REQUIRED) {
my $dbh = connect_database($r) my $dbh = connect_database($r)
or return SERVER_ERROR; or return SERVER_ERROR;
my $cfg = get_config($r); my $cfg = get_config($r);
if(!$cfg->{AllowAnonymous} || is_authentication_forced($dbh)) { if(!$cfg->{AllowAnonymous} || is_authentication_forced($dbh)) {
@ -431,9 +431,9 @@ sub authz_handler {
my $dbh = connect_database($r) my $dbh = connect_database($r)
or return SERVER_ERROR; or return SERVER_ERROR;
my $cfg = get_config($r); my $cfg = get_config($r);
my ($project_id, $is_public, $status) = $dbh->selectrow_array("SELECT id, is_public, status FROM projects WHERE identifier = ?", undef, $identifier) my ($project_id, $is_public, $status) = $dbh->selectrow_array("SELECT id, is_public, status FROM projects WHERE identifier = ?", undef, $identifier)
or return DECLINED; or return DECLINED;
$is_public = is_true($is_public); $is_public = is_true($is_public);
@ -501,7 +501,7 @@ sub authz_handler {
} elsif(defined $reason) { } elsif(defined $reason) {
$r->log_reason($reason); $r->log_reason($reason);
} }
$dbh->disconnect(); $dbh->disconnect();
return $res; return $res;
@ -563,7 +563,7 @@ sub connect_database {
my $cfg = get_config($r); my $cfg = get_config($r);
my $dbh = DBI->connect($cfg->{DSN}, $cfg->{DbUser}, $cfg->{DbPass}) my $dbh = DBI->connect($cfg->{DSN}, $cfg->{DbUser}, $cfg->{DbPass})
or $r->log->error("Connection to database failed: $DBI::errstr."); or $r->log->error("Connection to database failed: $DBI::errstr.");
return $dbh; return $dbh;
} }