/* »»»SERVER«««

   PInfo-Request - Zodiac's Point Server
   Anpassung an Zodiac's Point geschrieben von Nils Görs

$VER: PInfo-Request Zodiac's Point Server 1.1 (4.9.96) Teil des PInfo-Request-Paketes von Andreas Boerner

*/
NL='0a'x
OPTIONS RESULTS
PARSE ARG action " PORT " zpPort " TPREF " tpref .
CALL AddLib('rexxtricks.library',0,-30,0)
IF ~Show("P",zpPort) THEN;DO
CALL SetENV("PIR-Fehler","Zodiac's Point Server:" zpPort "Port existiert nicht!")
EXIT 0
END
ADDRESS VALUE zpPort
WHICHLEVEL
IF result ~="BOARD" THEN;DO
requestnotify "Bitte rufen Sie dieses Programm",
NL"nur in einem Brett auf..."
EXIT 5
END
tpref=Strip(tpref,,'"')
IF action="GETSCREEN" THEN;DO
dummy.0=1
dummy.1=zpPort
ok=WriteFile(tpref".screen",dummy)
EXIT 0
END
IF action="READ" THEN;DO
SAVEMESSAGEASIS tpref".extract"
ok=Open(read,tpref".extract")
ok=Open(writ,tpref".header","w")
DO UNTIL zeile=""
zeile=ReadLn(read)
zeile=COMPRESS(zeile,'0d'x)
zeile=TRANSLATE(zeile,'20'x,'09'x)
CALL WriteLn(writ,zeile)
END
ok=Close(writ)
SAVEMESSAGEBODY tpref".body"
ADDRESS rexx "PInfo-Request.gft" tpref
EXIT 0
END
IF action="REQUEST" THEN;DO
ADDRESSINFO SERVER
Server=result
WRITEMESSAGE "FILE="tpref".request RECEIVER=MAPS@"server "SUBJECT=REQUEST"
IF result ~="" THEN requestnotify 'Bestellung verschickt.'
END