Woher bekomme ich die genaue Zeit?

[Horst]

hi,

RFC 868

Ich habs hier nur in Perl

  
# Server Send the time as a 32 bit binary number.  
# time in seconds since 1.1.1900  
# 25567 Tage ist die Differenz zum 1.1.1970  
# my $sdiff = 2208988800; #25567 * 86400;  
sub getTime{  
 my $host = shift;  
 my $client_socket = new IO::Socket::INET (  
  PeerAddr => $host,  
  PeerPort => 37,  
  Proto => 'tcp')|| return;  
  
 my $server_time = <$client_socket>;  
 $client_socket->close();  
 my $time = bin2dec($server_time) - 2208988800;  
  
 return($time);  
}  
############################################################################  
sub bin2dec{ return unpack("N", pack("a32", shift));}  
############################################################################  

my $timeserver = 'ptbtime1.ptb.de';

Oder:
Nimm eine DCF77 (Funkuhr) und syn. damit einen Rechner in Deinem Netz. Die Anderen holen sich die Zeit von diesem Host per Socket.

--Hotte