141 lines
3.3 KiB
Perl
141 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 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;
|