Code

* gosa-si-server-nobus
authorrettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Tue, 27 May 2008 06:55:32 +0000 (06:55 +0000)
committerrettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Tue, 27 May 2008 06:55:32 +0000 (06:55 +0000)
* under construction

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

gosa-si/gosa-si-server-nobus
gosa-si/modules/DBsqlite.pm
gosa-si/server/events/server_server_com.pm

index ffae53c602bf69b08341eb18edb2e0544a621e15..84097f391a1ea4f0c4cc6b24b5c0135280c3bb71 100755 (executable)
@@ -891,6 +891,7 @@ sub send_msg_to_target {
     my ($msg, $address, $encrypt_key, $msg_header, $session_id) = @_ ;
     my $error = 0;
     my $header;
+    my $timestamp = &get_time();
     my $new_status;
     my $act_status;
     my ($sql_statement, $res);
@@ -945,7 +946,7 @@ sub send_msg_to_target {
             $res = $known_clients_db->del_dbentry($sql_statement);
             daemon_log("$session_id WARNING: failed 2x to send msg to host '$address', delete host from known_clients", 3);
         } else { 
-            $sql_statement = "UPDATE known_clients SET status='$new_status' WHERE hostname='$address'";
+            $sql_statement = "UPDATE known_clients SET status='$new_status', timestamp='$timestamp' WHERE hostname='$address'";
             $res = $known_clients_db->update_dbentry($sql_statement);
             if($new_status eq "down"){
                 daemon_log("$session_id WARNING: set '$address' from status '$act_status' to '$new_status'", 3);
@@ -966,7 +967,7 @@ sub send_msg_to_target {
             daemon_log("$session_id WARNING: failed 2x to send a message to host '$address', delete host from known_server", 3);
         } 
         else { 
-            $sql_statement = "UPDATE known_server SET status='$new_status' WHERE hostname='$address'";
+            $sql_statement = "UPDATE known_server SET status='$new_status', timestamp='$timestamp' WHERE hostname='$address'";
             $res = $known_server_db->update_dbentry($sql_statement);
             if($new_status eq "down"){
                 daemon_log("$session_id WARNING: set '$address' from status '$act_status' to '$new_status'", 3);
index d1bd03d23ab77882702dbccd206922c89c833a89..cd11a453528bb30e96f003a25a31c9c6f30d73a7 100644 (file)
@@ -117,7 +117,7 @@ sub add_dbentry {
                my $create_id=0;
                foreach my $col_name (@{$col_names}) {
                        if($col_name eq "id" && (! exists $arg->{$col_name})) {
-                               &main::daemon_log("0 DEBUG: id field found without value! Creating autoincrement statement!", 7);
+                               #&main::daemon_log("0 DEBUG: id field found without value! Creating autoincrement statement!", 7);
                                $create_id=1;
                        }
                }
index b2dc8477662599f6ea27b8a23eb446a19f000fd1..c2f8e770815a93e174d780ac96c05855df817f80 100644 (file)
@@ -54,8 +54,8 @@ sub new_server {
     }
 
     # delete all entries at foreign_clients_db coresponding to this server
-    my $sql = "DELETE FROM $main::foreign_clients_tn WHERE regserver='$source' ";
-    my $res = $main::foreign_clients_db->exec_statement($sql);
+    my $del_sql = "DELETE FROM $main::foreign_clients_tn WHERE regserver='$source' ";
+    my $del_res = $main::foreign_clients_db->exec_statement($del_sql);
 
     # add clients of foreign server to known_foreign_clients_db
     my @sql_list;