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 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.