zmena nazvu globalnich promennych

src/warden-client/lib/WardenClientCommon.pm

@@ -29,19 +29,19 @@ sub errMsg
   defined $type or $type = "err"; # default type is err. Other: warn
   
   # check verbose logging
-  if (($type eq "err") && ($WardenCommon::LOG_VERBOSE)) {
+  if (($type eq "err") && ($WardenClientCommon::LOG_VERBOSE)) {
     $msg .= "\nStack info: " . Carp::longmess();
   }
 
   # check logging into STDERR
-  if ($WardenCommon::LOG_STDERR) {
+  if ($WardenClientCommon::LOG_STDERR) {
     print STDERR $msg . "\n";
   }
 
   # check logging into Syslog
-  if ($WardenCommon::SYSLOG) {
-    openlog("Warden-client:", "pid", "$WardenCommon::SYSLOG_FACILITY");
-    syslog("$type|$WardenCommon::SYSLOG_FACILITY", $msg . "\n");
+  if ($WardenClientCommon::SYSLOG) {
+    openlog("Warden-client:", "pid", "$WardenClientCommon::SYSLOG_FACILITY");
+    syslog("$type|$WardenClientCommon::SYSLOG_FACILITY", $msg . "\n");
     closelog();
   }
 
@@ -75,7 +75,7 @@ sub c2s
   } or return errMsg("Error in function 'c2s()' when creating SOAP::Transport::HTTP::Client object: " . $@);
  
   # setting of connection timeout
-  eval {$client->timeout($WardenCommon::CONNECTION_TIMEOUT);}
+  eval {$client->timeout($WardenClientCommon::CONNECTION_TIMEOUT);}
   or return errMsg("Error in function 'c2s()' when setting connection timeout: " . $@);
 
   # setting of SSL options
@@ -141,7 +141,7 @@ sub getClientInfo
   loadConf($conf_file);
 
   # obtain information about clients on Warden server
-  my $response = c2s($WardenCommon::URI, $WardenCommon::SSL_KEY, $WardenCommon::SSL_CERT, $WardenCommon::SSL_CA_CERT, "getClientInfo");
+  my $response = c2s($WardenClientCommon::URI, $WardenClientCommon::SSL_KEY, $WardenClientCommon::SSL_CERT, $WardenClientCommon::SSL_CA_CERT, "getClientInfo");
   defined $response or return; # receive data or return undef     
 
   # parse server response (SOAP data object)