/extra/svn - Diff - SoundSoftware Code Site

Revision 912:5e80956cc792 extra/svn

          PerlAccessHandler Apache::Authn::Redmine::access_handler
          PerlAuthenHandler Apache::Authn::Redmine::authen_handler
          ## for mysql
          RedmineDSN "DBI:mysql:database=databasename;host=my.db.server"
          ## for postgres
-...
       },
     );
     sub RedmineDSN {
     sub RedmineDSN {
       my ($self, $parms, $arg) = @_;
       $self->{RedmineDSN} = $arg;
       my $query = "SELECT
                      hashed_password, salt, auth_source_id, permissions
                   FROM members, projects, users, roles, member_roles
                   FROM projects, users, roles
                   WHERE
                     projects.id=members.project_id
                     AND member_roles.member_id=members.id
                     AND users.id=members.user_id
                     AND roles.id=member_roles.role_id
                     users.login=?
                     AND projects.identifier=?
                     AND users.status=1
                     AND login=?
                     AND identifier=? ";
                     AND (
                       roles.id IN (SELECT member_roles.role_id FROM members, member_roles WHERE members.user_id = users.id AND members.project_id = projects.id AND members.id = member_roles.member_id)
                       OR
                       (roles.builtin=1 AND cast(projects.is_public as CHAR) IN ('t', '1'))
                     ) ";
       $self->{RedmineQuery} = trim($query);
+    }
     sub RedmineDbUser { set_val('RedmineDbUser', @_); }
     sub RedmineDbPass { set_val('RedmineDbPass', @_); }
     sub RedmineDbWhereClause {
     sub RedmineDbWhereClause {
       my ($self, $parms, $arg) = @_;
       $self->{RedmineQuery} = trim($self->{RedmineQuery}.($arg ? $arg : "")." ");
+    }
     sub RedmineCacheCredsMax {
     sub RedmineCacheCredsMax {
       my ($self, $parms, $arg) = @_;
       if ($arg) {
         $self->{RedmineCachePool} = APR::Pool->new;
-...
       my $project_id = get_project_identifier($r);
       $r->set_handlers(PerlAuthenHandler => [\&OK])
           if is_public_project($project_id, $r);
           if is_public_project($project_id, $r) && anonymous_role_allows_browse_repository($r);
       return OK
+    }
     sub authen_handler {
       my $r = shift;
       my ($res, $redmine_pass) =  $r->get_basic_auth_pw();
       return $res unless $res == OK;
       if (is_member($r->user, $redmine_pass, $r)) {
           return OK;
       } else {
-...
+      }
       $sth->finish();
       undef $sth;
       $dbh->disconnect();
       undef $dbh;
-...
     sub is_public_project {
         my $project_id = shift;
         my $r = shift;
         if (is_authentication_forced($r)) {
           return 0;
+        }
-...
         $ret;
+    }
     sub anonymous_role_allows_browse_repository {
       my $r = shift;
       my $dbh = connect_database($r);
       my $sth = $dbh->prepare(
           "SELECT permissions FROM roles WHERE builtin = 2;"
       );
       $sth->execute();
       my $ret = 0;
       if (my @row = $sth->fetchrow_array) {
         if ($row[0] =~ /:browse_repository/) {
           $ret = 1;
+        }
+      }
       $sth->finish();
       undef $sth;
       $dbh->disconnect();
       undef $dbh;
       $ret;
+    }
     # perhaps we should use repository right (other read right) to check public access.
     # it could be faster BUT it doesn't work for the moment.
     # sub is_public_project_by_file {
-...
       my $pass_digest = Digest::SHA1::sha1_hex($redmine_pass);
       my $access_mode = defined $read_only_methods{$r->method} ? "R" : "W";
       my $cfg = Apache2::Module::get_config(__PACKAGE__, $r->server, $r->per_dir_config);
       my $usrprojpass;
       if ($cfg->{RedmineCacheCredsMax}) {
         $usrprojpass = $cfg->{RedmineCacheCreds}->get($redmine_user.":".$project_id);
         $usrprojpass = $cfg->{RedmineCacheCreds}->get($redmine_user.":".$project_id.":".$access_mode);
         return 1 if (defined $usrprojpass and ($usrprojpass eq $pass_digest));
+      }
       my $query = $cfg->{RedmineQuery};
-...
           unless ($auth_source_id) {
     	  			my $method = $r->method;
               my $salted_password = Digest::SHA1::sha1_hex($salt.$pass_digest);
     					if ($hashed_password eq $salted_password && ((defined $read_only_methods{$method} && $permissions =~ /:browse_repository/) || $permissions =~ /:commit_access/) ) {
     					if ($hashed_password eq $salted_password && (($access_mode eq "R" && $permissions =~ /:browse_repository/) || $permissions =~ /:commit_access/) ) {
                   $ret = 1;
                   last;
+              }
-...
                     filter  =>      "(".$rowldap[6]."=%s)"
                 );
                 my $method = $r->method;
                 $ret = 1 if ($ldap->authenticate($redmine_user, $redmine_pass) && ((defined $read_only_methods{$method} && $permissions =~ /:browse_repository/) || $permissions =~ /:commit_access/));
                 $ret = 1 if ($ldap->authenticate($redmine_user, $redmine_pass) && (($access_mode eq "R" && $permissions =~ /:browse_repository/) || $permissions =~ /:commit_access/));
+              }
               $sthldap->finish();
-...
       if ($cfg->{RedmineCacheCredsMax} and $ret) {
         if (defined $usrprojpass) {
           $cfg->{RedmineCacheCreds}->set($redmine_user.":".$project_id, $pass_digest);
           $cfg->{RedmineCacheCreds}->set($redmine_user.":".$project_id.":".$access_mode, $pass_digest);
         } else {
           if ($cfg->{RedmineCacheCredsCount} < $cfg->{RedmineCacheCredsMax}) {
             $cfg->{RedmineCacheCreds}->set($redmine_user.":".$project_id, $pass_digest);
             $cfg->{RedmineCacheCreds}->set($redmine_user.":".$project_id.":".$access_mode, $pass_digest);
             $cfg->{RedmineCacheCredsCount}++;
           } else {
             $cfg->{RedmineCacheCreds}->clear();
-...
     sub get_project_identifier {
         my $r = shift;
         my $location = $r->location;
         my ($identifier) = $r->uri =~ m{$location/*([^/]+)};
         $identifier;
-...
     sub connect_database {
         my $r = shift;
         my $cfg = Apache2::Module::get_config(__PACKAGE__, $r->server, $r->per_dir_config);
         return DBI->connect($cfg->{RedmineDSN}, $cfg->{RedmineDbUser}, $cfg->{RedmineDbPass});
+    }

     #                             -r redmine.example.net
     #                             -r http://redmine.example.net
     #                             -r https://example.net/redmine
     #   -k, --key=KEY             use KEY as the Redmine API key
     #   -k, --key=KEY             use KEY as the Redmine API key (you can use the
     #                             --key-file option as an alternative)
+    #
     # == Options
+    #
-...
     #   --http-pass=PASSWORD      Password for Basic authentication with Redmine WS
     #   -f, --force               force repository creation even if the project
     #                             repository is already declared in Redmine
     #       --key-file=PATH       path to a file that contains the Redmine API key
     #                             (use this option instead of --key if you don't
     #                             the key to appear in the command line)
     #   -t, --test                only show what should be done
     #   -h, --help                show help and exit
     #   -v, --verbose             verbose
-...
                           ['--svn-dir',      '-s', GetoptLong::REQUIRED_ARGUMENT],
                           ['--redmine-host', '-r', GetoptLong::REQUIRED_ARGUMENT],
                           ['--key',          '-k', GetoptLong::REQUIRED_ARGUMENT],
                           ['--key-file',           GetoptLong::REQUIRED_ARGUMENT],
                           ['--owner',        '-o', GetoptLong::REQUIRED_ARGUMENT],
                           ['--group',        '-g', GetoptLong::REQUIRED_ARGUMENT],
                           ['--url',          '-u', GetoptLong::REQUIRED_ARGUMENT],
-...
         when '--svn-dir';        $repos_base   = arg.dup
         when '--redmine-host';   $redmine_host = arg.dup
         when '--key';            $api_key      = arg.dup
         when '--key-file'
           begin
             $api_key = File.read(arg).strip
           rescue Exception => e
             $stderr.puts "Unable to read the key from #{arg}: #{e.message}"
             exit 1
           end
         when '--owner';          $svn_owner    = arg.dup; $use_groupid = false;
         when '--group';          $svn_group    = arg.dup; $use_groupid = false;
         when '--url';            $svn_url      = arg.dup
-...
     class Project < ActiveResource::Base
       self.headers["User-agent"] = "Redmine repository manager/#{Version}"
       self.format = :xml
     end
     log("querying Redmine for projects...", :level => 1);
-...
     begin
       # Get all active projects that have the Repository module enabled
       projects = Project.find(:all, :params => {:key => $api_key})
     rescue ActiveResource::ForbiddenAccess
       log("Request was denied by your Redmine server. Make sure that 'WS for repository management' is enabled in application settings and that you provided the correct API key.")
     rescue => e
       log("Unable to connect to #{Project.site}: #{e}", :exit => true)
     end
     if projects.nil?
       log('no project found, perhaps you forgot to "Enable WS for repository management"', :exit => true)
       log('No project found, perhaps you forgot to "Enable WS for repository management"', :exit => true)
     end
     log("retrieved #{projects.size} projects", :level => 1)

Also available in: Unified diff

SoundSoftware Project »

SoundSoftware Code Site

Revision 912:5e80956cc792 extra/svn