Uhr läuft nicht

[_roro]

moin,

Nun möchte ich die Zeit von einem Time-server holen und Meine Uhr damit initialisieren, aber die Uhr läuft nicht weiter, wenn ich

var Jetzt = new Date(tt);

setze, also das Objekt mit Millisekunden seit 1.1.70 initialisiere.

Und was enthält tt (Kontrollausgabe)?

Eine Zeit, die stehengeblieben ist, so ein Mist. Genau hier ist mein Fehler, danke wahsaga!

Aber wie kann ich denn diese schöne Uhr so umbauen, dass sie
-initialisiert werden kann
-und dann weiterläuft?

Bitte um einen Lösungsansatz.

roro

Damit ich nicht mit leeren Händen komme, untenstehend der PERL-hack, wie die Zeit vom Server, Port 37 geholt wird.

  
# 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));}  
###########################################################################