config: support cgit scan-path and scan-hidden-path

project_list support still needs to be done

And tests need to be written... :<

diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm
index 9c1c3e2c8ca69448b7abb0968375e4b494e9fb43..9f1e57ac7554dc58764b3bb4cf3504a6803b0adc 100644 (file)
--- a/lib/PublicInbox/Config.pm
+++ b/lib/PublicInbox/Config.pm
@@ -208,6 +208,30 @@ sub cgit_repo_merge ($$) {
        $self->{"coderepo.$nick.cgiturl"} ||= $nick;
 }
 
+sub is_git_dir ($) {
+       my ($git_dir) = @_;
+       -d "$git_dir/objects" && -f "$git_dir/HEAD";
+}
+
+sub scan_path_coderepo {
+       my ($self, $base, $path) = @_;
+       opendir my $dh, $path or return;
+       while (defined(my $dn = readdir $dh)) {
+               next if $dn eq '.' || $dn eq '..';
+               if (index($dn, '.') == 0 && !$self->{-cgit_scan_hidden_path}) {
+                       next;
+               }
+               my $nick = $base eq '' ? $dn : "$base/$dn";
+               my $git_dir = "$path/$dn";
+               if (is_git_dir($git_dir)) {
+                       my $repo = { url => $nick, path => $git_dir };
+                       cgit_repo_merge($self, $repo);
+               } elsif (-d $git_dir) {
+                       scan_path_coderepo($self, $nick, $git_dir);
+               }
+       }
+}
+
 sub parse_cgitrc {
        my ($self, $cgitrc, $nesting) = @_;
 
@@ -235,6 +259,10 @@ sub parse_cgitrc {
                        }
                } elsif (m!\Ainclude=(.+)\z!) {
                        parse_cgitrc($self, $1, $nesting + 1);
+               } elsif (m!\Ascan-hidden-path=(\d+)\z!) {
+                       $self->{-cgit_scan_hidden_path} = $1;
+               } elsif (m!\Ascan-path=(.+)\z!) {
+                       scan_path_coderepo($self, '', $1);
                }
        }
        cgit_repo_merge($self, $repo) if $repo;