treewide: run update-copyrights from gnulib for 2019

[public-inbox.git] / lib / PublicInbox / Unsubscribe.pm
diff --git a/lib/PublicInbox/Unsubscribe.pm b/lib/PublicInbox/Unsubscribe.pm

index 79234aa170aeb20a6cae3b5eff03b4e7d475cae7..945e7ae77d4c14bdaccfed19363375ad128e4214 100644 (file)
--- a/lib/PublicInbox/Unsubscribe.pm
+++ b/lib/PublicInbox/Unsubscribe.pm
@@ -1,4 +1,4 @@
-# Copyright (C) 2016 all contributors <meta@public-inbox.org>
+# Copyright (C) 2016-2020 all contributors <meta@public-inbox.org>
  # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
  #
  # Standalone PSGI app to handle HTTP(s) unsubscribe links generated
@@ -12,7 +12,7 @@ use warnings;
  use Crypt::CBC;
  use Plack::Util;
  use MIME::Base64 qw(decode_base64url);
-my $CODE_URL = 'git://80x24.org/public-inbox.git';
+my $CODE_URL = 'https://public-inbox.org/public-inbox.git';
  my @CT_HTML = ('Content-Type', 'text/html; charset=UTF-8');
  
  sub new {
@@ -136,7 +136,7 @@ sub r {
         my ($self, $code, $title, @body) = @_;
         [ $code, [ @CT_HTML ], [
                 "<html><head><title>$title</title></head><body><pre>".
-               join("\n", "<b>$title</b>\n", @body) . '</pre><hr />'.
+               join("\n", "<b>$title</b>\n", @body) . '</pre><hr>'.
                 "<pre>This page is available under AGPL-3.0+\n" .
                 "git clone $self->{code_url}\n" .
                 qq(Email $self->{contact} if you have any questions).
@@ -151,9 +151,9 @@ sub archive_info {
         unless ($archive_url) {
                 if (my $config = $self->{pi_config}) {
                         # PublicInbox::Config::lookup
-                       my $inbox = $config->lookup($list_addr);
+                       my $ibx = $config->lookup($list_addr);
                         # PublicInbox::Inbox::base_url
-                       $archive_url = $inbox->base_url if $inbox;
+                       $archive_url = $ibx->base_url if $ibx;
                 }
         }