279 lines
8.1 KiB
Perl
279 lines
8.1 KiB
Perl
package DNSManager;
|
||
|
||
use Dancer ':syntax';
|
||
use strict;
|
||
use warnings;
|
||
use v5.14;
|
||
use Modern::Perl;
|
||
use Data::Dump qw( dump );
|
||
use Data::Structure::Util qw ( unbless );
|
||
use File::Basename;
|
||
use Config::Simple;
|
||
use Storable qw( freeze thaw );
|
||
$Storable::Deparse = true;
|
||
$Storable::Eval=true;
|
||
|
||
# Include other libs relative to current path
|
||
use Find::Lib '../../';
|
||
use app::app;
|
||
|
||
my $success;
|
||
our $cfg = new Config::Simple(dirname(__FILE__).'/../conf/config.ini');
|
||
|
||
our $VERSION = '0.1';
|
||
|
||
get '/' => sub {
|
||
if( session('login') )
|
||
{
|
||
# my ($auth_ok, $user, $admin) =
|
||
# $usermanagement->auth( session('login'), session('password') );
|
||
my $app = app->new( zdir => $cfg->param('zones_path'),
|
||
dbname => $cfg->param('dbname'),
|
||
dbhost => $cfg->param('host'),
|
||
dbport => $cfg->param('port'),
|
||
dbuser => $cfg->param('user'),
|
||
dbpass => $cfg->param('passwd'),
|
||
sgbd => $cfg->param('sgbd'),
|
||
dnsapp => $cfg->param('dnsapp') );
|
||
$app->init();
|
||
$app->get_domains( session('login') );
|
||
template 'index' =>
|
||
{ 'logged' => true,
|
||
'login' => session('login'),
|
||
'admin' => session('admin'),
|
||
'domains' => $app->get_domains(session('login'))
|
||
};
|
||
}
|
||
else
|
||
{
|
||
template 'index';
|
||
}
|
||
};
|
||
|
||
post '/login' => sub {
|
||
|
||
# Check if user is already logged
|
||
unless ( session('login') )
|
||
{
|
||
# Check user login and password
|
||
if ( param('login') && param('password') )
|
||
{
|
||
my $app = app->new( zdir => $cfg->param('zones_path'),
|
||
dbname => $cfg->param('dbname'),
|
||
dbhost => $cfg->param('host'),
|
||
dbport => $cfg->param('port'),
|
||
dbuser => $cfg->param('user'),
|
||
dbpass => $cfg->param('passwd'),
|
||
sgbd => $cfg->param('sgbd'),
|
||
dnsapp => $cfg->param('dnsapp') );
|
||
$app->init();
|
||
my ($auth_ok, $user, $isadmin) = $app->auth(param('login'),
|
||
param('password') );
|
||
if( $auth_ok )
|
||
{
|
||
|
||
session login => param('login');
|
||
# TODO : change password storage…
|
||
session password => param('password');
|
||
session user => freeze( $user );
|
||
session admin => $isadmin;
|
||
|
||
}
|
||
else
|
||
{
|
||
# User login and/or password are incorrect
|
||
}
|
||
}
|
||
}
|
||
redirect '/';
|
||
};
|
||
|
||
|
||
get '/mapage' => sub {
|
||
unless( session('login') )
|
||
{
|
||
redirect '/';
|
||
}
|
||
else
|
||
{
|
||
# my ($auth_ok, $user, $admin) =
|
||
# $usermanagement->auth( session('login'), session('password') );
|
||
my $app = app->new( zdir => $cfg->param('zones_path'),
|
||
dbname => $cfg->param('dbname'),
|
||
dbhost => $cfg->param('host'),
|
||
dbport => $cfg->param('port'),
|
||
dbuser => $cfg->param('user'),
|
||
dbpass => $cfg->param('passwd'),
|
||
sgbd => $cfg->param('sgbd'),
|
||
dnsapp => $cfg->param('dnsapp') );
|
||
$app->init();
|
||
my %domains = ();
|
||
my %zone_properties = ();
|
||
|
||
|
||
my @d = @{$app->get_domains( session('login') )};
|
||
|
||
|
||
# loop on domains
|
||
#foreach( @{ $app->get_domains( session('login') )} )
|
||
#{
|
||
# my @zones = ();
|
||
# # TODO
|
||
# foreach my $zone ( $app->get_domain($_)->output() )
|
||
# {
|
||
# # avoid some var
|
||
# # keep only hash type
|
||
# if( ref($zone) eq 'HASH' )
|
||
# {
|
||
# if( $zone->{'addr'} )
|
||
# {
|
||
# unless( $zone->{'addr'} eq '@' )
|
||
# {
|
||
# # normal zone, push it
|
||
# push( @zones, $zone );
|
||
# }
|
||
# else
|
||
# {
|
||
# # domain properties
|
||
# $zone_properties{$_} = $zone;
|
||
# }
|
||
# }
|
||
# }
|
||
# }
|
||
# $domains{$_} = [ @zones ];
|
||
#}
|
||
|
||
#my @keys = keys(%domains);
|
||
#print "key : $_ value : $domains{$_}\n" foreach(@keys);
|
||
# foreach my $k ( keys %domains) {
|
||
# foreach my $v ( keys @{ $domains{$k} } ) {
|
||
# #print "dump : ".dump( $v )."\n";
|
||
# if( UNIVERSAL::isa($domains{$k}[$v], "HASH" ) )
|
||
# {
|
||
# print "hash...\n";
|
||
# print "start ------\n";
|
||
# print "$_ => $domains{$k}[$v]{$_}\n" foreach( keys $domains{$k}[$v] );
|
||
# print "end ------\n\n";
|
||
# }
|
||
# print "value : " . dump( $domains{$k}[$v] ) . "\n";
|
||
# }
|
||
# }
|
||
#print 'manual dump : ' . dump( $domains{'karchnu.fr'} )."\n";
|
||
#print 'prop dump : ' . dump( %zone_properties ) . "\n";
|
||
template 'mapage' =>
|
||
{ 'login' => session('login'),
|
||
'domains' => $app->get_domains(session('login')),
|
||
'zones_domains' => \%domains,
|
||
'zone_properties' => \%zone_properties,
|
||
'admin' => session('admin') };
|
||
}
|
||
};
|
||
|
||
get '/details' => sub {
|
||
# check if user is logged & if domain parameter is set
|
||
unless( session('login') && param('domain'))
|
||
{
|
||
redirect '/';
|
||
}
|
||
else
|
||
{
|
||
|
||
# my ($auth_ok, $user, $admin) =
|
||
# $usermanagement->auth( session('login'), session('password') );
|
||
my $app = app->new( zdir => $cfg->param('zones_path'),
|
||
dbname => $cfg->param('dbname'),
|
||
dbhost => $cfg->param('host'),
|
||
dbport => $cfg->param('port'),
|
||
dbuser => $cfg->param('user'),
|
||
dbpass => $cfg->param('passwd'),
|
||
sgbd => $cfg->param('sgbd'),
|
||
dnsapp => $cfg->param('dnsapp') );
|
||
$app->init();
|
||
my ($auth_ok, $user, $isadmin) = $app->auth( param('login') );
|
||
my @zones = ();
|
||
my $zone_properties;
|
||
#say 'dump : ' . dump $user->get_zone( param('domain') );
|
||
|
||
for( $user->get_zone( param('domain') ) ) {
|
||
|
||
if( ref($_) eq 'HASH' and exists $_->{addr} ) {
|
||
push( @zones, $_ ) when $_->{addr} ne '@';
|
||
$zone_properties = $_ when $_->{addr} eq '@';
|
||
}
|
||
|
||
}
|
||
template 'details' =>
|
||
{ 'login' => session('login'),
|
||
'domain' => param('domain'),
|
||
'zones' => \@zones,
|
||
'zone_properties' => $zone_properties };
|
||
}
|
||
|
||
};
|
||
|
||
|
||
any ['get', 'post'] => '/administration' => sub {
|
||
unless( session('login') )
|
||
{
|
||
redirect '/';
|
||
}
|
||
else
|
||
{
|
||
template 'administration' =>
|
||
{ 'login' => session('login'),
|
||
'admin' => session('admin') };
|
||
}
|
||
};
|
||
|
||
any ['post', 'get'] => '/logout' => sub {
|
||
session->destroy;
|
||
redirect '/';
|
||
};
|
||
|
||
get '/domainadd' => sub {
|
||
# check if user is logged & if domain parameter is set
|
||
unless( session('login') )
|
||
{
|
||
redirect '/';
|
||
}
|
||
else
|
||
{
|
||
|
||
my $app = app->new( zdir => $cfg->param('zones_path'),
|
||
dbname => $cfg->param('dbname'),
|
||
dbhost => $cfg->param('host'),
|
||
dbport => $cfg->param('port'),
|
||
dbuser => $cfg->param('user'),
|
||
dbpass => $cfg->param('passwd'),
|
||
sgbd => $cfg->param('sgbd'),
|
||
dnsapp => $cfg->param('dnsapp') );
|
||
$app->init();
|
||
|
||
if( param('domain') )
|
||
{
|
||
# create domain
|
||
$app->add_domain( session('login'), param('domain') );
|
||
# Then, redirect to mapage
|
||
redirect '/mapage';
|
||
}
|
||
|
||
}
|
||
|
||
};
|
||
|
||
get qr{/domaindel/(.*)} => sub {
|
||
my ($domainToDelete) = splat;
|
||
my $app = app->new( zdir => $cfg->param('zones_path'),
|
||
dbname => $cfg->param('dbname'),
|
||
dbhost => $cfg->param('host'),
|
||
dbport => $cfg->param('port'),
|
||
dbuser => $cfg->param('user'),
|
||
dbpass => $cfg->param('passwd'),
|
||
sgbd => $cfg->param('sgbd'),
|
||
dnsapp => $cfg->param('dnsapp') );
|
||
$app->init();
|
||
$app->delete_domain(session('login'), $domainToDelete);
|
||
redirect '/mapage';
|
||
}
|
||
|