From: Eric Wong <e@80x24.org>
Date: Thu, 17 Apr 2014 21:31:06 +0000 (+0000)
Subject: cgi: implement suffix-less Message-ID redirects
X-Git-Tag: v1.0.0~1242
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=20af945e6e9a89a33a531a71dd5a06fcd0bab9cb;p=public-inbox.git

cgi: implement suffix-less Message-ID redirects

This may be easier in some cases for copy+paste, but not 100%
reliable in case the .txt and .html suffixes are in the Message-ID
itself.
---

diff --git a/public-inbox.cgi b/public-inbox.cgi
index bd592ce3..31d52133 100755
--- a/public-inbox.cgi
+++ b/public-inbox.cgi
@@ -78,14 +78,14 @@ sub main {
 		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);
 
 	# full-message page
 	} elsif ($path_info =~ m!$LISTNAME_RE/f/(\S+)\.html\z!o) {
 		invalid_list_mid(\%ctx, $1, $2) || get_full_html(\%ctx, $cgi);
-	} elsif ($path_info =~ m!$LISTNAME_RE/f/(\S+)\z!o) {
-		redirect_mid_html($cgi, $1, $2);
+
+	# convenience redirect
+	} elsif ($path_info =~ m!$LISTNAME_RE/(?:m|f)/(\S+)\z!o) {
+		invalid_list_mid(\%ctx, $1, $2) || redirect_mid(\%ctx, $cgi);
 
 	} else {
 		r404();
@@ -195,6 +195,13 @@ sub redirect_list_index {
 	do_redirect($cgi->self_url . "/");
 }
 
+sub redirect_mid {
+	my ($ctx, $cgi) = @_;
+	my $url = $cgi->self_url;
+	$url =~ s!/f/!/m/!;
+	do_redirect($url . '.html');
+}
+
 sub do_redirect {
 	my ($url) = @_;
 	[ '301 Moved Permanently',