#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/ckillall                       Copyright(c) 2012 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

package scripts::ckillall;

use Cpanel::Kill ();

exit run(@ARGV) unless caller;

sub run {
    my @args = @_;
    my $ppid = getppid;
    my ( $status, $numkilled, $statusmsg ) = Cpanel::Kill::killall( shift @args, [@args], $Cpanel::Kill::VERBOSE, [$ppid] );
    print "$statusmsg\n";
    return ( $status ? 0 : 1 );
}

1;