esteticka uprava kodu

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