d/freebsd-nq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow multiple process names to kill (i.e. 'killall ftpd inetd httpd')

Browse Source 
Submitted by:	smpatel, wosch
Reviewed by:	wosch
This commit is contained in:
Sujal Patel 1996-05-30 22:04:09 +00:00
parent 9ad70fa0b2
commit a69836c197
2 changed files with 43 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
usr.bin/killall/killall.1
View File

@ -22,7 +22,7 @@
.\" IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
.\" POSSIBILITY OF SUCH DAMAGE.
.\"
.\" $Id: killall.1,v 1.4 1996/02/03 21:50:20 wosch Exp $
.\" $Id: killall.1,v 1.3 1996/02/03 22:52:26 wosch Exp $
.\"
.Dd June 25, 1995
.Os FreeBSD 2.2
@ -39,7 +39,7 @@
.Op Fl m
.Op Fl s
.Op Fl SIGNAL
.Ar procname
.Ar procname ...
.Sh DESCRIPTION
.Nm Killall
kills processes selected by name, as opposed to the selection by pid

37
usr.bin/killall/killall.pl
View File

@ -30,7 +30,7 @@
#
# killall - kill processes by name
#
# $Id: killall.pl,v 1.3 1996/02/03 22:52:27 wosch Exp $
# $Id: $
#
$ENV{'PATH'} = '/bin:/usr/bin'; # security
@ -47,7 +47,7 @@ $PROC_RUID = 12;
sub usage {
$! = 2;
die "killall [-?|-help] [-d] [-l] [-m] [-s] [-SIGNAL] program\n";
die "killall [-?|-help] [-d] [-l] [-m] [-s] [-SIGNAL] procname ...\n";
}
$id = $<; # real uid of this process / your id
@ -63,17 +63,20 @@ while ($_ = $ARGV[0], /^-/) {
elsif (/^-/) { &usage }
}
$program = $_; &usage unless $program;
&usage if $#ARGV < 0; # no arguments
die "Maybe $procfs is not mounted\n" unless -e "$procfs/0/status";
opendir(PROCFS, "$procfs") || die "$procfs $!\n";
print " PID EUID RUID COMMAND\n" if $debug > 1;
# quote meta characters
($programMatch = $program) =~ s/(\W)/\\$1/g;
while ($program = $ARGV[0]) {
shift @ARGV;
$thiskill = 0;
foreach (sort{$a <=> $b} grep(/^[0-9]/, readdir(PROCFS))) {
opendir(PROCFS, "$procfs") || die "$procfs $!\n";
print " PID EUID RUID COMMAND\n" if $debug > 1;
# quote meta characters
($programMatch = $program) =~ s/(\W)/\\$1/g;
foreach (sort{$a <=> $b} grep(/^[0-9]/, readdir(PROCFS))) {
$status = "$procfs/$_/status";
$pid = $_;
next if $pid == $$; # don't kill yourself
@ -95,17 +98,20 @@ foreach (sort{$a <=> $b} grep(/^[0-9]/, readdir(PROCFS))) {
!$id)) # root
{
push(@kill, $pid);
$thiskill++;
}
}
close STATUS;
}
closedir PROCFS;
}
closedir PROCFS;
if ($#kill < 0) { # nothing found
warn "No matching processes ``$program''.\n";
exit(1);
# nothing found
warn "No matching processes ``$program''\n" unless $thiskill;
}
# nothing found
exit(1) if $#kill < 0;
$signal =~ y/a-z/A-Z/; # signal name in upper case
$signal =~ s/^SIG//; # strip a leading SIG if present
print "kill -$signal @kill\n" if $debug || $show;
@ -113,4 +119,3 @@ print "kill -$signal @kill\n" if $debug || $show;
$cnt = kill ($signal, @kill) unless $show; # kill processes
exit(0) if $show || $cnt == $#kill + 1;
exit(1);