2009-08-20 Sancho lerena <slerena@artica.es>
* lib/PandoraFMS/Tools.pm: Undone commit of 19/8 to fix ugly mesg from enterprise load: was breaking enterprise.... git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@1869 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
parent
43984dd97b
commit
0daa142efb
|
@ -1,3 +1,8 @@
|
|||
2009-08-20 Sancho lerena <slerena@artica.es>
|
||||
|
||||
* lib/PandoraFMS/Tools.pm: Undone commit of 19/8 to fix ugly mesg from
|
||||
enterprise load: was breaking enterprise....
|
||||
|
||||
2009-08-19 Manuel Arostegui <manuel@todo-linux.com>
|
||||
|
||||
* pandora_server.spec: Changed email.
|
||||
|
|
|
@ -352,15 +352,12 @@ sub enterprise_hook ($$) {
|
|||
# Prepend the package name
|
||||
$func = 'PandoraFMS::Enterprise::' . $func;
|
||||
|
||||
# Check if exist before try to call it
|
||||
my $output = `perl -e "use $func"`;
|
||||
|
||||
if ($output){
|
||||
# Try to call the function
|
||||
$output = eval { &$func (@args); };
|
||||
} else {
|
||||
return $undef;
|
||||
}
|
||||
my $output = eval { &$func (@args); };
|
||||
|
||||
# Check for errors
|
||||
return undef if ($@);
|
||||
|
||||
return $output;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue