#!/usr/bin/perl -w

require 5;
use strict;
use Getopt::Std;
use vars qw(%opts $term @processes $user $signal);

getopts('ht:s:u:mn', \%opts);

sub usage(){
    print <<EOF;
Usage: $0 [options] [search term]
Example: $0 -m -s STOP -t netscape

-h        : displays this help screen
-t TERM   : search for TERM
-n        : do not kill anything, merely list process ids
-s SIGNAL : send processes SIGNAL (default is TERM)
-m        : only kill processes owned by you
-u USER   : only kill processes belonging to USER

If no options are given, option t is assumed if a search term is present, option h otherwise.
EOF
    exit;
}

if ($opts{'h'}){
    usage();
}

$user = $opts{'u'} || ($opts{'m'} && getpwuid($<));

if ($term = ($opts{'t'} || $ARGV[0])) {
    print "Processes matching \'$term\'", defined($user) ? " and owned by \'$user\'": "" ,": ";
    @processes = map { m@^(\w+)\s+(\d+)\s+[\d\.]+\s+[\d\.]+\s+.+$term.*$@ && ($2 != $$) && (!(defined ($user)) || ($1 eq $user))? $2 : () } `ps aux`;
    if (@processes){
        print "@processes\n";
    } else {
        print "none\n";
        exit;
    }
    if (!$opts{'n'}){
        $signal = defined($opts{'s'}) ? $opts{'s'} : 15;
        kill $signal, @processes;
        print "Done killing processes\n"
    }
} else {
    usage();
}