34 lines
443 B
Perl
34 lines
443 B
Perl
package cyberman::API;
|
|
use Dancer2 appname => "cyberman";
|
|
use Dancer2::Plugin::Database;
|
|
|
|
use cyberman::Helper;
|
|
|
|
get '/api/check_availability' => sub {
|
|
# No auth req'd
|
|
# returns 'y' or 'n'
|
|
|
|
if (!param("name")) {
|
|
return "n";
|
|
}
|
|
|
|
if (!check_name(param "name")) {
|
|
return "n";
|
|
}
|
|
|
|
my $result = database->quick_select(
|
|
"domain",
|
|
{
|
|
"name" => param("name"),
|
|
}
|
|
);
|
|
|
|
if ($result) {
|
|
return "n";
|
|
} else {
|
|
return "y";
|
|
}
|
|
};
|
|
|
|
true;
|