X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FUnsubscribe.pm;h=ddbd7a2e52cc28225cdfa05c6a8f883f0a89a95e;hb=23af251dd607c4e75ab1e68063f2c885c48cc035;hp=ae0b06793f6f81d85e5a42ea7e9b7671151c5599;hpb=2adbbf87748719b422ba08d674ccb35637cb76b5;p=public-inbox.git
diff --git a/lib/PublicInbox/Unsubscribe.pm b/lib/PublicInbox/Unsubscribe.pm
index ae0b0679..ddbd7a2e 100644
--- a/lib/PublicInbox/Unsubscribe.pm
+++ b/lib/PublicInbox/Unsubscribe.pm
@@ -1,4 +1,4 @@
-# Copyright (C) 2016-2020 all contributors
+# Copyright (C) 2016-2021 all contributors
# License: AGPL-3.0+
#
# 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 = qw(http://ou63pmih66umazou.onion/public-inbox.git
+my @CODE_URL = qw(http://7fh6tueqddpjyxjmgtdiueylzoqt6pt7hec3pukyptlmohoowvhde4yd.onion/public-inbox.git
https://public-inbox.org/public-inbox.git);
my @CT_HTML = ('Content-Type', 'text/html; charset=UTF-8');
@@ -81,10 +81,7 @@ sub _user_list_addr {
}
my $user = eval { $self->{cipher}->decrypt(decode_base64url($u)) };
if (!defined $user || index($user, '@') < 1) {
- my $err = quotemeta($@);
- my $errors = $env->{'psgi.errors'};
- $errors->print("error decrypting: $u\n");
- $errors->print("$_\n") for split("\n", $err);
+ warn "error decrypting: $u: ", ($@ ? quotemeta($@) : ());
$u = Plack::Util::encode_html($u);
return r($self, 400, 'Bad request', "Failed to decrypt: $u");
}