#!/usr/bin/perl
#
# @@@ START COPYRIGHT @@@
#
# Licensed to the Apache Software Foundation (ASF) under one
# or more contributor license agreements.  See the NOTICE file
# distributed with this work for additional information
# regarding copyright ownership.  The ASF licenses this file
# to you under the Apache License, Version 2.0 (the
# "License"); you may not use this file except in compliance
# with the License.  You may obtain a copy of the License at
#
#   http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing,
# software distributed under the License is distributed on an
# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
# KIND, either express or implied.  See the License for the
# specific language governing permissions and limitations
# under the License.
#
# @@@ END COPYRIGHT @@@
#
require "ctime.pl";

# Searches for an SQ process based on the passed search string
# and kills it.

# If the format of the output of SQ Shell 'ps' command changes
# then this might also have to be updated.

#
# Main 
#
$searchString=@ARGV[0];

if (length($searchString) == 0) 
{
    print "Usage: sqsk <process name search string>\n";
    exit 1;
}
	
open (SQPS, "sqps | grep -a $searchString | cut -d' ' -f2 |")
    or die ("unable to open");

my $tt;

while (<SQPS>) {
    chop;
    $tt = "sqkill \\$_";
    print "Executing $tt\n";
    `$tt`;
}

