/* »»»SERVER«««

   PInfo-Request - Microdot-Server

$VER: PInfo-Request_Microdot-Server 1.2 (03.09.96) Teil des PInfo-Request-Paketes von Andreas Börner

*/
OPTIONS RESULTS
CALL AddLib('rexxtricks.library',0,-30,0)
PARSE ARG action " PORT " portname " TPREF " tpref
tpref=Strip(tpref,,'"')
IF ~Show("P",portname) THEN;DO
CALL SetENV("PIR-Fehler","Microdot-Server: Microdot ist nicht gestartet")
EXIT 0
END
INTERPRET 'ADDRESS' portname
IF action="GETSCREEN" THEN;DO
dummy.0=1
'GETMDPUBSCREENNAME'
dummy.1=RESULT
ok=WriteFile(tpref".screen",dummy)
EXIT 0
END
IF action="READ" THEN;DO
'EXTRACTCURRENTMAIL "'tpref".extract"'" HEADER'
ok=Open(read,tpref".extract")
ok=Open(writ,tpref".header","w")
DO UNTIL zeile=""
zeile=ReadLn(read)
CALL WriteLn(writ,zeile)
END
ok=Close(writ)
'EXTRACTCURRENTMAIL "'tpref".body"'"'
ADDRESS rexx "PInfo-Request.gft" tpref
EXIT 0
END
IF action="REQUEST" THEN
'sendmail TO=MAPS BODYFILE="'tpref'.request" SUBJECT="REQUEST"'