view release on metacpan or  search on metacpan

lib/API/CPanel/Ip.pm  view on Meta::CPAN

package API::CPanel::Ip;

use strict;
use warnings;

use API::CPanel;
use Data::Dumper;

our $VERSION = 0.07;

# Âîçâðàùàåò ñïèñîê ip àäðåñîâ
sub list {
    my $params = shift;

    return API::CPanel::fetch_array_abstract(
	params       => $params,
	func         => 'listips',
	container    => 'result',
	result_field => 'ip',
    );
}

# Äîáàâèòü ip
sub add {
    my $params = shift;

    return API::CPanel::action_abstract( 
	params         => $params,
	func           => 'addip',
	container      => 'addip',
	allowed_fields => 'ip netmask',
    );
}

# Óäàëèòü ip
sub remove {
    my $params = shift;

    return API::CPanel::action_abstract( 
	params         => $params,
	func           => 'delip',
	container      => 'delip',
	allowed_fields => 'ip ethernetdev skipifshutdown',
    );
}


1;