bugfix: writing ntp server file

[gosa.git] / gosa-si / client / events / corefunctions.pm

diff --git a/gosa-si/client/events/corefunctions.pm b/gosa-si/client/events/corefunctions.pm
index 5ccf161195c2c2a0f9dc17d059d1eba3f0c45a31..7e19a8b18dcdbd1f0e37d3e2f8dd2b0e94cddc56 100644 (file)
--- a/gosa-si/client/events/corefunctions.pm
+++ b/gosa-si/client/events/corefunctions.pm
@@ -4,6 +4,8 @@ use Exporter;
 my @events = (
     "get_events",
     "registered",
+    'new_syslog_config',
+    "new_ntp_config",
     "new_ldap_config",
     "new_key",
     "generate_hw_digest",     # no implementations
@@ -23,6 +25,8 @@ use File::Basename;
 
 my ($ldap_enabled, $offline_enabled, $ldap_config, $pam_config, $nss_config, $fai_logpath);
 
+my $chrony_file = "/etc/chrony/chrony.conf";
+my $syslog_file = "/etc/syslog.conf";
 
 my %cfg_defaults = (
     "client" => {
@@ -94,7 +98,7 @@ sub registered {
     my $header = @{$msg_hash->{'header'}}[0];
     if( $header eq "registered" ) {
         my $source = @{$msg_hash->{'source'}}[0];
-        &main::daemon_log("INFO: registration at $source",1);
+        &main::daemon_log("INFO: registration at $source", 1);
         $main::server_address = $source;
     }
 
@@ -152,6 +156,124 @@ sub server_leaving {
 }
 
 
+## @method new_syslog_config
+# Update or add syslog messages forwarding to specified syslog server.
+# @param msg - STRING - xml message with tag server
+# @param msg_hash - HASHREF - message information parsed into a hash
+sub new_syslog_config {
+    my ($msg, $msg_hash) = @_ ;
+
+    # Sanity check of incoming message
+    if ((not exists $msg_hash->{'server'}) || (not @{$msg_hash->{'server'}} == 1) ) {
+        &main::daemon_log("ERROR: 'new_syslog_config'-message does not contain a syslog server: $msg", 1);
+        return;
+    }
+
+    # Fetch the new syslog server from incoming message
+    my $syslog_server = @{$msg_hash->{'server'}}[0];
+    &main::daemon_log("INFO: found syslog server: ".join(", ", $syslog_server), 5); 
+    my $found_server_flag = 0;
+    
+    # Sanity check of /etc/syslog.conf
+    if (not -f $syslog_file) {
+        &main::daemon_log("ERROR: file '$syslog_file' does not exist, cannot do syslog reconfiguration!", 1);
+        return;
+    }
+    
+    # Substitute existing server with new syslog server
+    open (FILE, "<$syslog_file");
+    my @file = <FILE>;
+    close FILE;
+    my $syslog_server_line = "*.*\t@".$syslog_server."\n"; 
+    foreach my $line (@file) {
+        if ($line =~ /^\*\.\*\s+@/) {
+            $line = $syslog_server_line;
+            $found_server_flag++;
+        }
+    }
+    
+    # Append new server if no old server configuration found
+    if (not $found_server_flag) {
+        push(@file, "\n#\n# syslog server configuration written by GOsa-si\n#\n");
+        push(@file, $syslog_server_line);
+    }
+    
+    # Write changes to file and close it
+    open (FILE, "+>$syslog_file");
+    print FILE join("", @file); 
+    close FILE;
+    &main::daemon_log("INFO: wrote new configuration file: $syslog_file", 5);
+
+    # Restart syslog deamon
+    my $res = qx(/etc/init.d/sysklogd restart);
+    &main::daemon_log("INFO: restart syslog daemon: $res", 5);
+
+    return;
+}
+
+
+## @method new_ntp_config
+# Updates the server options in /etc/chrony/chrony.conf and restarts the chrony service
+# @param msg - STRING - xml message with tag server
+# @param msg_hash - HASHREF - message information parsed into a hash
+sub new_ntp_config {
+    my ($msg, $msg_hash) = @_ ;
+
+    # Sanity check of incoming message
+    if ((not exists $msg_hash->{'server'}) || (not @{$msg_hash->{'server'}} >= 1) ) {
+        &main::daemon_log("ERROR: 'new_ntp_config'-message does not contain a ntp server: $msg", 1);
+        return;
+    }
+
+    # Fetch the new ntp server from incoming message
+    my $ntp_servers = $msg_hash->{'server'};
+    &main::daemon_log("INFO: found ntp server: ".join(", ", @$ntp_servers), 5); 
+    my $ntp_servers_string = "server\t".join("\nserver\t", @$ntp_servers)."\n";
+    my $found_server_flag = 0;
+
+    # Sanity check of /etc/chrony/chrony.conf
+    if (not -f $chrony_file) {
+        &main::daemon_log("ERROR: file '$chrony_file' does not exist, cannot do ntp reconfiguration!", 1);
+        return;
+    }
+
+    # Substitute existing server with new ntp server
+    open (FILE, "<$chrony_file");
+    my @file = <FILE>;
+    close FILE;
+       my @new_file;
+    foreach my $line (@file) {
+        if ($line =~ /^server\s+/) {
+            if ($found_server_flag) {  
+                $line =~ s/^server\s+[\S]+\s+$//;
+            } else {
+                $line =~ s/^server\s+[\S]+\s+$/$ntp_servers_string/;
+            }
+            $found_server_flag++;
+        }
+               push(@new_file, $line);
+    }
+
+    # Append new server if no old server configuration found
+    if (not $found_server_flag) {
+        push(@new_file, "\n# ntp server configuration written by GOsa-si\n");
+        push(@new_file, $ntp_servers_string);
+    }
+
+    # Write changes to file and close it
+    open (FILE, ">$chrony_file");
+    print FILE join("", @new_file); 
+    close FILE;
+    &main::daemon_log("INFO: wrote new configuration file: $chrony_file", 5);
+
+    # Restart chrony deamon
+    my $res = qx(/etc/init.d/chrony force-reload);
+    &main::daemon_log("INFO: restart chrony daemon: $res", 5);
+
+    return;
+}
+
+
 sub new_ldap_config {
     my ($msg, $msg_hash) = @_ ;