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

Merge branch 'ent-5461-9442-plugin-advanced-log-parser-descripción-incorrecta' into 'develop' 

Fixed description

See merge request artica/pandorafms!3059
This commit is contained in:
Alejandro Fraguas 2020-03-10 16:36:34 +01:00
parent 97f3902cf4 21ae9a1925
commit 52ef358642
1 changed files with 24 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
pandora_plugins/Advanced Log Parser/pandora_logparser.pl
View File

@ -258,7 +258,7 @@ sub parse_config {
$plugin_setup{"log"}->[$log_items]->{"type"} = $1;
}
if ($parametro =~ m/^log\_create_module_for_each_log/i) {
if ($parametro =~ m/^log\_create\_module\_for\_each\_log/i) {
$plugin_setup{"log"}->[$log_items]->{"module_for_each_log"} = 1;
} else {
if (!defined($plugin_setup{"log"}->[$log_items]->{"module_for_each_log"})){
@ -444,7 +444,7 @@ sub create_idx ($$) {
# Parse log file starting from position $Idx_pos.
###############################################################################
sub parse_log ($$$$$$$) {
sub parse_log ($$$$$$$$) {
my $Idx_file = $_[0];
my $Log_file = $_[1];
my $Idx_pos = $_[2];
@ -452,6 +452,7 @@ sub parse_log ($$$$$$$) {
my $Module_name = $_[4];
my $type = $_[5];
my $regexp_collection = $_[6]; # hash of rules
my $Description = $_[7];
my $line;
my $count = 0;
@ -470,7 +471,7 @@ sub parse_log ($$$$$$$) {
$buffer .= "<module>\n";
$buffer .= "<name><![CDATA[" . $Module_name . "]]></name>\n";
$buffer .= "<description><![CDATA[" . $Log_file . "]]></description>\n";
$buffer .= "<description><![CDATA[" . $Description . "]]></description>\n";
if ($type eq "return_ocurrences"){
$buffer .= "<type>generic_data</type>\n";
@ -482,7 +483,6 @@ sub parse_log ($$$$$$$) {
while ($line = <LOGFILE>) {
while (my ($key, $value) = each (%{$regexp_collection})) {
# For each regexp block
$rule = $value->{"rule"};
#print "[DEBUG] Action: ".$value->{"action"} ."\n";
@ -491,7 +491,6 @@ sub parse_log ($$$$$$$) {
#print "[DEBUG] Rule: ".$value->{"rule"} ."\n";
if ($line =~ m/$rule/i) {
# Remove the trailing '\n'
chop($line);
@ -594,7 +593,7 @@ sub print_module ($$$$$){
###############################################################################
#manage_logfile($log_filename, $module_name, $readall, $type, $regexp);
sub manage_logfile ($$$$$){
sub manage_logfile ($$$$$$){
my $Idx_pos;
my $Idx_ino;
@ -606,6 +605,7 @@ sub manage_logfile ($$$$$){
my $readall = $_[2];
my $type = $_[3];
my $regexp = $_[4];
my $description = $_[5];
my $index_file_converted = $log_filename;
# Avoid / \ | and : characters
@ -613,9 +613,17 @@ sub manage_logfile ($$$$$){
$index_file_converted =~ s/\\/_/g;
$index_file_converted =~ s/\|/_/g;
$index_file_converted =~ s/\:/_/g;
$module_name =~ s/\//_/g;
$module_name =~ s/\\/_/g;
$module_name =~ s/\|/_/g;
$module_name =~ s/\:/_/g;
# Create index file if it does not exist
$Idx_file = $plugin_setup{"index_dir"} . "/". $module_name . "_" . $index_file_converted . ".idx";
if($^O =~ /win/i){
$Idx_file = $plugin_setup{"index_dir"} . "\\". $module_name . "_" . $index_file_converted . "\.idx";
}else{
$Idx_file = $plugin_setup{"index_dir"} . "/". $module_name . "_" . $index_file_converted . "\.idx";
}
# if force read all is enabled,
if (! -e $Idx_file) {
@ -633,7 +641,7 @@ sub manage_logfile ($$$$$){
}
# Parse log file
parse_log($Idx_file, $log_filename, $Idx_pos, $Idx_ino, $module_name, $type, $regexp);
parse_log($Idx_file, $log_filename, $Idx_pos, $Idx_ino, $module_name, $type, $regexp, $description);
}
@ -672,6 +680,7 @@ my $module_type;
my $readall;
my $type;
my $regexp;
my $description;
# Parse external configuration file
@ -700,23 +709,25 @@ while (my ($key, $value) = each (@{$plugin_setup{"log"}})) {
$readall = $value->{"readall"};
$type = $value->{"type"};
$regexp = $value->{"regexp"};
$description = $value->{"description"};
# Check if filename exists
if (defined($value->{"log_location_file"})){
$log_filename = $value->{"log_location_file"};
manage_logfile ($log_filename, $module_name, $readall, $type, $regexp);
manage_logfile ($log_filename, $module_name, $readall, $type, $regexp, $description);
} elsif (defined($value->{"log_location_exec"})){
$log_filename = `$value->{"log_location_exec"}`;
manage_logfile ($log_filename, $module_name, $readall, $type, $regexp);
manage_logfile ($log_filename, $module_name, $readall, $type, $regexp, $description);
}
# Multiple files
if (defined($value->{"log_location_multiple"})){
$log_filename_multiple = $value->{"log_location_multiple"};
$log_create_module_for_each_log = $value->{"module_for_each_log"};
my @buffer = `find $log_filename_multiple`;
#my @buffer = `dir "$log_filename_multiple" /b /a-d`;
my @buffer = `ls -d "$log_filename_multiple"`;
foreach (@buffer) {
# This should solve problems with carriage return in Unix, Linux and Windooze
chomp($_);
@ -729,7 +740,7 @@ while (my ($key, $value) = each (@{$plugin_setup{"log"}})) {
$module_name_multiple =~ s/\//_/g;
$module_name_multiple = $module_name . "_" . $module_name_multiple;
}
manage_logfile ($log_filename, $module_name_multiple, $readall, $type, $regexp);
manage_logfile ($log_filename, $module_name_multiple, $readall, $type, $regexp, $description);
}
}