diff options
author | Eric Wong <e@80x24.org> | 2016-06-25 22:05:35 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-06-25 22:05:35 +0000 |
commit | 7a9035643fc19b89699093dfda1eb3f32c4c29a9 (patch) | |
tree | 25e1824a6cf968ad51d18dec41b6152851bb328f /lib/PublicInbox/WwwStream.pm | |
parent | 073efc43a68cbd6852939ccaf644dbb380cdc143 (diff) | |
download | public-inbox-7a9035643fc19b89699093dfda1eb3f32c4c29a9.tar.gz |
They may be other public-inbox instances which are browseable, so provide a link to them to encourage their use as clones.
Diffstat (limited to 'lib/PublicInbox/WwwStream.pm')
-rw-r--r-- | lib/PublicInbox/WwwStream.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lib/PublicInbox/WwwStream.pm b/lib/PublicInbox/WwwStream.pm index 62a4fe26..34f32c0b 100644 --- a/lib/PublicInbox/WwwStream.pm +++ b/lib/PublicInbox/WwwStream.pm @@ -44,8 +44,6 @@ sub _html_end { my $ctx = $self->{ctx}; my $obj = $ctx->{-inbox}; my $desc = ascii_html($obj->description); - my @urls = @{$obj->cloneurl}; - my %seen = map { $_ => 1 } @urls; # FIXME: cleanup my $env = $ctx->{env}; @@ -54,9 +52,15 @@ sub _html_end { "$env->{SERVER_NAME}:$env->{SERVER_PORT}"; my $http = "$scheme://$host_port".($env->{SCRIPT_NAME} || '/'); $http = URI->new($http . $obj->{name})->canonical->as_string; - $seen{$http} or unshift @urls, $http; + my %seen = ( $http => 1 ); + my @urls = ($http); + foreach my $u (@{$obj->cloneurl}) { + next if $seen{$u}; + $seen{$u} = 1; + push @urls, $u =~ /\Ahttps?:/ ? qq(<a\nhref="$u">$u</a>) : $u; + } if (scalar(@urls) == 1) { - $urls .= " git clone --mirror $urls[0]"; + $urls .= " git clone --mirror $http"; } else { $urls .= "\n" . join("\n", map { "\tgit clone --mirror $_" } @urls); |