view release on metacpan or  search on metacpan

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

    my $THRESHOLD = 100000000;

    my $start_time = time;

    #my $cookie = HTTP::Cookies->new;

    my $ua = LWP::UserAgent->new(
        agent      => 'EppBot/7.02 (Perl; Linux i686; ru, en_US)',
        parse_head =>  0,
        #keep_alive => 30,
        #cookie_jar => $cookie,
        #%ua_params,
    );

    my $in_data;

    eval {
        local $SIG{ALRM} = sub { die "connection timeout\n" };

        alarm 120;

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

            goto ERR;
        }
    }
    else {
        $cookie = HTTP::Cookies->new;
    }

    my $ua = LWP::UserAgent->new(
        agent      => 'EppBot/7.02 (Perl; Linux i686; ru, en_US)',
        parse_head =>  0,
        keep_alive => 30,
        cookie_jar => $cookie,
        %ua_params,
    );

    unless ( $ua ) {
        $msg = "can not connect";
        $code = 0;

        goto ERR;
    }

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

            goto ERR;
        }
    }
    else {
        $cookie = HTTP::Cookies->new;
    }

    my $ua = LWP::UserAgent->new(
        agent      => 'EppBot/7.02 (Perl; Linux i686; ru, en_US)',
        parse_head =>  0,
        keep_alive => 30,
        cookie_jar => $cookie,
        %ua_params,
    );

    unless ( $ua ) {
        $msg = "can not connect";
        $code = 0;

        goto ERR;
    }