view release on metacpan or  search on metacpan

lib/IO/EPP/RRPProxy.pm  view on Meta::CPAN

        $params->{authinfo} =~ s/&/&/g;
        $params->{authinfo} =~ s/</&lt;/g;
        $params->{authinfo} =~ s/>/&gt;/g;
    }

    my $extension = '';

    if ( $params->{is_premium}  ||  $params->{'X-ACCEPT-PREMIUMPRICE'}  ||  $params->{'x-accept-premiumprice'} ) {
        $extension .= "     <keysys:accept-premiumprice>1</keysys:accept-premiumprice>\n";
    }

    if ( $params->{reg_id} ||  $params->{admin_id} ) {
        $extension .= "     <keysys:ownercontact0>$$params{reg_id}</keysys:ownercontact0>\n"         if $params->{reg_id};
        $extension .= "     <keysys:admincontact0>$$params{admin_id}</keysys:admincontact0>\n"       if $params->{admin_id};
        $extension .= "     <keysys:techcontact0>$$params{tech_id}</keysys:techcontact0>\n"          if $params->{tech_id};
        $extension .= "     <keysys:billingcontact0>$$params{billing_id}</keysys:billingcontact0>\n" if $params->{billing_id};
    }

    if ( $extension ) {
        $params->{extension} =
qq|   <keysys:transfer $ks_ext>
    <keysys:domain>
$extension    </keysys:domain>
   </keysys:transfer>
|;
    }

    return $self->SUPER::transfer( $params );
}

=head2 renew_domain

For renewal of the premium domain name, you need to pass a parameter C<is_premium> or C<X-ACCEPT-PREMIUMPRICE>

=cut

sub renew_domain {
    my ( $self, $params ) = @_;

    if ( $params->{is_premium}  ||  $params->{'X-ACCEPT-PREMIUMPRICE'}  ||  $params->{'x-accept-premiumprice'} ) {
        # https://wiki.rrpproxy.net/domains/premium-domains
        $params->{extension} =
qq|   <keysys:renew $ks_ext>
    <keysys:domain>
     <keysys:accept-premiumprice>1</keysys:accept-premiumprice>
    </keysys:domain>
   </keysys:renew>
|;
    }

    return $self->SUPER::renew_domain( $params );
}


=head2 update_domain

C<trade> – option for special change of domain owner – paid or requires confirmation;

=cut

sub update_domain {
    my ( $self, $params ) = @_;

    $params->{'X-ACCEPT-TRADE'} = 1 if delete $params->{trade};

    my $extension = _keysys_domain_ext( $params );

    if ( $extension ) {
         $params->{extension} =
qq|   <keysys:update $ks_ext>
    <keysys:domain>$extension
    </keysys:domain>
   </keysys:update>
|;
    }

    return $self->SUPER::update_domain( $params );
}


=head2 set_domain_renewal_mode

Set renewal mode for domain.

INPUT:

params with key:

C<renewal_mode> – valid values: C<DEFAULT>, C<RENEWONCE>, C<AUTORENEW>, C<AUTOEXPIRE>, C<AUTODELETE>

For details see L<https://wiki.rrpproxy.net/domains/renewal-system>

OUTPUT:
see L<IO::EPP::Base/simple_request>

=cut

sub set_domain_renewal_mode {
    my ( $self, $params ) = @_;

    $params->{renewal_mode} = uc $params->{renewal_mode};

    $params->{extension} =
qq|   <keysys:update $ks_ext>
    <keysys:domain>
     <keysys:renewalmode>$$params{renewal_mode}</keysys:renewalmode>
    </keysys:domain>
   </keysys:update>
|;

    return $self->update_domain( $params );
}


=head2 req_poll_ext

keysys extension for the req poll

=cut

sub req_poll_ext {