view release on metacpan or  search on metacpan

lib/Domain/Register/TK.pm  view on Meta::CPAN

Possible response (regardless of form used):

 $return_value  = {
          'status' => 'NAMESERVERS UPDATED',
          'type' => 'result',
          'domainname' => 'TESTDOMAIN-0004.TK'
        };

=cut

sub updatedns {
    my $self   = shift;
    my $domain = shift;

    my $st;

    if ( ref $_[0] eq 'ARRAY' ) {

        # list of name servers
        $st = $self->_get_url(
            {

lib/Domain/Register/TK.pm  view on Meta::CPAN

Possible response: 

 $result_code = {
          'status' => 'WHOIS INFORMATION UPDATED',
          'type' => 'result',
          'domainname' => 'TESTDOMAIN-0003.TK'
        };

=cut

sub updatewhois {
    my $self   = shift;
    my $domain = shift;
    my $param  = shift;

    my $temp_st = { function => 'updatewhois', domainname => $domain };
    foreach my $k ( keys %{$param} ) {
        $temp_st->{$k} = $param->{$k};
    }

    my $st = $self->_get_url($temp_st);