24 lines
568 B
Perl
24 lines
568 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
use v5.38.2;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Moo;
|
||
|
|
use File::Basename qw/dirname/;
|
||
|
|
use lib dirname(dirname(__FILE__)).'/lib';
|
||
|
|
use VPNManager::Schema;
|
||
|
|
use JSON::PP;
|
||
|
|
|
||
|
|
sub get_json($self) {
|
||
|
|
require VPNManager;
|
||
|
|
my $config = VPNManager->new->config;
|
||
|
|
my $resultset = VPNManager::Schema->Schema->resultset('WhitelistConsole');
|
||
|
|
my @users = map { $_->username } $resultset->search( {} );
|
||
|
|
my $json = JSON::PP->new;
|
||
|
|
$json->canonical([1]);
|
||
|
|
$json->pretty([1]);
|
||
|
|
print $json->encode([@users]);
|
||
|
|
}
|
||
|
|
__PACKAGE__->new->get_json;
|