266 lines
6.6 KiB
Perl
Executable File
266 lines
6.6 KiB
Perl
Executable File
##########################################################################
|
|
# Goliat Config package
|
|
##########################################################################
|
|
# Copyright (c) 2007-2021 Artica Soluciones Tecnologicas S.L
|
|
# This code is not free or OpenSource. Please don't redistribute.
|
|
##########################################################################
|
|
|
|
package PandoraFMS::Goliat::GoliatConfig;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use PandoraFMS::Tools;
|
|
use PandoraFMS::Goliat::GoliatTools;
|
|
|
|
require Exporter;
|
|
our @ISA = ("Exporter");
|
|
our %EXPORT_TAGS = ( 'all' => [ qw( ) ] );
|
|
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
|
|
our @EXPORT = qw( g_help_screen
|
|
g_init
|
|
g_load_config );
|
|
|
|
my $g_version = "1.0";
|
|
my $g_build = "110929";
|
|
our $VERSION = $g_version." ".$g_build;
|
|
|
|
|
|
sub g_load_config {
|
|
my ( $config , $work_list )= @_ ;
|
|
my $archivo_cfg = $config->{'config_file'};
|
|
my $buffer_line;
|
|
my $task_block = 0;
|
|
my $commit_block = 0;
|
|
my $task_url = "";
|
|
my $task_cookie = 0;
|
|
my $task_resources = 1;
|
|
my $task_type = "";
|
|
my $task_headers = {};
|
|
my $task_debug = "";
|
|
my $http_auth_user = "";
|
|
my $http_auth_pass = "";
|
|
my $http_auth_realm = "";
|
|
my $http_auth_serverport = "";
|
|
my $get_string = "";
|
|
my $get_content = "";
|
|
my $get_content_advanced = "";
|
|
my @task_variable_name;
|
|
my @task_variable_value;
|
|
my @task_check_string;
|
|
my @task_check_not_string;
|
|
my $parametro;
|
|
my $temp1;
|
|
|
|
# Default options
|
|
$config->{'con_delay'} =0;
|
|
$config->{'ses_delay'} =0;
|
|
if (!defined($config->{'agent'})){
|
|
$config->{'agent'}="PandoraFMS/Goliat 4.0; Linux)";
|
|
}
|
|
if (!defined($config->{'proxy'})){
|
|
$config->{'proxy'}="";
|
|
}
|
|
|
|
if (!defined($config->{'retries'})){
|
|
$config->{'retries'} = 1;
|
|
}
|
|
|
|
if ((!is_numeric($config->{'retries'})) || ($config->{'retries'} == 0)){
|
|
$config->{'retries'} = 1;
|
|
}
|
|
|
|
$config->{'refresh'} = "5";
|
|
$config->{"max_depth"} = 25;
|
|
$config->{'log_file'}="/var/log/pandora/pandora_goliat.log";
|
|
$config->{'log_output'} = 0;
|
|
|
|
# Collect items from config file and put in an array
|
|
open (CFG, "< $archivo_cfg");
|
|
while (<CFG>){
|
|
$buffer_line = $_;
|
|
if ($buffer_line =~ /^[a-zA-Z]/){ # begins with letters
|
|
$parametro = $buffer_line;
|
|
} else {
|
|
$parametro = "";
|
|
}
|
|
# Need to commit block ??
|
|
if (($commit_block == 1) && ($task_block == 1)) {
|
|
my %work_item;
|
|
$work_item{'url'} = $task_url;
|
|
$work_item{'cookie'} = $task_cookie;
|
|
$work_item{'type'} = $task_type;
|
|
$work_item{'get_resources'} = $task_resources;
|
|
$work_item{'get_string'} = $get_string;
|
|
$work_item{'get_content'} = $get_content;
|
|
$work_item{'get_content_advanced'} = $get_content_advanced;
|
|
$work_item{'http_auth_user'} = $http_auth_user;
|
|
$work_item{'http_auth_pass'} = $http_auth_pass;
|
|
$work_item{'http_auth_realm'} = $http_auth_realm;
|
|
$work_item{'http_auth_serverport'} = $http_auth_serverport;
|
|
$work_item{'headers'} = $task_headers;
|
|
$work_item{'debug'} = $task_debug;
|
|
|
|
my $ax=0;
|
|
while ($#task_check_string >= 0){
|
|
$temp1 = pop (@task_check_string);
|
|
$work_item{'checkstring'}[$ax] = $temp1;
|
|
$ax++;
|
|
}
|
|
$ax=0;
|
|
while ($#task_check_not_string >= 0){
|
|
$temp1 = pop (@task_check_not_string);
|
|
$work_item{'checknotstring'}[$ax] = $temp1;
|
|
$ax++;
|
|
}
|
|
$ax=0;
|
|
while ($#task_variable_name >= 0){
|
|
$temp1 = pop (@task_variable_name);
|
|
$work_item{'variable_name'}[$ax] = $temp1;
|
|
$ax++;
|
|
}
|
|
$ax=0;
|
|
while ($#task_variable_value >= 0){
|
|
$temp1 = pop (@task_variable_value);
|
|
$work_item{'variable_value'}[$ax] = $temp1;
|
|
$ax++;
|
|
|
|
}
|
|
push @{$work_list}, \%work_item;
|
|
$commit_block = 0;
|
|
$task_block = 0;
|
|
$task_url = "";
|
|
$task_cookie = 0;
|
|
$task_resources = 0;
|
|
$task_type = "";
|
|
$task_headers = {};
|
|
$task_debug = "";
|
|
$config->{"work_items"}++;
|
|
$commit_block = 0;
|
|
$task_block = 0;
|
|
$http_auth_user = "";
|
|
$http_auth_pass = "";
|
|
$http_auth_realm = "";
|
|
$get_string = "";
|
|
$get_content = "";
|
|
$get_content_advanced = "";
|
|
}
|
|
# ~~~~~~~~~~~~~~
|
|
# Main setup items
|
|
# ~~~~~~~~~~~~~~
|
|
|
|
if ($parametro =~ m/^task_begin/i) {
|
|
$task_block = 1;
|
|
}
|
|
elsif ($parametro =~ m/^task_end/i) {
|
|
$commit_block = 1;
|
|
}
|
|
elsif ($parametro =~ m/^ses_delay\s(.*)/i) {
|
|
$config->{'ses_delay'} = $1;
|
|
}
|
|
elsif ($parametro =~ m/^con_delay\s(.*)/i) {
|
|
$config->{'con_delay'} = $1;
|
|
}
|
|
elsif ($parametro =~ m/^agent\s(.*)/i) {
|
|
$config->{'agent'} = $1;
|
|
}
|
|
elsif ($parametro =~ m/^proxy\s(.*)/i) {
|
|
$config->{'proxy'} = $1;
|
|
}
|
|
elsif ($parametro =~ m/^max_depth\s(.*)/i) {
|
|
$config->{'max_depth'} = $1;
|
|
}
|
|
elsif ($parametro =~ m/^log_file\s(.*)/i) {
|
|
$config->{"log_file"} = $1;
|
|
}
|
|
elsif ($parametro =~ m/^log_output\s(.*)/i) {
|
|
$config->{"log_output"} = $1;
|
|
}
|
|
elsif ($parametro =~ m/^log_http\s(.*)/i) {
|
|
$config->{"log_http"} = $1;
|
|
}
|
|
elsif ($parametro =~ m/^retries\s(.*)/i) {
|
|
$config->{"retries"} = $1;
|
|
}
|
|
# ~~~~~~~~~~~~~~
|
|
# Task items
|
|
# ~~~~~~~~~~~~~~
|
|
elsif ($parametro =~ m/^variable_name\s(.*)/i) {
|
|
push (@task_variable_name, $1);
|
|
}
|
|
elsif ($parametro =~ m/^variable_value\s(.*)/i) {
|
|
push (@task_variable_value, $1);
|
|
}
|
|
elsif ($parametro =~ m/^check_string\s(.*)/i) {
|
|
push (@task_check_string, $1);
|
|
}
|
|
elsif ($parametro =~ m/^check_not_string\s(.*)/i) {
|
|
push (@task_check_not_string, $1);
|
|
}
|
|
elsif ($parametro =~ m/^get\s(.*)/i) {
|
|
$task_type = "GET";
|
|
$task_url = $1;
|
|
}
|
|
elsif ($parametro =~ m/^post\s(.*)/i) {
|
|
$task_type = "POST";
|
|
$task_url = $1;
|
|
}
|
|
elsif ($parametro =~ m/^head\s(.*)/i) {
|
|
$task_type = "HEAD";
|
|
$task_url = $1;
|
|
}
|
|
# New in 4.0 version
|
|
elsif ($parametro =~ m/^get_string\s(.*)/i) {
|
|
$get_string = $1;
|
|
}
|
|
elsif ($parametro =~ m/^get_content\s(.*)/i) {
|
|
$get_content = $1;
|
|
}
|
|
elsif ($parametro =~ m/^get_content_advanced\s(.*)/i) {
|
|
$get_content_advanced = $1;
|
|
}
|
|
elsif ($parametro =~ m/^http_auth_user\s(.*)/i) {
|
|
$http_auth_user = $1;
|
|
}
|
|
elsif ($parametro =~ m/^http_auth_pass\s(.*)/i) {
|
|
$http_auth_pass = $1;
|
|
}
|
|
elsif ($parametro =~ m/^http_auth_realm\s(.*)/i) {
|
|
$http_auth_realm = $1;
|
|
}
|
|
elsif ($parametro =~ m/^http_auth_serverport\s(.*)/i) {
|
|
$http_auth_serverport = $1;
|
|
}
|
|
elsif ($parametro =~ m/^cookie\s(.*)/i) {
|
|
if ($1 =~ m/1/i){
|
|
$task_cookie = 1;
|
|
} else {
|
|
$task_cookie = 0;
|
|
}
|
|
}
|
|
elsif ($parametro =~ m/^resource\s(.*)/i) {
|
|
if ($1 =~ m/1/i){
|
|
$task_resources = 1;
|
|
} else {
|
|
$task_resources = 0;
|
|
}
|
|
}
|
|
# New in 5.0 version
|
|
elsif ($parametro =~ m/^header\s+(\S+)\s(.*)/i) {
|
|
$task_headers->{$1} = $2;
|
|
}
|
|
elsif ($parametro =~ m/^debug\s+(.*)/i) {
|
|
$task_debug = $1;
|
|
}
|
|
|
|
}
|
|
close (CFG);
|
|
}
|
|
|
|
# End of function declaration
|
|
# End of defined Code
|
|
|
|
1;
|
|
__END__
|
|
|
|
|