dnsmanagerv1/lib/rt/domainfake.pm

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;