#!/usr/bin/perl
# cpanel - rebuildippool                          Copyright(c) 2010 cPanel, Inc.
#                                                           All Rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

BEGIN { unshift @INC, '/usr/local/cpanel'; }

use Cpanel::IpPool ();

my $freeips = Cpanel::IpPool::rebuild();
print "System has $freeips free ip" . ( $freeips == 1 ? '' : 's' ) . ".\n";