Obsolete/dnsmanagerv1
Archived
3
0
Fork 0
Code

Merge branch 'features/domainModification'

Browse Source
This commit is contained in:
Julien Simonet 2014-01-24 23:26:18 +01:00
commit 483b6fed53
2 changed files with 203 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
www/lib/DNSManager.pm
View File

@ -106,7 +106,7 @@ get '/home' => sub {
prefix '/domain' => sub { prefix '/domain' => sub {
any ['post', 'get'] => '/update/:domain' => sub { any ['post', 'get'] => '/updateraw/:domain' => sub {
# check if user is logged & if domain parameter is set # check if user is logged & if domain parameter is set
unless( session('login') && param('domain')) unless( session('login') && param('domain'))
@ -128,6 +128,83 @@ prefix '/domain' => sub {
}; };
any ['post', 'get'] => '/update/:domain' => sub {
unless( session('login') && param('domain') )
{
redirect '/';
}
else
{
my $type = param('type');
my $name = param('name');
my $value = param('value');
my $ttl = param('ttl');
my $app = initco();
my ($auth_ok, $user, $isadmin) = $app->auth(param('login'),
param('password') );
my $zone = $app->get_domain( session('login') , param('domain') );
given( $type )
{
when ('A') { my $a=$zone->a();
push( @$a, {name => $name,
class => "IN",
host => $value,
ttl => $ttl,
ORIGIN => $zone->origin} );
}
when ('AAAA') { my $aaaa=$zone->aaaa;
push(@$aaaa, {name => $name,
class => "IN",
host => $value,
ttl => $ttl,
ORIGIN => $zone->origin} );
}
when ('CNAME') { my $cname=$zone->cname;
push(@$cname,
{name => $name,
class => "IN",
host => $value,
ttl => $ttl,
ORIGIN => $zone->origin} );
}
when ('MX') { my $ptr=$zone->ptr;
push(@$ptr, {name => $name,
class => "IN",
host => $value,
ttl => $ttl,
ORIGIN => $zone->origin} );
}
when ('PTR') { my $ptr=$zone->ptr;
push(@$ptr, {name => $name,
class => "IN",
host => $value,
ttl => $ttl,
ORIGIN => $zone->origin} );
}
when ('NS') { my $ns=$zone->ns;
push(@$ns, {name => $name,
class => "IN",
host => $value,
ttl => $ttl,
ORIGIN => $zone->origin} );
}
}
$zone->new_serial();
my $cfg = new Config::Simple(dirname(__FILE__).'/../conf/config.ini');
my $ed = app::zone::edit->new(zdir=>$cfg->param('zones_path'), zname => param('domain'));
$ed->update($zone);
redirect '/domain/details/'.param('domain');
}
};
get '/details/:domain' => sub { get '/details/:domain' => sub {
# check if user is logged & if domain parameter is set # check if user is logged & if domain parameter is set
@ -143,10 +220,28 @@ prefix '/domain' => sub {
my $zone = $app->get_domain(session('login') , param('domain')); my $zone = $app->get_domain(session('login') , param('domain'));
if( param( 'expert' ) )
{
template details => { template details => {
login => session('login') login => session('login')
, domain => param('domain') , domain => param('domain')
, domain_zone => $zone->output() }; , domain_zone => $zone->output()
, expert => true };
}
else
{
# say dump( $zone->cname());
template details => {
login => session('login')
, domain => param('domain')
, domain_zone => $zone->output()
, a => $zone->a()
, aaaa => $zone->aaaa()
, cname => $zone->cname()
, ptr => $zone->ptr()
, mx => $zone->mx()
, ns => $zone->ns() };
}
} }

98
www/views/details.tt
View File

@ -5,12 +5,108 @@
<h3>Fichier de zone de <% domain %></h3> <h3>Fichier de zone de <% domain %></h3>
<form class="form" action='/domain/update/<% domain %>' method="post" > <% IF expert %>
<form class="form" action='/domain/updateraw/<% domain %>' method="post" >
<textarea name="zoneupdated" rows="20" cols="100"><% domain_zone %></textarea> <textarea name="zoneupdated" rows="20" cols="100"><% domain_zone %></textarea>
<br /> <br />
<input type="submit" value="Mettre à jour la zone" /> <input type="submit" value="Mettre à jour la zone" />
</form> </form>
<a href='/domain/details/<% domain %>' >Easy Mode</a>
<% ELSE %>
<table border=1 >
<caption>
<td>Name</td>
<td>Class</td>
<td>Type</td>
<td>Host</td>
<td>TTL</td>
</caption>
<% FOREACH address in ns %>
<tr>
<td><% address.name %></td>
<td><% address.class %></td>
<td>NS</td>
<td><% address.host %></td>
<td><% address.ttl %></td>
</tr>
<% END %>
<% FOREACH address in a %>
<tr>
<td><% address.name %></td>
<td><% address.class %></td>
<td>A</td>
<td><% address.host %></td>
<td><% address.ttl %></td>
</tr>
<% END %>
<% FOREACH address in aaaa %>
<tr>
<td><% address.name %></td>
<td><% address.class %></td>
<td>AAAA</td>
<td><% address.host %></td>
<td><% address.ttl %></td>
</tr>
<% END %>
<% FOREACH address in cname %>
<tr>
<td><% address.name %></td>
<td><% address.class %></td>
<td>CNAME</td>
<td><% address.host %></td>
<td><% address.ttl %></td>
</tr>
<% END %>
<% FOREACH address in ptr %>
<tr>
<td><% address.name %></td>
<td><% address.class %></td>
<td>PTR</td>
<td><% address.host %></td>
<td><% address.ttl %></td>
</tr>
<% END %>
<% FOREACH address in mx %>
<tr>
<td><% address.name %></td>
<td><% address.class %></td>
<td>MX</td>
<td><% address.host %> (<% address.priority %>)</td>
<td><% address.ttl %></td>
</tr>
<% END %>
</table>
<a href='/domain/details/<% domain %>?expert=1'>Expert Mode</a>
<br /><br />
Ajouter un enregistrement : <br />
<form action='/domain/update/<% domain %>' method='post' >
<label for="name">Nom : </label><input type="text" name="name" />
<label for="type">Type : </label><select name="type" id="type" >
<option value="A">A</option>
<option value="AAAA">AAAA</option>
<option value="CNAME">CNAME</option>
<option value="MX">MX</option>
<option value="NS">NS</option>
<option value="PTR">PTR</option>
</select>
<label for="value">Valeur : </label><input type="text" id="value" name="value" />
<label for="input_ttl">TTL</label><input type="number" id="input_ttl" name="ttl" min='1' value="3"/>
<input type="submit">Valider</input>
</form>
<% END %>
</div> </div>
</div> <!-- fin de colonne --> </div> <!-- fin de colonne -->