gosa-si/server/events/server_server_com.pm

   1 package server_server_com;
   2 use Exporter;
   3 @ISA = qw(Exporter);
   4 my @events = (
   5     'new_server',
   6     );
   7 @EXPORT = @events;
   8
   9 use strict;
  10 use warnings;
  11 use Data::Dumper;
  12 use GOSA::GosaSupportDaemon;
  13
  14
  15 BEGIN {}
  16
  17 END {}
  18
  19 ### Start ######################################################################
  20
  21 sub get_events {
  22     return \@events;
  23 }
  24
  25
  26 sub new_server {
  27     my ($msg, $msg_hash, $session_id) = @_ ;
  28     my $header = @{$msg_hash->{'header'}}[0];
  29     my $source = @{$msg_hash->{'source'}}[0];
  30     my $target = @{$msg_hash->{'target'}}[0];
  31     my $key = @{$msg_hash->{'key'}}[0];
  32     my $clients = @{$msg_hash->{'clients'}}[0];
  33
  34     # sanity check
  35     if (ref $key eq 'HASH') {
  36         &main::daemon_log("$session_id ERROR: 'new_server'-message from host '$source' contains no key!", 1);
  37         #return;
  38     }
  39
  40     # add foreign server to known_server_db
  41     my $func_dic = {table=>$main::known_server_tn,
  42         primkey=>['hostname'],
  43         hostname => $source,
  44         hostkey => $key,
  45         timestamp=>&get_time(),
  46     };
  47     my $res = $main::known_server_db->add_dbentry($func_dic);
  48     if (not $res == 0) {
  49         &main::daemon_log("$session_id ERROR: server_server_com.pm: cannot add server to known_server_db: $res", 1);
  50     } else {
  51         &main::daemon_log("$session_id INFO: server_server_com.pm: server '$source' successfully added to known_server_db", 5);
  52     }
  53
  54     # add clients of foreign server to known_foreign_clients_db
  55
  56
  57     # build confirm_new_server message
  58     my $out_msg = &build_msg('confirm_new_server', $main::server_address, $source);
  59     my $error =  &main::send_msg_to_target($out_msg, $source, $key, 'confirm_new_server', 0);
  60
  61
  62 }
  63
  64 1;