svn commit: r1466616 - /vcl/trunk/managementnode/lib/VCL/Module/OS/Windows.pm

[fapeeler]

Author: fapeeler
Date: Wed Apr 10 18:50:26 2013
New Revision: 1466616

URL: http://svn.apache.org/r1466616
Log:
VCL-585

Added code to also update registry values for internet time servers.


Modified:
    vcl/trunk/managementnode/lib/VCL/Module/OS/Windows.pm

Modified: vcl/trunk/managementnode/lib/VCL/Module/OS/Windows.pm
URL: 
http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/OS/Windows.pm?rev=1466616&r1=1466615&r2=1466616&view=diff
==============================================================================
--- vcl/trunk/managementnode/lib/VCL/Module/OS/Windows.pm (original)
+++ vcl/trunk/managementnode/lib/VCL/Module/OS/Windows.pm Wed Apr 10 18:50:26 
2013
@@ -8629,6 +8629,15 @@ sub configure_time_synchronization {
        
        # Replace commas with single whitespace 
        $time_source =~ s/,/ /g;
+       my @time_array = split(/ /, $time_source);
+       
+       #Update the registry
+   my $key = 
'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers';
+   for my $i (0 .. $#time_array) {
+       my $value = $i+1;
+       if($self->reg_add($key,$value, "REG_SZ", $time_array[$i])){
+       }
+   }
 
        # Assemble the time command
        my $time_command;