/*
  $VER: Dopus Reminder Editor Part 1.0 (30.07.98)
  Written by Stefan Uhlemann (BPM-SU@gmx.de).

  Function : ARexx      remind_edit.dopus5 {Qp}
*/

envfile='dopus5_remind.prefs'
version='REMINDFILEV1.0'
check1='DATE'
check2='MESG'

parse arg portname .

if portname='' then
   portname='DOPUS.1'
address value portname

options results
options failat 21
lf = "0A"X

call read_env()
call aendern()
exit

/* ------------------- FUNKTIONEN ----------------------------------- */

aendern :
  nowd=date()
  nowt=time()
  now=""nowd "at" nowt "Uhr"
getstring:
  dopus getstring '""'me'" note (max 80 char.) ""'lf'""'now'""" 80 """'text'" Save|Setup|Delete|Chancel'
  textnew=result
  if textnew=="RESULT" then textnew=""
  if dopusrc=0 then exit
  if dopusrc=3 then do
    call loeschen()
    exit
    end
  if dopusrc=2 then do
     text=textnew
     dopus request '"Not possible yet (with this version)! - Soon ;)" Back'
     call getstring()
     end
  OPEN(OUT,"env:"envfile,write)
  WRITELN(OUT,version)
  WRITELN(OUT,check1"="now)
  WRITELN(OUT,check2"="textnew)
  CLOSE(OUT)
  address command 'c:copy env:'envfile' envarc:'envfile' quiet >NIL:'
  return

loeschen:
  address command 'c:delete env:'envfile' quiet >NIL:'
  address command 'c:delete envarc:'envfile' quiet >NIL:'
  return

read_env:
if exists("env:"envfile) then do
  call zeilen_lesen()
  me="Change"
  end
else do
  text=""
  me="Write"
  end
endif
return

zeilen_lesen:
  open(IN, "env:"envfile,read)
  zeile=readln(IN)

      IF zeile = version then do
           end
      else do
        say '"ENV-Error! The file env:'envfile' is corrupt or incompatible!"'
        say 'The file was deleted. Now start this program again ...'
        close(IN)
        call loeschen()
        exit
        end

  datum = READLN(IN)
  laenge=length(datum)
  datum=trim(substr(datum, 6, laenge))
  text = READLN(IN)
  laenge=length(text)
  text=trim(substr(text, 6, laenge))
  close(IN)
  return
  end