imap+nntp: share COMPRESS implementation

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

diff --git a/lib/PublicInbox/Unsubscribe.pm b/lib/PublicInbox/Unsubscribe.pm
index 621a7e0f827481866faac9b4c741952fef514d1b..ddbd7a2e52cc28225cdfa05c6a8f883f0a89a95e 100644 (file)
--- a/lib/PublicInbox/Unsubscribe.pm
+++ b/lib/PublicInbox/Unsubscribe.pm
@@ -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");
        }