doplnen timetout pro navazani spojeni se serverem

src/warden-client/lib/WardenClientReceive.pm

@@ -43,12 +43,13 @@ sub c2s
   if (!($client = SOAP::Transport::HTTP::Client->new())) {
     errMsg("Sorry, unable to create socket: " . &SOAP::Transport::HTTP::Client::errstr)
   }
+  $client->timeout(60);
   $client->ssl_opts(verify_hostname     => 1,
-        		        SSL_use_cert        => 1,
-        		        SSL_verify_mode     => 0x02,
-        		        SSL_key_file        => $ssl_key_file,
-        		        SSL_cert_file       => $ssl_cert_file,
-        		        SSL_ca_file         => $ssl_ca_file);
+		    SSL_use_cert        => 1,
+		    SSL_verify_mode     => 0x02,
+		    SSL_key_file        => $ssl_key_file,
+		    SSL_cert_file       => $ssl_cert_file,
+		    SSL_ca_file         => $ssl_ca_file);
 
   # setting of URI and serialize SOAP envelope and data object
   my $soap     = SOAP::Lite->uri($service)->proxy($uri);

src/warden-client/lib/WardenClientSend.pm

@@ -39,17 +39,18 @@ sub c2s
   my $data		      = shift;
 
   my ($server, $port, $service) = $uri =~ /https:\/\/(.+)\:(\d+)\/(.+)/;
-  
+
   my $client;
   if (!($client = SOAP::Transport::HTTP::Client->new())) {
     errMsg("Sorry, unable to create socket: " . &SOAP::Transport::HTTP::Client::errstr)
   }
+  $client->timeout(60);
   $client->ssl_opts(verify_hostname     => 1,
-        		        SSL_use_cert        => 1,
-        		        SSL_verify_mode     => 0x02,
-        		        SSL_key_file        => $ssl_key_file,
-        		        SSL_cert_file       => $ssl_cert_file,
-        		        SSL_ca_file         => $ssl_ca_file);
+		    SSL_use_cert        => 1,
+		    SSL_verify_mode     => 0x02,
+		    SSL_key_file        => $ssl_key_file,
+		    SSL_cert_file       => $ssl_cert_file,
+		    SSL_ca_file         => $ssl_ca_file);
 
 
   # setting of URI and serialize SOAP envelope and data object