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

2009-07-08 Ramon Novoa <rnovoa@artica.es> 

* lib/PandoraFMS/Config.pm: Properly set the new agentaccess
          config option. Fixes bug #2815878.

        * util/pandora_xml_stress.pl: Fixed config file comment detection.




git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@1792 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
ramonn 2009-07-08 11:01:47 +00:00
parent acde4709d1
commit a6160671d1
3 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pandora_server/ChangeLog
View File

@ -1,3 +1,10 @@
2009-07-08 Ramon Novoa <rnovoa@artica.es>
* lib/PandoraFMS/Config.pm: Properly set the new agentaccess
config option. Fixes bug #2815878.
* util/pandora_xml_stress.pl: Fixed config file comment detection.
2009-06-30 Manuel Arostegui <marostegui@artica.es>
* pandora_server.spec: Now it builds packages for SLE9.

6
pandora_server/lib/PandoraFMS/Config.pm
View File

@ -215,6 +215,9 @@ sub pandora_load_config {
# Multicast change report
$pa_config->{'mcast_change_group'} = '';
$pa_config->{'mcast_change_port'} = '';
# Update tagent_access
$pa_config->{"agentaccess"} = 1;
# Check for UID0
if ($pa_config->{"quiet"} != 0){
@ -472,6 +475,9 @@ sub pandora_load_config {
elsif ($parametro =~ m/^max_queue_files\s([0-9]*)/i) {
$pa_config->{'max_queue_files'}= clean_blank($1);
}
elsif ($parametro =~ m/^agentaccess\s([0-1])/i) {
$pa_config->{'agentaccess'}= clean_blank($1);
}
} # end of loop for parameter #

11
pandora_server/util/pandora_xml_stress.pl
View File

@ -47,11 +47,15 @@ sub load_config ($\%\@) {
if ($line =~ m/module_begin/) {
my %module;
# A comment
next if ($line =~ m/^#/);
while (my $line = <FILE>) {
last if ($line =~ m/module_end/);
# A comment
next if ($line =~ m/^#/);
last if ($line =~ m/module_end/);
# Unknown line
next if ($line !~ /^\s*(\w+)\s+(.+)$/);
@ -63,9 +67,6 @@ sub load_config ($\%\@) {
$Modules++;
next;
}
# A comment
next if ($line =~ m/^#/);
# Unknown line
next if ($line !~ /^\s*(\w+)\s+(.+)$/);
@ -82,7 +83,7 @@ sub generate_xml_files ($$$$$) {
my ($agents, $start, $step, $conf, $modules) = @_;
# Read agent configuration
my $interval = get_conf_token ($conf, 'interval', '300');
my $interval = get_conf_token ($conf, 'agent_interval', '300');
my $xml_version = get_conf_token ($conf, 'xml_version', '1.0');
my $encoding = get_conf_token ($conf, 'encoding', 'ISO-8859-1');
my $os_name = get_conf_token ($conf, 'os_name', 'Linux');