view release on metacpan or  search on metacpan

lib/App/pepper.pm  view on Meta::CPAN

        &{$handlers->{$command}}(@args);
        if (!$term && $fail) {
            note("%s%04d%s %s", color($Net::EPP::Simple::Code < 2000 ? 'green' : 'red'), $Net::EPP::Simple::Code, color('reset'), $Net::EPP::Simple::Message);
            fatal($Net::EPP::Simple::Message) if ($Net::EPP::Simple::Code > 1999);
        }
    }
}

sub handle_timeout {
    $epp->{'timeout'} = int($_[0]);
    note("Timeout set to %ds", $_[0]);
    return 1;
}

sub handle_ssl {
    if ($epp->connected) {
        return error("Already connected");

    } elsif ($_[0] eq 'on') {
        $epp->{'ssl'} = 1;
        note('SSL enabled');