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

2013-04-18 Miguel de Dios <miguel.dedios@artica.es> 

* lib/PandoraFMS/Core.pm: cleaned source code style.




git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@8011 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
mdtrooper 2013-04-18 15:19:35 +00:00
parent 1f5cc799e5
commit 6fc9724e8d
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pandora_server/ChangeLog
View File

@ -1,3 +1,7 @@
2013-04-18 Miguel de Dios <miguel.dedios@artica.es>
* lib/PandoraFMS/Core.pm: cleaned source code style.
2013-04-17 Ramon Novoa <rnovoa@artica.es>
* lib/PandoraFMS/DataServer.pm: Update the module interval. Fixes bug

8
pandora_server/lib/PandoraFMS/Core.pm
View File

@ -2271,7 +2271,8 @@ sub pandora_create_module_from_network_component ($$$$) {
sub pandora_create_module_from_hash ($$$) {
my ($pa_config, $parameters, $dbh) = @_;
logger($pa_config, "Creating module '$parameters->{'nombre'}' for agent ID $parameters->{'id_agente'}.", 10);
logger($pa_config,
"Creating module '$parameters->{'nombre'}' for agent ID $parameters->{'id_agente'}.", 10);
# Delete tags that will not be stored in tagente_modulo
delete $parameters->{'data'};
@ -2279,7 +2280,8 @@ sub pandora_create_module_from_hash ($$$) {
delete $parameters->{'datalist'};
delete $parameters->{'status'};
my $module_id = db_process_insert($dbh, 'id_agente_modulo', 'tagente_modulo', $parameters);
my $module_id = db_process_insert($dbh, 'id_agente_modulo',
'tagente_modulo', $parameters);
my $status = 4;
if (defined ($parameters->{'id_tipo_modulo'}) && ($parameters->{'id_tipo_modulo'} == 21 || $parameters->{'id_tipo_modulo'} == 22 || $parameters->{'id_tipo_modulo'} == 23)) {
@ -2436,7 +2438,7 @@ sub pandora_create_agent ($$$$$$$$$$;$$$$$$$) {
##########################################################################
sub pandora_add_agent_address ($$$$$) {
my ($pa_config, $agent_id, $agent_name, $addr, $dbh) = @_;
# Add the new address if it does not exist
my $addr_id = get_addr_id ($dbh, $addr);