From 4211645bbeb987cd378cbc9ac233cccf9c11d850 Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Wed, 21 Mar 2012 16:54:08 +0100
Subject: [PATCH] esteticka uprava kodu
---
src/warden-client/lib/WardenClientReceive.pm | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/warden-client/lib/WardenClientReceive.pm b/src/warden-client/lib/WardenClientReceive.pm
index 5ed525a..7888ec9 100755
--- a/src/warden-client/lib/WardenClientReceive.pm
+++ b/src/warden-client/lib/WardenClientReceive.pm
@@ -151,10 +151,9 @@ sub getNewEvents
# call server method getNewEvents
my $response = c2s($uri, $ssl_key_file, $ssl_cert_file, $ssl_ca_file, "getNewEvents", $request_data);
+ # parse returned SOAP data object
my ($id, $hostname, $service, $detected, $type, $source_type, $source, $target_proto, $target_port, $attack_scale, $note, $priority, $timeout);
my @events;
-
- # parse returned SOAP data object
my @response_list = $response->valueof('/Envelope/Body/getNewEventsResponse/event/');
while (scalar @response_list) {
my $response_data = shift(@response_list);
@@ -176,7 +175,7 @@ sub getNewEvents
$timeout = $response_data->{'TIMEOUT'};
# push new event from warden server into @events which is returned
- @event = ("$id", "$hostname", "$service", "$detected", "$type", "$source_type", "$source", "$target_proto", "$target_port", "$attack_scale", "$note", "$priority", "$timeout");
+ @event = ($id, $hostname, $service, $detected, $type, $source_type, $source, $target_proto, $target_port, $attack_scale, $note, $priority, $timeout);
push (@events, \@event);
# set maximum received ID from current batch
--
GitLab