Skip to content
Snippets Groups Projects
Commit e2a88327 authored by Jan Soukal's avatar Jan Soukal
Browse files

betaverze klienta 2.0.0, u odesilajiciho pridan eval block

parent 9e40f828
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/warden-client/lib/WardenClientSend.pm
+ 56
− 45
View file @ e2a88327
...@@ -79,51 +79,62 @@ sub c2s ...@@ -79,51 +79,62 @@ sub c2s
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
sub saveNewEvent sub saveNewEvent
{ {
my $warden_path = shift; my $result;
my $event_ref = shift; eval {
my $warden_path = shift;
my $etcdir = $warden_path . "/etc/"; my $event_ref = shift;
my $libdir = $warden_path . "/lib/";
my $etcdir = $warden_path . "/etc/";
# read the config file my $libdir = $warden_path . "/lib/";
require $libdir . "WardenClientConf.pm";
my $conf_file = $etcdir . "warden-client.conf"; # read the config file
my ($uri, $ssl_key_file, $ssl_cert_file, $ssl_ca_file) = WardenClientConf::loadConf($conf_file); require $libdir . "WardenClientConf.pm";
my $conf_file = $etcdir . "warden-client.conf";
# prepare variables of event my ($uri, $ssl_key_file, $ssl_cert_file, $ssl_ca_file) = WardenClientConf::loadConf($conf_file);
my @event = @{$event_ref};
my $service = $event[0]; # prepare variables of event
my $detected = $event[1]; my @event = @{$event_ref};
my $type = $event[2]; my $service = $event[0];
my $source_type = $event[3]; my $detected = $event[1];
my $source = $event[4]; my $type = $event[2];
my $target_proto = $event[5]; my $source_type = $event[3];
my $target_port = $event[6]; my $source = $event[4];
my $attack_scale = $event[7]; my $target_proto = $event[5];
my $note = $event[8]; my $target_port = $event[6];
my $priority = $event[9]; my $attack_scale = $event[7];
my $timeout = $event[10]; my $note = $event[8];
my $priority = $event[9];
# create SOAP data object my $timeout = $event[10];
my $event = SOAP::Data->name(
event => \SOAP::Data->value( # create SOAP data object
SOAP::Data->name(SERVICE => $service), my $event = SOAP::Data->name(
SOAP::Data->name(DETECTED => $detected), event => \SOAP::Data->value(
SOAP::Data->name(TYPE => $type), SOAP::Data->name(SERVICE => $service),
SOAP::Data->name(SOURCE_TYPE => $source_type), SOAP::Data->name(DETECTED => $detected),
SOAP::Data->name(SOURCE => $source), SOAP::Data->name(TYPE => $type),
SOAP::Data->name(TARGET_PROTO => $target_proto), SOAP::Data->name(SOURCE_TYPE => $source_type),
SOAP::Data->name(TARGET_PORT => $target_port), SOAP::Data->name(SOURCE => $source),
SOAP::Data->name(ATTACK_SCALE => $attack_scale), SOAP::Data->name(TARGET_PROTO => $target_proto),
SOAP::Data->name(NOTE => $note), SOAP::Data->name(TARGET_PORT => $target_port),
SOAP::Data->name(PRIORITY => $priority), SOAP::Data->name(ATTACK_SCALE => $attack_scale),
SOAP::Data->name(TIMEOUT => $timeout) SOAP::Data->name(NOTE => $note),
) SOAP::Data->name(PRIORITY => $priority),
); SOAP::Data->name(TIMEOUT => $timeout)
)
my $result = c2s($uri, $ssl_key_file, $ssl_cert_file, $ssl_ca_file, "saveNewEvent", $event); );
$result ? return 1 : return 0;
$result = c2s($uri, $ssl_key_file, $ssl_cert_file, $ssl_ca_file, "saveNewEvent", $event);
#$result ? return 1 : return 0;
}; #end of eval block
if ($@) {
print STDERR "Warden-client unexpected end in eval block: " . $@ . "\n";
return 0;
}
else {
$result ? return 1 : return 0;
}
} # End of saveNewEvent } # End of saveNewEvent
1; 1;
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment