zoozle-download-search-engine - 2010-zoozle-www - www.zoozle.biz - stuff - SOURCE CODE

#!/usr/bin/perl

# Einen DaytimeServer anzapfen und die Systemuhr stellen
$hostname = "216.136.10.198";

# aus einem gegebenen Monatsnamen (englisch) die Nr. des Monats herausgeben: 0 bei Fehler
@mon = ( "", "Jan", "Feb", "Mar", "Avr", "Mai", 
  "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" );

sub month {
  local ($p) = @_;
  for ($i = 1; $i < 13; $i++) {
    if ($p =~ /^$mon[$i]/) {
      return $i;
    }
  }
  return 0;
}


# Ab hier gehts los
use IO::Socket;
$client_sock = new IO::Socket::INET (
  PeerAddr => $hostname,
  PeerPort => 13,
  Proto => 'tcp')|| die "Kein Socket... $!\n";

$server_time = <$client_sock>;
$client_sock->close();

# Zeitstring kommt in der Form "Monday, November 27, 2001 05:56:37-MET" also splitten
@z = split(/ /,$server_time);
print "Genaue Uhrzeit: $server_time\n";

# Die Uhrzeit an das System übergeben
$t = substr($z[4],0,8);     # die Uhrzeit hh:mm:ss extrahieren
$m = month($z[1]);          # die Nr. des Monats
$m = "0" . $m if ($m < 10); # mit führender Null
chop($z[2]);                # ohne Komma
$z[2] = "0" . $z[2] if ($z[2] < 10); # mit führender Null
$y = substr($z[3],2,2);     # nur die letzten beiden Ziffern der Jahreszahl
`sudo /sbin/hwclock --set --date="$m/$z[2]/$y $t"`;
if(!$?){
  print "Systemzeit richtig gestellt!\n";
}else{ print "Systemzeit konnte nicht gestellt werden\n"; }
                                

#!/usr/bin/perl -w
#
# sntp.pl
#
my $PgmName = "SNTP - Get time from an NTP time server";
my $VERSION = "0.2b, 2004-12-10";
#

=head1 SNTP - Get time from an NTP time server

 This program has been written just for fun to take a short look on the NTP stuff
 and to learn about the NTP/SNTP data :
 get time information from an NTP time server using SNTP (Simple Network Time
 Protocol, RFC-2030), analyze the protocol information, and display what we've got.
 Finally optionally set the local unix system clock, if you wish.

 For real time synchronization, please use a more professional client software.

 (c) 2001, Ralf D. Kloth <ralf at qrq.de>, QRQ.software.
 All rights reserved.
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.
 THIS PRGOGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESSED OR IMPLIED
 WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
 MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 You are using this program at own risk.

 Written and tested under Perl V 5.6.0 on Linux 2.4.

 Revision history: 
   V0.1,  2000-09-30, first version
   V0.2,  2001-03-31, published version
   V0.2b, 2004-12-10, minor patch by Tim Braun

 usage: perl sntp.pl [-u (update the unix clock)] <timeserver>

 Attention: Year-2036 problem:
 This program will not work after the NTP timestamp rollover on 2036-02-07.

 Finally, RFC-2030 recommends the following on stratum usage:
 As the load on the hosts supporting NTP primary (stratum 1) time service is heavy
 and always increasing, clients should avoid using the primary servers whenever
 possible. In most cases the accuracy of the NTP secondary (stratum 2) servers is
 only slightly degraded relative to the primary servers and, as a group, the
 secondary servers may be just as reliable.
 List of stratum 2 servers: http://www.eecis.udel.edu/~mills/ntp/clock2.htm

=cut 

use strict;

... [truncated, 316 more lines] ...