| Name : perl-WebService-IPRental
| |
| Version : 0.02
| Vendor : obs://build_opensuse_org/devel:languages:perl
|
| Release : 7.70
| Date : 2024-08-05 20:04:06
|
| Group : Development/Libraries/Perl
| Source RPM : perl-WebService-IPRental-0.02-7.70.src.rpm
|
| Size : 0.03 MB
| |
| Packager : (none)
| |
| Summary : IP Rental API
|
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}) . \"\
\";
print \"IP: \" . $ipr->verboseReponseCode($resp->{IP}) . \"\
\";
print \"Port: \" . $ipr->verboseReponseCode($resp->{Port}) . \"\
\";
print \"TTL: \" . $ipr->verboseReponseCode($resp->{TTL}) . \"\
\";
} 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
*/
|
RPM found in directory: /packages/linux-pbone/ftp5.gwdg.de/pub/opensuse/repositories/devel:/languages:/perl:/CPAN-W/openSUSE_Tumbleweed/noarch |
