diff options
author | Eric Wong <e@80x24.org> | 2017-02-17 03:31:16 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2017-02-17 03:31:16 +0000 |
commit | 8d83eab9d95348e996a2d1f92d970ddc0bf4f85b (patch) | |
tree | eb71f3f484084b2c1b4bc50446ad035e8b95e111 /lib/PublicInbox/RepoGitPlain.pm | |
parent | e7dc3224ad0b497da6ef242e3a9c612c5702514e (diff) | |
download | public-inbox-8d83eab9d95348e996a2d1f92d970ddc0bf4f85b.tar.gz |
This name is shorter and matches terminology in gitweb and other popular git web viewers.
Diffstat (limited to 'lib/PublicInbox/RepoGitPlain.pm')
-rw-r--r-- | lib/PublicInbox/RepoGitPlain.pm | 98 |
1 files changed, 0 insertions, 98 deletions
diff --git a/lib/PublicInbox/RepoGitPlain.pm b/lib/PublicInbox/RepoGitPlain.pm deleted file mode 100644 index 8aff2177..00000000 --- a/lib/PublicInbox/RepoGitPlain.pm +++ /dev/null @@ -1,98 +0,0 @@ -# Copyright (C) 2015-2016 all contributors <meta@public-inbox.org> -# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> -package PublicInbox::RepoGitPlain; -use strict; -use warnings; -use base qw(PublicInbox::RepoBase); -use PublicInbox::RepoGitBlob; -use PublicInbox::Hval qw(utf8_html); -use PublicInbox::Qspawn; - -sub call_git_plain { - my ($self, $req) = @_; - my $repo = $req->{-repo}; - my $git = $repo->{git}; - my $id = $repo->tip . ':' . $req->{expath}; - my ($cat, $hex, $type, $size) = $git->cat_file_begin($id); - return unless defined $cat; - - my ($r, $buf); - my $left = $size; - if ($type eq 'blob') { - $type = git_blob_mime_type($self, $req, $cat, \$buf, \$left); - } elsif ($type eq 'commit' || $type eq 'tag') { - $type = 'text/plain'; - } elsif ($type eq 'tree') { - $git->cat_file_finish($left); - return git_tree_plain($req, $git, $hex); - } else { - $type = 'application/octet-stream'; - } - git_blob_stream_response($git, $cat, $size, $type, $buf, $left); -} - -sub git_tree_sed ($) { - my ($req) = @_; - my $buf = ''; - my $end; - my $pfx = $req->{tpfx}; - sub { # $_[0] = buffer or undef - my $dst = delete $req->{tstart} || ''; - my @files; - if (defined $_[0]) { - @files = split(/\0/, $buf .= $_[0]); - $buf = pop @files if scalar @files; - } else { - @files = split(/\0/, $buf); - $end = '</ul></body></html>'; - } - foreach my $n (@files) { - $n = PublicInbox::Hval->utf8($n); - my $ref = $n->as_path; - $dst .= qq(<li><a\nhref="$pfx$ref">); - $dst .= $n->as_html; - $dst .= '</a></li>'; - } - $end ? $dst .= $end : $dst; - } -} - -# This should follow the cgit DOM structure in case anybody depends on it, -# not using <pre> here as we don't expect people to actually view it much -sub git_tree_plain { - my ($req, $git, $hex) = @_; - - my @ex = @{$req->{extra}}; - my $rel = $req->{relcmd}; - my $title = utf8_html(join('/', '', @ex, '')); - my $tslash = $req->{tslash}; - my $pfx = $tslash ? './' : 'plain/'; - my $t = "<h2>$title</h2><ul>"; - if (@ex) { - if ($tslash) { - $t .= qq(<li><a\nhref="../">../</a></li>); - } else { - $t .= qq(<li><a\nhref="./">../</a></li>); - my $last = PublicInbox::Hval->utf8($ex[-1])->as_href; - $pfx = "$last/"; - } - } - - $req->{tpfx} = $pfx; - $req->{tstart} = "<html><head><title>$title</title></head><body>".$t; - my $cmd = $git->cmd(qw(ls-tree --name-only -z), $git->abbrev, $hex); - my $rdr = { 2 => $git->err_begin }; - my $qsp = PublicInbox::Qspawn->new($cmd, undef, $rdr); - my $env = $req->{env}; - $qsp->psgi_return($env, undef, sub { - my ($r) = @_; - if (!defined $r) { - [ 500, [ 'Content-Type', 'text/plain' ], [ $git->err ]]; - } else { - $env->{'qspawn.filter'} = git_tree_sed($req); - [ 200, [ 'Content-Type', 'text/html' ] ]; - } - }); -} - -1; |