Current Path : /proc/self/root/proc/self/root/proc/2/root/proc/3/cwd/scripts/ |
Current File : //proc/self/root/proc/self/root/proc/2/root/proc/3/cwd/scripts/rebuildippool |
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - rebuildippool Copyright 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";