From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

ZNMSTR / Zonemaster-Backend-5.0.1 / CodeSnippets / client.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
—
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106

              
use strict;
use warnings;
use utf8;
use 5.10.1;
use strict;
use LWP::UserAgent;
use JSON;
use Data::Dumper;
use Client;
my $c = Client->new( { url => 'http://localhost:5000' } );
my $frontend_params = {
    client_id      => 'Client.pm module',    # free string
    client_version => '1.0',                              # free version like string
    domain      => 'afnic.fr',                            # content of the domain text field
    ipv4        => 1,                                     # 0 or 1, is the ipv4 checkbox checked
    ipv6        => 1,                                     # 0 or 1, is the ipv6 checkbox checked
    nameservers => [                                      # list of the namaserves up to 32
        { ns => 'ns1.nic.fr', ip => '1.1.1.1' },          # key values pairs representing nameserver => namesterver_ip
        { ns => 'ns2.nic.fr', ip => '192.134.4.1' },
    ],
    ds_info => [                                  # list of DS/Digest pairs up to 32
        { keytag => 11627, algorithm => 8, digtype => 2, digest => 'a6cca9e6027ecc80ba0f6d747923127f1d69005fe4f0ec0461bd633482595448' },
    ],
};
my $id_test = $c->start_domain_test($frontend_params);
say Dumper($id_test);
=coment
say "Client->version_info:".Dumper($c->version_info("test param"));
say "Client->get_ns_ips:".Dumper($c->get_ns_ips("ns1.nic.fr"));
say "Client->get_data_from_parent_zone:".Dumper($c->get_data_from_parent_zone("nic.fr"));
say "Client->validate_domain_syntax:".Dumper($c->validate_domain_syntax("nic.fr"));
my $frontend_params = {
    client_id      => 'Zonemaster CGI/Dancer/node.js',    # free string
    client_version => '1.0',                              # free version like string
    domain      => 'afnic-2.fr',                            # content of the domain text field
    advanced    => 1,                                     # 0 or 1, is the advanced options checkbox checked
    ipv4        => 1,                                     # 0 or 1, is the ipv4 checkbox checked
    ipv6        => 1,                                     # 0 or 1, is the ipv6 checkbox checked
    profile     => 'test_profile_1',                      # the id if the Test profile listbox
    nameservers => [                                      # list of the namaserves up to 32
        { ns => 'ns1.nic.fr', ip => '1.1.1.1' },          # key values pairs representing nameserver => namesterver_ip
        { ns => 'ns2.nic.fr', ip => '192.134.4.1' },
    ],
    ds_info => [                                  # list of DS/Digest pairs up to 32
        { keytag => 11627, algorithm => 8, digtype => 2, digest => 'a6cca9e6027ecc80ba0f6d747923127f1d69005fe4f0ec0461bd633482595448' },
    ],
};
my $id_test = $c->start_domain_test($frontend_params);
say "start_domain_test: ".Dumper($id_test);
say "--------------------------";
say "test_progress: ".Dumper($c->test_progress($id_test));
sleep(1);
say "test_progress: ".Dumper($c->test_progress($id_test));
sleep(1);
say "test_progress: ".Dumper($c->test_progress($id_test));
sleep(2);
say "test_progress: ".Dumper($c->test_progress($id_test));
sleep(2);
say "test_progress: ".Dumper($c->test_progress($id_test));
sleep(3);
say "test_progress: ".Dumper($c->test_progress($id_test));
sleep(3);
say "test_progress: ".Dumper($c->test_progress($id_test));
say "--------------------------";
say "get_test_results: ".Dumper($c->get_test_results( { id => $id_test, language => 'en' } ));
say "--------------------------";
my $frontend_params1 = {
    client_id      => 'Zonemaster CGI/Dancer/node.js',    # free string
    client_version => '1.0',                              # free version like string
    domain      => 'afnic-2.fr',                            # content of the domain text field
    advanced    => 1,                                     # 0 or 1, is the advanced options checkbox checked
    ipv4        => 1,                                     # 0 or 1, is the ipv4 checkbox checked
    ipv6        => 1,                                     # 0 or 1, is the ipv6 checkbox checked
    profile     => 'test_profile_1',                      # the id if the Test profile listbox
    nameservers => [                                      # list of the namaserves up to 32
        { ns => 'ns1.nic.fr', ip => '1.1.1.1' },          # key values pairs representing nameserver => namesterver_ip
        { ns => 'ns2.nic.fr', ip => '192.134.4.1' },
    ],
    ds_info => [                                  # list of DS/Digest pairs up to 32
        { keytag => 11627, algorithm => 8, digtype => 2, digest => 'a6cca9e6027ecc80ba0f6d747923127f1d69005fe4f0ec0461bd633482595448' },
    ],
};
my $offset = 0;
my $limit = 10;
say "get_test_history: ".Dumper($c->get_test_history( { frontend_params => $frontend_params1, offset => $offset, limit => $limit } ));
say "--------------------------";
=cut