#!/usr/bin/eperl -w
#
# Copyright (c) Ensim Corporation, 2001   All Rights Reserved.
#
# This software is furnished under a license and may be used and copied
# only  in  accordance  with  the  terms  of such  license and with the
# inclusion of the above copyright notice. This software or any other
# copies thereof may not be provided or otherwise made available to any
# other person. No title to and ownership of the software is hereby
# transferred.
#
# The information in this software is subject to change without notice
# and  should  not be  construed  as  a commitment by Ensim Corporation.
# Ensim assumes no responsibility for the use or  reliability  of its
# software on equipment which is not supplied by Ensim.
#
# $Id: svcquery 

$ENV{"PATH"}="/bin:/usr/bin:/sbin:/usr/sbin";
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};   # Make %ENV safer

# Ensure that we're root
$< = $>;

# Untaint

my @safeARGV = ();

foreach my $arg (@ARGV) {
        push @safeARGV, $arg =~ /^(['a-zA-Z0-9._\-\s\/%]+)$/

}
exec("/usr/bin/wpsvcquery @safeARGV");


