NAME¶

Net::NTP - Perl extension for decoding NTP server responses

SYNOPSIS¶

  use Net::NTP qw(get_ntp_response);
  my %response = get_ntp_response();

ABSTRACT¶

All 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.

DESCRIPTION¶

This 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.

EXPORT¶

get_ntp_response(<server>, <port>); 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.

SEE ALSO¶

perl, IO::Socket, RFC1305, RFC2030

AUTHOR¶

Now maintained by Ask BjA~Xrn Hansen, <ask@develooper.com<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 LICENSE¶

Copyright 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.