/* NTPQ     EXEC     Query an NTP server via RFC-5905                */
/*                   Author: Rob van der Heij, 25 Apr 2014           */

arg ntpd '(' trace                    /* NTPD server                 */

address command
signal on novalue

if ntpd = '' then
  do
    'PIPE (end \  name NTPQ.EXEC:12)',
       '\ cp QUERY TIMEZONE',
       '| pick w4 == ,Active,',
       '| spec w2',
       '| append literal',
       '| var hemisph'
    if hemisph = 'West' then ntpd = '204.11.201.10'
    else ntpd = '91.207.136.44'
  end

'PIPE var ntpd | ntpq | cons'

return rc