tyler.durden
/
pandorafms
mirror of https://github.com/pandorafms/pandorafms.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

2008-07-31 Ramon Novoa <rnovoa@artica.es> 

* util/pandora_exec: Added to repository. Perl script to control
          command execution timeouts.




git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@992 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
ramonn 2008-07-31 15:33:44 +00:00
parent 33fbe0f64e
commit ea8d720267
2 changed files with 67 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pandora_server/ChangeLog
View File

@ -1,3 +1,8 @@
2008-07-31 Ramon Novoa <rnovoa@artica.es>
* util/pandora_exec: Added to repository. Perl script to control
command execution timeouts.
2008-07-30 Ramon Novoa <rnovoa@artica.es>
* lib/PandoraFMS/DB.pm,

62
pandora_server/util/pandora_exec Normal file
View File

@ -0,0 +1,62 @@
#!/usr/bin/perl
##########################################################################
# pandora_exec
#
# Executes the given command and prints its output to stdout. If the
# execution times out or the command does not exist nothing is printed
# to stdout.
#
# Usage: pandora_exec <timeout in seconds> <command> [arguments]
##########################################################################
# Copyright (c) 2008 Ramon Novoa, rnovoa@gmail.com
# (c) 2008 Artica Soluciones Tecnologicas S.L
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; version 2.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
##########################################################################
use strict;
use warnings;
# Check command line parameters
if ($#ARGV < 1) {
exit 1;
}
my @opts = @ARGV;
my $timeout = shift(@opts);
my $command = quotemeta(shift(@opts));
my $arguments = join(' ', @opts);
my $output = '';
# Check that the command exists
if (system("$command >/dev/null 2>&1") == 32512) {
exit 2;
}
# Execute the command
eval {
local $SIG{ALRM} = sub { die "alarm\n" };
alarm $timeout;
$output = `$command $arguments`;
alarm 0;
};
# Timeout
if ($@ eq "alarm\n") {
exit 3;
}
print $output;
exit 0;