Updated to the new use of messages

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@8688 594d385d-05f5-0310-b6e9-bd551577e9d8

diff --git a/gosa-si/gosa-si-server b/gosa-si/gosa-si-server
index 2a0fafabfc34639ac59a42ba5b9c34ed104cb321..1db1836ec1bd29611d6f3437530349d496603519 100755 (executable)
--- a/gosa-si/gosa-si-server
+++ b/gosa-si/gosa-si-server
@@ -562,7 +562,10 @@ sub create_ciphering {
 sub encrypt_msg {
     my ($msg, $key) = @_;
     my $my_cipher = &create_ciphering($key);
-    $msg = "\0"x(16-length($msg)%16).$msg;
+    {
+      use bytes;
+      $msg = "\0"x(16-length($msg)%16).$msg;
+    }
     $msg = $my_cipher->encrypt($msg);
     chomp($msg = &encode_base64($msg));
     # there are no newlines allowed inside msg

diff --git a/gosa-si/modules/SIPackages.pm b/gosa-si/modules/SIPackages.pm
index 8fd71440642b7d501b471dc60d711e7f564426c4..c273341cffe41d23de65814f51ad22c8c971ebf5 100644 (file)
--- a/gosa-si/modules/SIPackages.pm
+++ b/gosa-si/modules/SIPackages.pm
@@ -625,7 +625,7 @@ sub new_ldap_config {
     my $base;
 
     # Do we need to look at an object class?
-    if ($#servers < 1){
+    if (length(@servers) < 1){
            $mesg = $ldap->search( base   => $ldap_base,
                            scope  => 'sub',
                            attrs => ['dn', 'gotoLdapServer'],
@@ -666,9 +666,7 @@ sub new_ldap_config {
     }
 
     # Send information
-    send_msg("new_ldap_config", $server_address, $address, \%data, $hostkey);
-
-    return;
+    return send_msg("new_ldap_config", $server_address, $address, \%data, $hostkey);
 }