if (@EXT_URL && index($mid, '@') >= 0) {
$code = 300;
$s .= "\nPerhaps try an external site:\n\n";
- my $scheme = $cgi->scheme;
+ my $env = $cgi->{env};
foreach my $u (@EXT_URL) {
- $u = "$scheme:$u" if $u =~ m!\A//!;
+ $u = PublicInbox::Hval::prurl($env, $u);
my $r = sprintf($u, $href);
my $t = sprintf($u, $html);
$s .= qq{<a\nhref="$r">$t</a>\n};
my $res = html_start($q, $ctx) . '<pre>';
if ($err) {
$code = 400;
- $res .= err_txt($err) . "</pre><hr /><pre>" . foot($ctx);
+ $res .= err_txt($ctx, $err) . "</pre><hr /><pre>" . foot($ctx);
} elsif ($total == 0) {
$code = 404;
$res .= "\n\n[No results found]</pre><hr /><pre>".foot($ctx);
}
sub err_txt {
- my ($err) = @_;
- my $u = 'http://xapian.org/docs/queryparser.html';
+ my ($ctx, $err) = @_;
+ my $u = '//xapian.org/docs/queryparser.html';
+ $u = PublicInbox::Hval::prurl($ctx->{cgi}->{env}, $u);
$err =~ s/^\s*Exception:\s*//; # bad word to show users :P
$err = PublicInbox::Hval->new_oneline($err)->as_html;
"\n\nBad query: <b>$err</b>\n" .
use warnings;
use PublicInbox::Config qw(try_cat);
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/';
+use constant SSOMA_URL => '//ssoma.public-inbox.org/';
+use constant PI_URL => '//public-inbox.org/';
require PublicInbox::Git;
use PublicInbox::GitHTTPBackend;
our $LISTNAME_RE = qr!\A/([\w\.\-]+)!;
my $urls = try_cat("$git_dir/cloneurl");
my @urls = split(/\r?\n/, $urls || '');
my %seen = map { $_ => 1 } @urls;
- my $http = $ctx->{cgi}->base->as_string . $listname;
+ my $cgi = $ctx->{cgi};
+ my $http = $cgi->base->as_string . $listname;
$seen{$http} or unshift @urls, $http;
+ my $ssoma_url = PublicInbox::Hval::prurl($cgi->{env}, SSOMA_URL);
if (scalar(@urls) == 1) {
- $urls = "URL for <a\nhref=\"" . SSOMA_URL .
+ $urls = "URL for <a\nhref=\"" . $ssoma_url .
qq(">ssoma</a> or <b>git clone --mirror \$URL</b> :) .
$urls[0];
} else {
- $urls = "URLs for <a\nhref=\"" . SSOMA_URL .
+ $urls = "URLs for <a\nhref=\"" . $ssoma_url .
qq(">ssoma</a> or <b>git clone --mirror \$URL</b>\n) .
join("\n", map { "\t$_" } @urls);
}
$ctx->{footer} = join("\n",
'- ' . $desc,
- "A <a\nhref=\"" . PI_URL . '">public-inbox</a>, ' .
+ "A <a\nhref=\"" .
+ PublicInbox::Hval::prurl($ctx->{cgi}->{env}, PI_URL) .
+ '">public-inbox</a>, ' .
'anybody may post in plain-text (not HTML):',
$addr,
$urls