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

2010-09-20 Sergio Martin <sergio.martin@artica.es> 

* util/pandora_manage.pl: Added to CLI the deletion 
	of module from conf files when is local module



git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@3256 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
zarzuelo 2010-09-20 11:06:37 +00:00
parent 10d7f07771
commit cabee8e156
2 changed files with 57 additions and 4 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 @@
2010-09-20 Sergio Martin <sergio.martin@artica.es>
* util/pandora_manage.pl: Added to CLI the deletion
of module from conf files when is local module
2010-09-14 Ramon Novoa <rnovoa@artica.es>
* lib/PandoraFMS/Core.pm: Do not execute alerts in stand-by.

54
pandora_server/util/pandora_manage.pl
View File

@ -373,6 +373,49 @@ sub pandora_delete_module_data ($$) {
return 1;
}
##########################################################################
## Delete a module from conf file
##########################################################################
sub pandora_delete_module_from_conf ($$) {
my ($conf_file, $module_name) = @_;
open FILE, $conf_file;
my @txt_array = <FILE>;
my $txt = join ('', @txt_array);
$txt =~ s/module_begin(\s)*(\r\n|\n)module_name $module_name(.|\r\n|\n)*?module_end([^\n])*//g;
close(FILE);
open FILE, "> ".$conf_file;
print FILE "$txt";
close(FILE);
pandora_clean_blank_lines_conf($conf_file);
}
##########################################################################
## Clean blank lines into conf file
##########################################################################
sub pandora_clean_blank_lines_conf ($) {
my $conf_file = shift;
open FILE, $conf_file;
my @txt_array = <FILE>;
my $txt = join ('', @txt_array);
$txt =~ s/\r/\n/g;
$txt =~ s/\n\n\n/\n\n/g;
close(FILE);
open FILE, "> ".$conf_file;
print FILE "$txt";
close(FILE);
}
##########################################################################
## Create a network module
@ -520,7 +563,7 @@ sub help_screen{
help_screen_line('--create_agent', '<agent_name> <operating_system> <group> <server_name> [<address> <description> <interval>]', 'Create agent');
help_screen_line('--delete_agent', '<agent_name>', 'Delete agent');
help_screen_line('--create_module', '<module_name> <module_type> <agent_name> <module_address> [<module_port> <description> <min> <max> <post_process> <interval> <warning_min> <warning_max> <critical_min> <critical_max> <history_data>]', 'Add module to agent');
help_screen_line('--delete_module', 'Delete module from agent', '<module_name> <agent_name>');
help_screen_line('--delete_module', 'Delete module from agent', '<module_name> <agent_name> [<agent_conf_file>]');
help_screen_line('--create_template_module', '<template_name> <module_name> <agent_name>', 'Add alert template to module');
help_screen_line('--delete_template_module', '<template_name> <module_name> <agent_name>', 'Delete alert template from module');
help_screen_line('--create_template_action', '<action_name> <template_name> <module_name> <agent_name> [<fires_min> <fires_max>]', 'Add alert action to module-template');
@ -816,8 +859,8 @@ sub pandora_manage_main ($$$) {
$module_address, $module_port, $dbh);
}
elsif ($param =~ m/--delete_module/i) {
param_check($ltotal, 2);
my ($module_name,$agent_name) = @ARGV[2..3];
param_check($ltotal, 3, 1);
my ($module_name,$agent_name,$conf_file) = @ARGV[2..4];
print "[INFO] Deleting module '$module_name' from agent '$agent_name' \n\n";
my $id_agent = get_agent_id($dbh,$agent_name);
@ -826,6 +869,11 @@ sub pandora_manage_main ($$$) {
exist_check($id_module,'module',$module_name);
pandora_delete_module($dbh,$id_module);
if (defined ($conf_file)) {
pandora_delete_module_from_conf($conf_file, $module_name);
}
}
elsif ($param =~ m/--create_template_module/i) {
param_check($ltotal, 3);