INSTALL: add lynx to install requirements

[public-inbox.git] / public-inbox-cgi

diff --git a/public-inbox-cgi b/public-inbox-cgi
index 4e727da8a61fd20df7fd3921388314e15234be86..91314f06836456414a172e7b0e47669f20a5ecb4 100755 (executable)
--- a/public-inbox-cgi
+++ b/public-inbox-cgi
@@ -15,6 +15,7 @@ use warnings;
 use CGI qw(:cgi :escapeHTML -nosticky); # PSGI/FastCGI/mod_perl compat
 use Encode qw(decode_utf8);
 use PublicInbox::Config;
+use Digest::SHA qw(sha1_hex);
 our $LISTNAME_RE = qr!\A/([\w\.\-]+)!;
 our $pi_config;
 BEGIN {
@@ -56,20 +57,18 @@ sub main {
        if ($path_info eq "/") {
                r404();
        } elsif ($path_info =~ m!$LISTNAME_RE/?\z!o) {
-               invalid_list(\%ctx, $1) || get_list_log(\%ctx, $cgi);
-       } elsif ($path_info =~ m!$LISTNAME_RE/all\z!o) {
-               invalid_list(\%ctx, $1) || get_list_all(\%ctx, $cgi);
+               invalid_list(\%ctx, $1) || get_index(\%ctx, $cgi, 1);
        } elsif ($path_info =~ m!$LISTNAME_RE/index\.atom\.xml\z!o) {
                invalid_list(\%ctx, $1) || get_atom(\%ctx, $cgi, 1);
        } elsif ($path_info =~ m!$LISTNAME_RE/all\.atom\.xml\z!o) {
                invalid_list(\%ctx, $1) || get_atom(\%ctx, $cgi, 0);
 
        # single-message pages
-       } elsif ($path_info =~ m!$LISTNAME_RE/mid/(\S+)\.txt\z!o) {
-               get_mid_txt($cgi, $1, $2);
-       } elsif ($path_info =~ m!$LISTNAME_RE/mid/(\S+)\.html\z!o) {
-               get_mid_html($cgi, $1, $2);
-       } elsif ($path_info =~ m!$LISTNAME_RE/mid/(\S+)\z!o) {
+       } elsif ($path_info =~ m!$LISTNAME_RE/m/(\S+)\.txt\z!o) {
+               invalid_list_mid(\%ctx, $1, $2) || get_mid_txt(\%ctx, $cgi);
+       } elsif ($path_info =~ m!$LISTNAME_RE/m/(\S+)\.html\z!o) {
+               invalid_list_mid(\%ctx, $1, $2) || get_mid_html(\%ctx, $cgi);
+       } elsif ($path_info =~ m!$LISTNAME_RE/m/(\S+)\z!o) {
                redirect_mid_html($cgi, $1, $2);
        } else {
                r404();
@@ -114,3 +113,33 @@ sub get_atom {
                })
        ];
 }
+
+sub get_index {
+       my ($ctx, $cgi, $top) = @_;
+       require PublicInbox::Feed;
+       [ '200 OK', { 'Content-Type' => 'text/html' },
+         PublicInbox::Feed->generate_html_index({
+                       git_dir => $ctx->{git_dir},
+                       listname => $ctx->{listname},
+                       pi_config => $pi_config,
+                       cgi => $cgi,
+                       top => $top,
+               })
+       ];
+}
+
+sub mid2blob {
+       my ($ctx) = @_;
+       local $ENV{GIT_DIR} = $ctx->{git_dir};
+       my $hex = sha1_hex($ctx->{mid});
+       $hex =~ /\A([a-f0-9]{2})([a-f0-9]{38})\z/i or
+                       die "BUG: not a SHA-1 hex: $hex";
+       my $blob = `git cat-file blob HEAD:$1/$2 2>/dev/null`;
+       $? == 0 ? \$blob : undef;
+}
+
+sub get_mid_txt {
+       my ($ctx, $cgi) = @_;
+       my $x = mid2blob($ctx);
+       $x ? [ "200 OK", {'Content-Type' => 'text/plain'}, $$x ] : r404();
+}