Comment
====================================================

This is a sample menu utility to set the clock on all your file servers
to the same date and time.

 Usage: MarxMenu ServTime '08-19-91 3:00pm'

This requires a Novell network to run.

====================================================
EndComment

StandardIO

var
  T
  DateOnly
  Servers
  Serv

Trim(CmdLine)

if CmdLine = ''
   Writeln
   Writeln 'Usage: MarxMenu ServTime <time>'
   ExitMenu
endif

T = TimeOf(CmdLine)
DateOnly = pos(':',CmdLine) = 0

if BadDate
   Writeln
   Writeln 'Invalid Date: ' CmdLine
   ExitMenu
endif

Writeln

Write 'Setting WorkStation Clock ... '
if DateOnly
   Today = T
else
   Now = T
endif
Writeln

T = Now
NovAttachedServers(Servers)

Loop Servers
   Serv = Servers[LoopIndex]
   Write 'Setting Server ' Serv ' Clock ... '
   NovSetPreferredServer Serv
   NovServerTime = T
   Writeln
EndLoop