NAME

WebService::IPRental - IP Rental API

VERSION

version 0.02

SYNOPSIS

DESCRIPTION

    use WebService::IPRental;

    my $ipr = WebService::IPRental->new(
        APIkey   => $APIkey,
        APIpass  => $APIpass,
        Username => $Username,
        Password => $Password,
        TTL      => 780, # optional
        LOcation => 0, # optional
    );
    
    my $resp = $ipr->doIpLease();
    if ($resp->{Response} == '202' or $resp->{Response} == '203') {
        print "Res:  " . $ipr->verboseReponseCode($resp->{Response}) . "\n";
        print "IP:   " . $ipr->verboseReponseCode($resp->{IP}) . "\n";
        print "Port: " . $ipr->verboseReponseCode($resp->{Port}) . "\n";
        print "TTL:  " . $ipr->verboseReponseCode($resp->{TTL}) . "\n";
        
        # $ua->proxy(['http', 'https'], 'http://'. $resp->{IP} . ':' . $resp->{Port});
    } else {
        die 'Caught error: ' . $ipr->verboseReponseCode($resp->{Response});
    }

            /**
             * ========  Response Codes are listed as so ========
             * 
             * ---- Positive ------------------------------------
             *  202 = Good, Fresh IP
             *  203 = Good, Duplicate IP
             * 
             * ---- Negative ------------------------------------
             *  402 = Internal Error, Unable to serve IP
             *  403 = Unknown User Authentication
             *  404 = Unknown API Authentication
             *  405 = 0 IP leases left in your pool
             *  406 = Impermissible network type
             */

AUTHOR

Fayland Lam <fayland@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Fayland Lam.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.