perlsky is a Perl 5 implementation of an AT Protocol Personal Data Server.
Fix Sentry store authentication
+2
-6
+1
-5
lib/ATProto/PDS/Sentry.pm
+1
-5
lib/ATProto/PDS/Sentry.pm
···
120
120
my $store = $url->clone;
121
121
$store->userinfo(undef);
122
122
$store->path('/' . join('/', grep { length } @prefix, 'api', $project_id, 'store') . '/');
123
-
$store->query({
124
-
sentry_key => $url->username,
125
-
sentry_version => 7,
126
-
((defined($url->password) && length($url->password)) ? (sentry_secret => $url->password) : ()),
127
-
});
123
+
$store->query(undef);
128
124
return {
129
125
public_key => $url->username,
130
126
secret_key => $url->password,
+1
-1
t/sentry.t
+1
-1
t/sentry.t
···
85
85
'capture_exception reports success for a 200 response',
86
86
);
87
87
is(scalar @requests, 1, 'capture_exception submits one store request');
88
-
is($requests[0]{url}, 'http://127.0.0.1:9999/api/42/store/?sentry_key=public&sentry_secret=secret&sentry_version=7', 'dsn is converted into the expected store URL');
88
+
is($requests[0]{url}, 'http://127.0.0.1:9999/api/42/store/', 'dsn is converted into the expected store URL');
89
89
like($requests[0]{headers}{'X-Sentry-Auth'}, qr/sentry_key=public/, 'sentry auth header includes the public key');
90
90
is($requests[0]{payload}{tags}{nsid}, 'com.atproto.server.describeServer', 'payload includes the nsid tag');
91
91
is($requests[0]{payload}{exception}{values}[0]{type}, 'UnhandledXRPCException', 'payload includes exception type');