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';
|
|||
|
|
}
|
|||
|
|
|