Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Getting the Date and Time From a Time Server

• To: mathgroup at smc.vnet.net
• Subject: [mg120898] Re: Getting the Date and Time From a Time Server
• From: "Hans Michel" <hmichel at cox.net>
• Date: Sun, 14 Aug 2011 20:18:50 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201108131047.GAA25453@smc.vnet.net> <000c01cc59e9$c7c8a810$5759f830$@net> <6C67349E-4D75-4EE4-B9AF-954F524F661B@videotron.ca>

First of all need more information than what you get.

 

In[3]:= XML`Parser`XMLGetString["<?xml version='1.0' \

encoding='UTF-8'?><!DOCTYPE NISTTime [<!ENTITY datetime SYSTEM

          'http://time.nist.gov:13/'><!ELEMENT NISTTime \

(#PCDATA)>]><NISTTime>&datetime;</NISTTime>"]

 

Out[3]= XMLObject[

  "Document"][{XMLObject["Declaration"]["Version" -> "1.0", 

   "Encoding" -> "UTF-8"], 

  XMLObject["Doctype"]["NISTTime", 

   "InternalSubset" -> 

    "<!ENTITY datetime SYSTEM 'http://time.nist.gov:13/'><!ELEMENT \

NISTTime (#PCDATA)*>"]}, 

 XMLElement[

  "NISTTime", {}, {"55787 11-08-14 18:45:50 50 0 0 823.4 UTC(NIST) \

*"}], {}, "Valid" -> True]

 

http://reference.wolfram.com/mathematica/XML/tutorial/ImportingXML.html

 

This works for me also. Have you tried just using the URL in your browser on
your network. Port 13 may be blocked. 

If not blocked then try the following.

 

XML`Parser`XMLGetString["<?xml version='1.0' \

encoding='UTF-8'?><!DOCTYPE NISTTime [<!ENTITY datetime SYSTEM

          'http://time.nist.gov:13/'><!ELEMENT NISTTime \

(#PCDATA)>]><NISTTime>&datetime;</NISTTime>", 

 "AllowRemoteDTDAccess" -> True, "AllowUnrecognizedEntities" -> True, 

 "ValidateAgainstDTD" -> True]

 

In original reply I also stated that it may not work in your system due to
firewall issue or Mathematica front end setting and XML parser settings

 

("AllowUnrecognizedEntities" in XML attributes in Mathematica is defaulted
to True. If entities can not be fetched on your system you may need to
adjust this attribute in Mathematica. There may also be firewall issues.)

 

You may want to try the route of GetURL and excape out to Java.

http://library.wolfram.com/examples/GetURL/

 

Hans

 

From: Gregory Lypny [mailto:gregory.lypny at videotron.ca] 
Sent: Sunday, August 14, 2011 1:01 PM
To: Hans Michel
Cc: mathgroup at smc.vnet.net
Subject: [mg120898] Re: Getting the Date and Time From a Time Server

 

Hi Hans,

 

Thank you for the script.  Unfortunately, I get the following Mathematica
error message when I run it.

 

 

XML`Parser`XMLGetString::prserr: NetAccessorException: Could not open file:
http://time.nist.gov:13/ at Line: 2 Character: 88.

 

 

Regards,

 

Gregory

 

 

On Sat, Aug 13, 2011, at 2:49 PM, Hans Michel wrote:





Using Mathematica Version 7

$Version

"7.0 for Microsoft Windows (32-bit) (February 18, 2009)"

Import["http://time.nist.gov:13/";]
With port numbers fails.

Try the following trick: 

In[1]:= getNISTTime[] := 
 Module[{NISTTimeXML, result}, 
  NISTTimeXML = 
   ImportString[
    "<?xml version='1.0' encoding='UTF-8'?><!DOCTYPE NISTTime \
[<!ENTITY datetime SYSTEM
         'http://time.nist.gov:13/'><!ELEMENT NISTTime \
(#PCDATA)>]><NISTTime>&datetime;</NISTTime>", "XML"];
  result = 
   First[Cases[NISTTimeXML, XMLElement["NISTTime", {}, ___], 
       Infinity]][[3]][[1]];
  result];


In[2]:= getNISTTime[]

Out[2]= "55786 11-08-13 18:24:53 50 0 0 441.7 UTC(NIST) *"

• References:
  • Getting the Date and Time From a Time Server
    • From: Gregory Lypny <gregory.lypny@videotron.ca>