55 lines
977 B
Perl
55 lines
977 B
Perl
package cyberman::Admin;
|
|
use Dancer2 appname => "cyberman";
|
|
use Dancer2::Plugin::Database;
|
|
|
|
use cyberman::Helper;
|
|
|
|
get '/admin' => sub {
|
|
return auth_test("admin") if auth_test("admin");
|
|
|
|
my $sth = database->prepare(
|
|
"select count(*) from user",
|
|
);
|
|
$sth->execute;
|
|
my $usercount = $sth->fetchrow_hashref->{"count(*)"};
|
|
|
|
$sth = database->prepare(
|
|
"select count(*) from domain",
|
|
);
|
|
$sth->execute;
|
|
my $domaincount = $sth->fetchrow_hashref->{"count(*)"};
|
|
|
|
return template "admin" => {
|
|
usercount => $usercount,
|
|
domaincount => $domaincount,
|
|
};
|
|
};
|
|
|
|
get '/admin/users' => sub {
|
|
return auth_test("admin") if auth_test("admin");
|
|
|
|
my @users = database->quick_select(
|
|
"user",
|
|
{}
|
|
);
|
|
|
|
return template "admin/users" => {
|
|
users => \@users,
|
|
};
|
|
};
|
|
|
|
get '/admin/domains' => sub {
|
|
return auth_test("admin") if auth_test("admin");
|
|
|
|
my @domains = database->quick_select(
|
|
"domain",
|
|
{}
|
|
);
|
|
|
|
return template "admin/domains" => {
|
|
domains => \@domains,
|
|
};
|
|
};
|
|
|
|
true;
|