miyagawa

# 1. Download git and make gitweb/gitweb.cgi (See gitweb/INSTALL how to set gitweb root etc.)
# 2. Copy this file as gitweb/app.psgi 
# 3. cd gitweb; plackup
# 4. Access http://localhost:3000/gitweb.cgi

use Plack::Builder;
use Plack::App::WrapCGI;
use Plack::App::File;

builder {

motemen

#!/usr/bin/perl
use strict;
use warnings;
use List::MoreUtils qw(any);

sub git;

chdir git('rev-parse --git-dir') . '/..';

my @submodules = map [split /\s+/]->[-1], grep /^160000 /, git 'ls-files --stage';