From d39a8a440c9b5c59e1fa058467f64034f8974e0e Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Tue, 2 Feb 2016 04:00:08 +0000
Subject: www: support git cloning via dumb HTTP

This is enabled by default, for now.
Smart HTTP cloning support will be added later, but it will
be optional since it can be highly CPU and memory intensive.
---
 lib/PublicInbox/WWW.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lib/PublicInbox/WWW.pm')

diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm
index d5635d84..1c6936f7 100644
--- a/lib/PublicInbox/WWW.pm
+++ b/lib/PublicInbox/WWW.pm
@@ -18,6 +18,7 @@ use URI::Escape qw(uri_escape_utf8 uri_unescape);
 use constant SSOMA_URL => 'http://ssoma.public-inbox.org/';
 use constant PI_URL => 'http://public-inbox.org/';
 require PublicInbox::Git;
+use PublicInbox::GitHTTPDumb;
 our $LISTNAME_RE = qr!\A/([\w\.\-]+)!;
 our $MID_RE = qr!([^/]+)!;
 our $END_RE = qr!(f/|T/|t/|t\.mbox(?:\.gz)?|t\.atom|raw|)!;
@@ -42,6 +43,10 @@ sub run {
 	} elsif ($path_info =~ m!$LISTNAME_RE/(?:atom\.xml|new\.atom)\z!o) {
 		invalid_list($ctx, $1) || get_atom($ctx);
 
+	} elsif ($path_info =~ m!$LISTNAME_RE/
+				($PublicInbox::GitHTTPDumb::ANY)\z!ox) {
+		my $path = $2;
+		invalid_list($ctx, $1) || serve_git($cgi, $ctx->{git}, $path);
 	} elsif ($path_info =~ m!$LISTNAME_RE/$MID_RE/$END_RE\z!o) {
 		msg_page($ctx, $1, $2, $3);
 
@@ -395,4 +400,9 @@ sub msg_page {
 	r404($ctx);
 }
 
+sub serve_git {
+	my ($cgi, $git, $path) = @_;
+	PublicInbox::GitHTTPDumb::serve($cgi, $git, $path);
+}
+
 1;
-- 
cgit v1.2.3-24-ge0c7