use Net::NTP qw(get_ntp_response);
my %response = get_ntp_response();
ABSTRACTAll this module does is send a packet to an NTP server and then decode the packet received into it's respective parts - as outlined in RFC1305 and RFC2030.
DESCRIPTIONThis module exports a single method (get_ntp_response) and returns an associative array based upon RFC1305 and RFC2030. The response from the server is ``humanized'' to a point that further processing of the information received from the server can be manipulated. For example: timestamps are in epoch, so one could use the localtime function to produce an even more ``human'' representation of the timestamp.
This module exports a single method - get_ntp_response. It takes the server as the first argument (localhost is the default) and port to send/recieve the packets (ntp or 123 bu default). It returns an associative array of the various parts of the packet as outlined in RFC1305. It ``normalizes'' or ``humanizes'' various parts of the packet. For example: all the timestamps are in epoch, NOT hexidecimal.
AUTHORNow maintained by Ask BjA~Xrn Hansen, <[email protected]<gt>
Originally by James G. Willmore, <jwillmore (at) adelphia.net<gt> or <owner (at) ljcomputing.net<gt>
Special thanks to Ralf D. Kloth <ralf (at) qrq.de<gt> for the code to decode NTP packets.
COPYRIGHT AND LICENSECopyright 2009 by Ask BjA~Xrn Hansen; 2004 by James G. Willmore
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.