/*
**  ARexx script to say that Miami is online plus
**  display the connectstring and log the date/time in "Data:logs/Miami_phone.mylog"
**
**  01-12-99: The date format is now 'dd-mm-yy', the 'mm' is now a number,
**            cause arexx doesn't gives localised dates.
**
**  By T.Igracki@gmx.de
*/
OPTIONS RESULTS

SHELL COMMAND "SetEnv SAVE ONLINE 1 >NIL:"
datum = TRANSLATE(DATE('E'), "-", "/")

IF ~EXISTS("ENVARC:ONLINE_start") THEN
    SHELL COMMAND "SetEnv SAVE ONLINE_start "datum" "TIME()

   
SHELL 'MIAMI.1' GETCONNECT; connect = RESULT

IF ~OPEN('log', 'Data:Logs/Miami_phone.mylog', 'A') THEN 
   ok = OPEN('log', 'Data:Logs/Miami_phone.mylog', 'W')
ELSE
   ok = 1

IF ok THEN DO
   CALL WRITELN('log', "Online  "Date() Time())
   CALL WRITELN('log', "Connect " connect)
   CALL CLOSE('log')
END
ELSE
   Say "Failed to open logfile (Data:Logs/Miami_phone.mylog)!"


SHELL COMMAND 'c:RequestChoice "MiamiNowOnline.rexx" "Connect: 'connect'!" "OK"'