Redmine

I updated my Redmine.pm a little so that no unauthenticated user can access a repository in a "login_required" Redmine installation, here is the patch:

Index: Redmine.pm
===================================================================
--- Redmine.pm  (revision 2389)
+++ Redmine.pm  (working copy)
@@ -206,7 +206,7 @@
   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) && !is_login_required($r));

   return OK
 }
@@ -225,6 +225,22 @@
   }
 }

+sub is_login_required {
+    my $r = shift;
+
+    my $dbh = connect_database($r);
+    my $sth = $dbh->prepare(
+        "SELECT value FROM settings WHERE settings.name='login_required';" 
+    );
+
+    $sth->execute();
+    my @ret = $sth->fetchrow_array();
+    $sth->finish();
+    $dbh->disconnect();
+
+    $ret[0];
+}
+
 sub is_public_project {
     my $project_id = shift;
     my $r = shift;

I'll have to work a little more to make it accessible for non-project members for a public project in a login_require redmine.