33 lines
783 B
Perl
33 lines
783 B
Perl
#!/usr/local/bin/perl -Tw
|
|
require 5.6.0;
|
|
use Socket;
|
|
use FileHandle;
|
|
use strict;
|
|
my($remote, $port, @thataddr, $that,$them, $proto,@now,$hertime);
|
|
|
|
print "client\n";
|
|
$remote = shift || 'localhost' ;
|
|
$port = 99999 ; # timeserver is at this port number
|
|
@thataddr=gethostbyname($remote);
|
|
|
|
$that = pack('Sna4x8', AF_INET, $port, $thataddr[4]);
|
|
|
|
$proto = getprotobyname('tcp');
|
|
if ( socket(SOCK, PF_INET, SOCK_STREAM, $proto ) ){
|
|
print "Socket ok.\n";
|
|
}
|
|
else {
|
|
die $!;
|
|
}
|
|
if (connect(SOCK, $that)) {
|
|
print "Connect ok.\n";
|
|
}
|
|
else {
|
|
die $!;
|
|
}
|
|
SOCK->autoflush;
|
|
$hertime = <SOCK>;
|
|
close(SOCK);
|
|
print "Server machine time is: $hertime\n";
|
|
@now = localtime($hertime);
|
|
print "\tTime-$now[2]:$now[1] ","Date-",$now[4]+1,"/$now[3]/$now[5]\n"; |