Merge branch 'features/modEntry' into debug
commit
e24bad43f6
104
app/app.pm
104
app/app.pm
|
@ -168,4 +168,108 @@ sub new_tmp {
|
||||||
$ze->new_tmp();
|
$ze->new_tmp();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub _mod_entry {
|
||||||
|
my ($self, $login, $domain, $entryToDelete, $action, $newEntry) = @_;
|
||||||
|
|
||||||
|
my $name = $entryToDelete->{'name'};
|
||||||
|
my $type = $entryToDelete->{'type'};
|
||||||
|
my $ttl = $entryToDelete->{'ttl'};
|
||||||
|
my $host = $entryToDelete->{'host'};
|
||||||
|
my $priority = $entryToDelete->{'priority'};
|
||||||
|
|
||||||
|
my $new_name = $newEntry->{'newname'};
|
||||||
|
my $new_type = $newEntry->{'newtype'};
|
||||||
|
my $new_ttl = $newEntry->{'newttl'};
|
||||||
|
my $new_host = $newEntry->{'newhost'};
|
||||||
|
my $new_priority = $newEntry->{'newpriority'};
|
||||||
|
|
||||||
|
# say "in _mod_entry : $action";
|
||||||
|
# say "in _mod_entry : $new_name";
|
||||||
|
my $zone = $self->get_domain($login , $domain);
|
||||||
|
my $dump = $zone->dump;
|
||||||
|
|
||||||
|
my $record;
|
||||||
|
my $found = 0;
|
||||||
|
|
||||||
|
given( lc $type )
|
||||||
|
{
|
||||||
|
when ('a')
|
||||||
|
{
|
||||||
|
$record = $zone->a;
|
||||||
|
$found = 1;
|
||||||
|
}
|
||||||
|
when ('aaaa')
|
||||||
|
{
|
||||||
|
$record = $zone->aaaa;
|
||||||
|
$found = 1;
|
||||||
|
}
|
||||||
|
when ('cname')
|
||||||
|
{
|
||||||
|
$record = $zone->cname;
|
||||||
|
$found = 1;
|
||||||
|
}
|
||||||
|
when ('ns')
|
||||||
|
{
|
||||||
|
$record = $zone->ns;
|
||||||
|
$found = 1;
|
||||||
|
}
|
||||||
|
when ('mx')
|
||||||
|
{
|
||||||
|
$record = $zone->mx;
|
||||||
|
$found = 1;
|
||||||
|
}
|
||||||
|
when ('ptr')
|
||||||
|
{
|
||||||
|
$record = $zone->ptr;
|
||||||
|
$found = 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if( $found )
|
||||||
|
{
|
||||||
|
|
||||||
|
foreach my $i ( 0 .. scalar @{$record}-1 )
|
||||||
|
{
|
||||||
|
|
||||||
|
if( $action eq 'del' )
|
||||||
|
{
|
||||||
|
delete $record->[$i]
|
||||||
|
if( $record->[$i]->{'name'} eq $name &&
|
||||||
|
$record->[$i]->{'host'} eq $host &&
|
||||||
|
$record->[$i]->{'ttl'} == $ttl );
|
||||||
|
}
|
||||||
|
if ( $action eq 'mod' )
|
||||||
|
{
|
||||||
|
if( $record->[$i]->{'name'} eq $name &&
|
||||||
|
$record->[$i]->{'host'} eq $host &&
|
||||||
|
$record->[$i]->{'ttl'} == $ttl )
|
||||||
|
{
|
||||||
|
$record->[$i]->{'name'} = $new_name;
|
||||||
|
$record->[$i]->{'host'} = $new_host;
|
||||||
|
$record->[$i]->{'ttl'} = $new_ttl;
|
||||||
|
if( defined $new_priority )
|
||||||
|
{
|
||||||
|
$record->[$i]->{'priority'} = $new_priority
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
$self->update_domain( $login, $zone, $domain );
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
sub delete_entry {
|
||||||
|
my ($self, $login, $domain, $entryToDelete) = @_;
|
||||||
|
$self->_mod_entry( $login, $domain, $entryToDelete, 'del' );
|
||||||
|
}
|
||||||
|
|
||||||
|
sub modify_entry {
|
||||||
|
my ($self, $login, $domain, $entryToDelete, $newEntry) = @_;
|
||||||
|
$self->_mod_entry( $login, $domain, $entryToDelete, 'mod', $newEntry );
|
||||||
|
}
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|
|
@ -245,8 +245,8 @@ prefix '/domain' => sub {
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
my $app = initco();
|
my $app = initco();
|
||||||
my ($auth_ok, $user, $isadmin) = $app->auth(param('login'),
|
# my ($auth_ok, $user, $isadmin) = $app->auth(param('login'),
|
||||||
param('password') );
|
# param('password') );
|
||||||
|
|
||||||
my $zone = $app->get_domain(session('login') , param('domain'));
|
my $zone = $app->get_domain(session('login') , param('domain'));
|
||||||
|
|
||||||
|
@ -363,74 +363,54 @@ prefix '/domain' => sub {
|
||||||
else {
|
else {
|
||||||
# Load :domain and search for corresponding data
|
# Load :domain and search for corresponding data
|
||||||
my $app = initco();
|
my $app = initco();
|
||||||
my ($auth_ok, $user, $isadmin) = $app->auth(param('login'),
|
# my ($auth_ok, $user, $isadmin) = $app->auth(param('login'),
|
||||||
param('password') );
|
# param('password') );
|
||||||
|
|
||||||
my $zone = $app->get_domain(session('login') , param('domain'));
|
$app->delete_entry( session('login'),
|
||||||
my $dump = $zone->dump;
|
param('domain'),
|
||||||
|
|
||||||
my $record;
|
|
||||||
my $found = false;
|
|
||||||
|
|
||||||
given( lc param('type') )
|
|
||||||
{
|
{
|
||||||
when ('a')
|
type => param('type'),
|
||||||
{
|
name => param('name'),
|
||||||
$record = $zone->a;
|
host => param('host'),
|
||||||
$found = true;
|
ttl => param('ttl')
|
||||||
}
|
});
|
||||||
when ('aaaa')
|
|
||||||
{
|
|
||||||
$record = $zone->aaaa;
|
|
||||||
$found = true;
|
|
||||||
}
|
|
||||||
when ('cname')
|
|
||||||
{
|
|
||||||
$record = $zone->cname;
|
|
||||||
$found = true;
|
|
||||||
}
|
|
||||||
when ('ns')
|
|
||||||
{
|
|
||||||
$record = $zone->ns;
|
|
||||||
$found = true;
|
|
||||||
}
|
|
||||||
when ('mx')
|
|
||||||
{
|
|
||||||
$record = $zone->mx;
|
|
||||||
$found = true;
|
|
||||||
}
|
|
||||||
when ('ptr')
|
|
||||||
{
|
|
||||||
$record = $zone->ptr;
|
|
||||||
$found = true;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if( $found )
|
|
||||||
{
|
|
||||||
|
|
||||||
foreach my $i ( 0 .. scalar @{$record}-1 )
|
|
||||||
{
|
|
||||||
|
|
||||||
if( $record->[$i]->{'name'} eq param('name') &&
|
|
||||||
$record->[$i]->{'host'} eq param('host') &&
|
|
||||||
$record->[$i]->{'ttl'} == param('ttl') )
|
|
||||||
{
|
|
||||||
delete $record->[$i];
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
$app->update_domain( session('login'), $zone, param('domain') );
|
|
||||||
}
|
|
||||||
|
|
||||||
redirect '/domain/details/'. param('domain');
|
redirect '/domain/details/'. param('domain');
|
||||||
}
|
}
|
||||||
};
|
};
|
||||||
|
|
||||||
any ['get', 'post'] => '/admin' => sub {
|
get '/mod/:domain/:name/:type/:host/:ttl' => sub {
|
||||||
|
|
||||||
|
unless( session( 'user' ) and defined param('domain') ) {
|
||||||
|
session errmsg => q<Domaine non renseigné.>;
|
||||||
|
redirect get_route;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
# Load :domain and search for corresponding data
|
||||||
|
my $app = initco();
|
||||||
|
# my ($auth_ok, $user, $isadmin) = $app->auth(param('login'),
|
||||||
|
# param('password') );
|
||||||
|
|
||||||
|
$app->modify_entry( session('login'),
|
||||||
|
param('domain'),
|
||||||
|
{
|
||||||
|
type => param('type'),
|
||||||
|
name => param('name'),
|
||||||
|
host => param('host'),
|
||||||
|
ttl => param('ttl')
|
||||||
|
},
|
||||||
|
{
|
||||||
|
newtype => param('newtype'),
|
||||||
|
newname => param('newname'),
|
||||||
|
newhost => param('newhost'),
|
||||||
|
newttl => param('newttl'),
|
||||||
|
newpriority => param('newpriority')
|
||||||
|
});
|
||||||
|
|
||||||
|
redirect '/domain/details/'. param('domain');
|
||||||
|
}
|
||||||
|
};
|
||||||
|
any ['get', 'post'] => '/admin' => sub {
|
||||||
|
|
||||||
unless( session('login') )
|
unless( session('login') )
|
||||||
{
|
{
|
||||||
|
@ -460,6 +440,8 @@ any ['get', 'post'] => '/admin' => sub {
|
||||||
, allusers => { %allusers } };
|
, allusers => { %allusers } };
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
};
|
||||||
|
|
||||||
};
|
};
|
||||||
|
|
||||||
prefix '/user' => sub {
|
prefix '/user' => sub {
|
||||||
|
@ -663,5 +645,4 @@ prefix '/user' => sub {
|
||||||
redirect '/home';
|
redirect '/home';
|
||||||
|
|
||||||
};
|
};
|
||||||
|
|
||||||
};
|
};
|
||||||
|
|
|
@ -26,66 +26,84 @@
|
||||||
|
|
||||||
<% FOREACH address in ns %>
|
<% FOREACH address in ns %>
|
||||||
<tr>
|
<tr>
|
||||||
<td><% address.name %></td>
|
<form action='/domain/mod/<%domain%>/<%address.name%>/NS/<%address.host%>/<%address.ttl%>'>
|
||||||
|
<td><input type='text' name='newname' class="form-control" value='<% address.name %>'></input></td>
|
||||||
<td><% address.class %></td>
|
<td><% address.class %></td>
|
||||||
<td>NS</td>
|
<td>NS</td>
|
||||||
<td><% address.host %></td>
|
<td><input type='text' name='newhost' class="form-control" value='<% address.host %>'/></td>
|
||||||
<td><% address.ttl %></td>
|
<td><input type='number' name='newttl' class="form-control" value='<% address.ttl %>'/></td>
|
||||||
|
<td><input type='submit' id='submit' class="btn btn-success btn-xs" value='✔' />
|
||||||
|
</form>
|
||||||
<td><button type="button" class="btn btn-primary btn-danger btn-xs" onclick="location.href='http://'+location.host+'/domain/del/<% domain %>/<% address.name %>/NS/<% address.host %>/<% address.ttl %>';">✘</button></td>
|
<td><button type="button" class="btn btn-primary btn-danger btn-xs" onclick="location.href='http://'+location.host+'/domain/del/<% domain %>/<% address.name %>/NS/<% address.host %>/<% address.ttl %>';">✘</button></td>
|
||||||
</tr>
|
</tr>
|
||||||
<% END %>
|
<% END %>
|
||||||
|
|
||||||
<% FOREACH address in a %>
|
<% FOREACH address in a %>
|
||||||
<tr>
|
<tr>
|
||||||
<td><% address.name %></td>
|
<form action='/domain/mod/<%domain%>/<%address.name%>/A/<%address.host%>/<%address.ttl%>'>
|
||||||
|
<td><input type='text' name='newname' class="form-control" value='<% address.name %>'/></td>
|
||||||
<td><% address.class %></td>
|
<td><% address.class %></td>
|
||||||
<td>A</td>
|
<td>A</td>
|
||||||
<td><% address.host %></td>
|
<td><input type='text' name='newhost' class="form-control" value='<% address.host %>'/></td>
|
||||||
<td><% address.ttl %></td>
|
<td><input type='number' name='newttl' class="form-control" value='<% address.ttl %>'/></td>
|
||||||
|
<td><input type='submit' id='submit' class="btn btn-success btn-xs" value='✔' />
|
||||||
|
</form>
|
||||||
<td><button type="button" class="btn btn-primary btn-danger btn-xs" onclick="location.href='http://'+location.host+'/domain/del/<% domain %>/<% address.name %>/A/<% address.host %>/<% address.ttl %>';">✘</button></td>
|
<td><button type="button" class="btn btn-primary btn-danger btn-xs" onclick="location.href='http://'+location.host+'/domain/del/<% domain %>/<% address.name %>/A/<% address.host %>/<% address.ttl %>';">✘</button></td>
|
||||||
</tr>
|
</tr>
|
||||||
<% END %>
|
<% END %>
|
||||||
|
|
||||||
<% FOREACH address in aaaa %>
|
<% FOREACH address in aaaa %>
|
||||||
<tr>
|
<tr>
|
||||||
<td><% address.name %></td>
|
<form action='/domain/mod/<%domain%>/<%address.name%>/AAAA/<%address.host%>/<%address.ttl%>'>
|
||||||
|
<td><input type='text' name='newname' class="form-control" value='<% address.name %>'/></td>
|
||||||
<td><% address.class %></td>
|
<td><% address.class %></td>
|
||||||
<td>AAAA</td>
|
<td>AAAA</td>
|
||||||
<td><% address.host %></td>
|
<td><input type='text' name='newhost' class="form-control" value='<% address.host %>'/></td>
|
||||||
<td><% address.ttl %></td>
|
<td><input type='number' name='newttl' class="form-control" value='<% address.ttl %>'/></td>
|
||||||
|
<td><input type='submit' id='submit' class="btn btn-success btn-xs" value='✔' />
|
||||||
|
</form>
|
||||||
<td><button type="button" class="btn btn-primary btn-danger btn-xs" onclick="location.href='http://'+location.host+'/domain/del/<% domain %>/<% address.name %>/AAAA/<% address.host %>/<% address.ttl %>';">✘</button></td>
|
<td><button type="button" class="btn btn-primary btn-danger btn-xs" onclick="location.href='http://'+location.host+'/domain/del/<% domain %>/<% address.name %>/AAAA/<% address.host %>/<% address.ttl %>';">✘</button></td>
|
||||||
</tr>
|
</tr>
|
||||||
<% END %>
|
<% END %>
|
||||||
|
|
||||||
<% FOREACH address in cname %>
|
<% FOREACH address in cname %>
|
||||||
<tr>
|
<tr>
|
||||||
<td><% address.name %></td>
|
<form action='/domain/mod/<%domain%>/<%address.name%>/CNAME/<%address.host%>/<%address.ttl%>'>
|
||||||
|
<td><input type='text' name='newname' class="form-control" value='<% address.name %>'/></td>
|
||||||
<td><% address.class %></td>
|
<td><% address.class %></td>
|
||||||
<td>CNAME</td>
|
<td>CNAME</td>
|
||||||
<td><% address.host %></td>
|
<td><input type='text' name='newhost' class="form-control" value='<% address.host %>'/></td>
|
||||||
<td><% address.ttl %></td>
|
<td><input type='number' name='newttl' class="form-control" value='<% address.ttl %>'/></td>
|
||||||
|
<td><input type='submit' id='submit' class="btn btn-success btn-xs" value='✔' />
|
||||||
|
</form>
|
||||||
<td><button type="button" class="btn btn-primary btn-danger btn-xs" onclick="location.href='http://'+location.host+'/domain/del/<% domain %>/<% address.name %>/CNAME/<% address.host %>/<% address.ttl %>';">✘</button></td>
|
<td><button type="button" class="btn btn-primary btn-danger btn-xs" onclick="location.href='http://'+location.host+'/domain/del/<% domain %>/<% address.name %>/CNAME/<% address.host %>/<% address.ttl %>';">✘</button></td>
|
||||||
</tr>
|
</tr>
|
||||||
<% END %>
|
<% END %>
|
||||||
|
|
||||||
<% FOREACH address in ptr %>
|
<% FOREACH address in ptr %>
|
||||||
<tr>
|
<tr>
|
||||||
<td><% address.name %></td>
|
<form action='/domain/mod/<%domain%>/<%address.name%>/PTR/<%address.host%>/<%address.ttl%>'>
|
||||||
|
<td><input type='text' name='newname' class="form-control" value='<% address.name %>'/></td>
|
||||||
<td><% address.class %></td>
|
<td><% address.class %></td>
|
||||||
<td>PTR</td>
|
<td>PTR</td>
|
||||||
<td><% address.host %></td>
|
<td><input type='text' name='newhost' class="form-control" value='<% address.host %>'/></td>
|
||||||
<td><% address.ttl %></td>
|
<td><input type='number' name='newttl' class="form-control" value='<% address.ttl %>'/></td>
|
||||||
|
<td><input type='submit' id='submit' class="btn btn-success btn-xs" value='✔' />
|
||||||
|
</form>
|
||||||
<td><button type="button" class="btn btn-primary btn-danger btn-xs" onclick="location.href='http://'+location.host+'/domain/del/<% domain %>/<% address.name %>/PTR/<% address.host %>/<% address.ttl %>';">✘</button></td>
|
<td><button type="button" class="btn btn-primary btn-danger btn-xs" onclick="location.href='http://'+location.host+'/domain/del/<% domain %>/<% address.name %>/PTR/<% address.host %>/<% address.ttl %>';">✘</button></td>
|
||||||
</tr>
|
</tr>
|
||||||
<% END %>
|
<% END %>
|
||||||
|
|
||||||
<% FOREACH address in mx %>
|
<% FOREACH address in mx %>
|
||||||
<tr>
|
<tr>
|
||||||
<td><% address.name %></td>
|
<form action='/domain/mod/<%domain%>/<%address.name%>/MX/<%address.host%>/<%address.ttl%>'>
|
||||||
|
<td><input type='text' name='newname' class="form-control" value='<% address.name %>'/></td>
|
||||||
<td><% address.class %></td>
|
<td><% address.class %></td>
|
||||||
<td>MX</td>
|
<td>MX</td>
|
||||||
<td><% address.host %> (<% address.priority %>)</td>
|
<td><input type='text' name='newhost' class="form-control" value='<% address.host %>'/><input type='number' name='newpriority' class="form-control" value='<%address.priority%>'/></td>
|
||||||
<td><% address.ttl %></td>
|
<td><input type='number' name='newttl' class="form-control" value='<% address.ttl %>'/></td>
|
||||||
|
<td><input type='submit' id='submit' class="btn btn-success btn-xs" value='✔' />
|
||||||
|
</form>
|
||||||
<td><button type="button" class="btn btn-primary btn-danger btn-xs" onclick="location.href='http://'+location.host+'/domain/del/<% domain %>/<% address.name %>/MX/<% address.host %>/<% address.ttl %>';">✘</button></td>
|
<td><button type="button" class="btn btn-primary btn-danger btn-xs" onclick="location.href='http://'+location.host+'/domain/del/<% domain %>/<% address.name %>/MX/<% address.host %>/<% address.ttl %>';">✘</button></td>
|
||||||
</tr>
|
</tr>
|
||||||
<% END %>
|
<% END %>
|
||||||
|
|
Reference in New Issue