#!/usr/local/cpanel/3rdparty/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

use Cpanel::IpPool ();

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