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.