NAME
Net::NTPTime - Retrieve NTP and UNIX timestamp (unsigned integer) from an NTP server.
SYNOPSIS
use Net::NTPTime;
my $unix_time = get_unix_time;
my $unix_time = get_unix_time('ntp.server.com');
my $ntp_time = get_ntp_time;
my $ntp_time = get_ntp_time('ntp.server.com');
DESCRIPTION
Retrieves timestamps in NTP and UNIX formats from an NTP server.
METHODS
get_unix_time(OPTIONAL_NTP_SERVER)
Returns an integer timestamp indicating the number of elapsed seconds since 00:00 01-JAN-1970. You may include a specific NTP server to ping, or a default server will be used.
get_ntp_time(OPTIONAL_NTP_SERVER)
Returns an integer timestamp indicating the number of elapsed seconds since 00:00 01-JAN-1900. You may include a specific NTP server to ping, or a default server will be used.
The real credit goes to Tim Hogard for writing the code to do this. Thanks!
AUTHOR, COPYRIGHT, and LICENSE
Copyright(C) 2009, phatWares, USA. All rights reserved.
Permission is granted to use this software under the same terms as Perl itself. Refer to the Perl Artistic license for details.