Obsolete
/
dnsmanagerv1
Archived
3
0
Fork 0
This repository has been archived on 2024-06-18. You can view files and clone it, but cannot push or open issues/pull-requests.
dnsmanagerv1/lib/rt/domainfake.pm

142 lines
3.3 KiB
Perl

package rt::domainfake;
use v5.14;
use configuration ':all';
use encryption ':all';
use util ':all';
use app;
use utf8;
use open qw/:std :utf8/;
use Dancer ':syntax';
use Data::Dump qw( dump );
use Data::Validate::IP qw(is_ipv4 is_ipv6);
use MIME::Base64 qw(encode_base64 decode_base64);
use Exporter 'import';
# what we want to export eventually
our @EXPORT_OK = qw/
rt_dom_cli_mod_entry_fake
rt_dom_cli_autoupdate_fake
rt_dom_mod_entry_fake
rt_dom_del_entry_fake
rt_dom_del_fake
rt_dom_add_fake
rt_dom_details_fake
rt_dom_add_entry_fake
rt_dom_updateraw_fake
/;
# bundle of exports (tags)
our %EXPORT_TAGS = ( all => [qw/
rt_dom_cli_mod_entry_fake
rt_dom_cli_autoupdate_fake
rt_dom_mod_entry_fake
rt_dom_del_entry_fake
rt_dom_del_fake
rt_dom_add_fake
rt_dom_details_fake
rt_dom_add_entry_fake
rt_dom_updateraw_fake
/] );
sub rt_dom_cli_autoupdate_fake {
my ($session, $param, $request) = @_;
my $res;
$res
}
sub rt_dom_cli_mod_entry_fake {
my ($session, $param, $request) = @_;
my $res;
$res
}
sub rt_dom_mod_entry_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{route} = '/domain/details/toto.netlib.re';
$res
}
sub rt_dom_del_entry_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{route} = '/domain/details/toto.netlib.re';
$res
}
sub rt_dom_del_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{route} = $$request{referer};
$res
}
sub rt_dom_add_fake {
my ($session, $param) = @_;
my $res;
$$res{route} = '/user/home';
$res
}
sub rt_dom_details_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{template} = 'details';
$$res{params} = {
login => "toto"
, admin => 1
, domain => "toto.netlib.re."
, domain_zone => "
example.com. IN SOA ns.example.com. username.example.com. ( 2007120710 1d 2h 4w 1h )
example.com. 3600 IN NS ns
example.com. 3600 IN NS ns.somewhere.example.
example.com. 3600 IN MX 10 mail.example.com.
@ 3600 IN MX 20 mail2.example.com.
@ 3600 IN MX 50 mail3
example.com. 3600 IN A 192.0.2.1
example.com 3600 IN AAAA 3600 2001:db8:10::1
ns 3600 IN A 192.0.2.2
example.com 3600 IN AAAA 2001:db8:10::2
www 3600 IN CNAME example.com.
wwwtest 3600 IN CNAME www
mail 3600 IN A 192.0.2.3
mail2 3600 IN A 192.0.2.4
mail3 3600 IN A 192.0.2.5
"
, user_ip => $$request{address}
};
$$res{params}{zone} =[
{ qw/type A name bla ttl 30 rdata 10.0.0.1/ }
,{ qw/type AAAA name www ttl 36 rdata fe80::de4a:3eff:fe01:3b44/ }
,{ qw/type CNAME name web ttl 36 rdata www/ }
,{ qw/type MX name mail ttl 3600 priority 10 rdata web/ }
,{ qw/type SRV name _sip._tcp.example.com. ttl 86400 priority 0
weight 5 port 5060 rdata sipserver.example.com./ }
];
if($$param{expert}) {
$$res{params}{expert} = 1;
}
$res
}
sub rt_dom_add_entry_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{route} = '/domain/details/toto.netlib.re';
$res
}
sub rt_dom_updateraw_fake {
my ($session, $param, $request) = @_;
my $res;
$$res{route} = '/domain/details/toto.netlib.re';
$res
}
1;