perlsky is a Perl 5 implementation of an AT Protocol Personal Data Server.
Broaden handle availability response compatibility
+15
+15
lib/ATProto/PDS/API/Builtins.pm
+15
lib/ATProto/PDS/API/Builtins.pm
···
97
97
return {
98
98
handle => $handle // ($c->param('handle') // ''),
99
99
available => $available ? true : false,
100
+
result => $available ? {} : {
101
+
suggestions => [
102
+
map {
103
+
+{
104
+
handle => $_,
105
+
method => 'suffix',
106
+
}
107
+
} grep {
108
+
!$c->store->get_account_by_handle($_) && !$c->store->get_reserved_handle($_)
109
+
} map {
110
+
my ($left, $rest) = split /\./, ($handle // q()), 2;
111
+
$left . '-' . $_ . ($rest ? ".$rest" : q())
112
+
} qw(perl perl5 pds)
113
+
],
114
+
},
100
115
};
101
116
});
102
117
}