2012-07-25 Miguel de Dios <miguel.dedios@artica.es>

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




git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@6810 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
mdtrooper 2012-07-25 15:14:36 +00:00
parent 2be7245510
commit c23539ae46
2 changed files with 37 additions and 30 deletions

View File

@ -1,3 +1,7 @@
2012-07-25 Miguel de Dios <miguel.dedios@artica.es>
* lib/PandoraFMS/DB.pm: cleaned source code style.
2012-07-24 Miguel de Dios <miguel.dedios@artica.es>
* lib/PandoraFMS/Core.pm, lib/PandoraFMS/Tools.pm,

View File

@ -126,18 +126,18 @@ sub db_connect ($$$$$$) {
return undef;
}
##########################################################################
########################################################################
## Disconnect from the DB.
##########################################################################
########################################################################
sub db_disconnect ($) {
my $dbh = shift;
$dbh->disconnect();
}
##########################################################################
########################################################################
## Return action ID given the action name.
##########################################################################
########################################################################
sub get_action_id ($$) {
my ($dbh, $action_name) = @_;
@ -145,9 +145,9 @@ sub get_action_id ($$) {
return defined ($rc) ? $rc : -1;
}
##########################################################################
########################################################################
## Return agent ID given the agent name.
##########################################################################
########################################################################
sub get_agent_id ($$) {
my ($dbh, $agent_name) = @_;
@ -155,9 +155,9 @@ sub get_agent_id ($$) {
return defined ($rc) ? $rc : -1;
}
##########################################################################
########################################################################
## Return server ID given the name of server.
##########################################################################
########################################################################
sub get_server_id ($$$) {
my ($dbh, $server_name, $server_type) = @_;
@ -167,9 +167,9 @@ sub get_server_id ($$$) {
return defined ($rc) ? $rc : -1;
}
##########################################################################
########################################################################
## Return group ID given the group name.
##########################################################################
########################################################################
sub get_group_id ($$) {
my ($dbh, $group_name) = @_;
@ -177,9 +177,9 @@ sub get_group_id ($$) {
return defined ($rc) ? $rc : -1;
}
##########################################################################
########################################################################
## Return OS ID given the OS name.
##########################################################################
########################################################################
sub get_os_id ($$) {
my ($dbh, $os_name) = @_;
@ -642,9 +642,9 @@ sub db_process_insert($$$$;@) {
return $res;
}
##########################################################################
########################################################################
## SQL update.
##########################################################################
########################################################################
sub db_process_update($$$$$;@) {
my ($dbh, $table, $parameters, $where_column, $where_value, @values) = @_;
@ -657,7 +657,7 @@ sub db_process_update($$$$$;@) {
}
my $fields = '';
for (my $i=0; $i<=$#values_array; $i++) {
for (my $i = 0; $i <= $#values_array; $i++) {
if (!defined($values_array[$i])) {
$values_array[$i] = '';
}
@ -669,7 +669,9 @@ sub db_process_update($$$$$;@) {
push(@values_array, $where_value);
my $res = db_update ($dbh, "UPDATE $table SET$fields WHERE $where_column = ?", @values_array);
my $res = db_update ($dbh, "UPDATE $table
SET $fields
WHERE $where_column = ?", @values_array);
return $res;
}
@ -719,12 +721,13 @@ sub get_agent_addr_id ($$$) {
FROM taddress_agent
WHERE id_a = ?
AND id_agent = ?', $addr_id, $agent_id);
return (defined ($agent_addr_id) ? $agent_addr_id : -1);
}
##########################################################################
########################################################################
## Generic SQL sentence.
##########################################################################
########################################################################
sub db_do ($$;@) {
my ($dbh, $query, @values) = @_;
@ -733,9 +736,9 @@ sub db_do ($$;@) {
$dbh->do($query, undef, @values);
}
##########################################################################
########################################################################
# Return the ID of the taddress agent with the given IP.
##########################################################################
########################################################################
sub is_agent_address ($$$) {
my ($dbh, $id_agent, $id_addr) = @_;
@ -747,9 +750,9 @@ sub is_agent_address ($$$) {
return (defined ($id_ag)) ? $id_ag : 0;
}
##########################################################################
########################################################################
## Escape the given reserved word.
##########################################################################
########################################################################
sub db_reserved_word ($) {
my $reserved_word = shift;
@ -774,9 +777,9 @@ sub db_string ($) {
return "'" . $string . "'";
}
##########################################################################
########################################################################
## Convert TEXT to string when necessary
##########################################################################
########################################################################
sub db_text ($) {
my $string = shift;
@ -786,19 +789,19 @@ sub db_text ($) {
return $string;
}
##########################################################################
########################################################################
## SUB get_alert_template_name(alert_id)
## Return the alert template name, given "alert_id"
##########################################################################
########################################################################
sub get_alert_template_name ($$) {
my ($dbh, $alert_id) = @_;
return get_db_value ($dbh, "SELECT name FROM talert_templates, talert_template_modules WHERE talert_templates.id = talert_template_modules.id_alert_template AND talert_template_modules.id = ?", $alert_id);
}
##########################################################################
########################################################################
## Concat two strings
##########################################################################
########################################################################
sub db_concat ($$) {
my ($element1, $element2) = @_;
@ -807,9 +810,9 @@ sub db_concat ($$) {
return " " . $element1 . " || ' ' || " . $element2 . " " if ($RDBMS eq 'oracle' or $RDBMS eq 'postgresql');
}
##########################################################################
########################################################################
## Get priority/severity name from the associated ID
##########################################################################
########################################################################
sub get_priority_name ($) {
my ($priority_id) = @_;