/**
 **  $VER: TrafficPause 1.0 (01-Jul-94) Hanns Holger Rutz
 **  E-Mail: HOLGI@istda.north.de
 **
 **  Bestellt alle Bretter oder bestellt sie ab
 **  (z. B., wenn man mal ein paar Wochen weg ist)
 **/

MAPSaddr = "MAPS@istda.north.de"    /* wo ist MAPS zu erreichen? */
TempFile = "T:TrafficPause.tmp"     /* temporäre Datei für MAPS Mail */

/*-------------------------------------------------------------------------*/

ReqHeader = "TrafficPause:"||"0A0A"x
ReqBody   = "Temporäre Datei"||"0A"x||'"'||TempFile||'"'||"0A"x||"konnte nicht angelegt werden!"

OPTIONS RESULTS
PARSE ARG ZPPort
IF ZPPort == "" THEN ZPPort = "ZPoint"
ADDRESS VALUE ZPPort

WHICHLEVEL
IF RESULT ~= "BOARDMENU" THEN BOARDMENU

REQUESTRESPONSE ReqHeader||"Alle Bretter abbestellen?"
IF RC THEN Betreff = "DEL"
ELSE DO
 REQUESTRESPONSE ReqHeader||"Alle Bretter bestellen?"
 IF ~RC THEN EXIT
 Betreff = "ADD"
END

IF ~OPEN( TempFH, TempFile, "W" ) THEN DO
 REQUESTNOTIFY ReqHeader||ReqBody
 EXIT
END
JUMPTOBOARD NUMBER 3
COUNT ALL
DO i = 4 TO RESULT
 DOWN
 BOARDINFO NAMES
 Brett = RESULT
 IF WRITELN( TempFH, Brett ) ~= LENGTH( Brett ) + 1 THEN DO
  REQUESTNOTIFY ReqHeader||ReqBody
  EXIT
 END
END
IF ~CLOSE( TempFH ) THEN DO
 REQUESTNOTIFY ReqHeader||ReqBody
 EXIT
END

JUMPTOBOARD NUMBER 1
ENTERBOARD
WRITEMESSAGE TempFile MAPSaddr Betreff
IF RESULT = "" THEN DO
 REQUESTNOTIFY ReqHeader||"Konnte Nachricht nicht"||"0A"x||"an MAPS verschicken!"
 EXIT
END
COUNT ALL
JUMPTOMESSAGE NUMBER RESULT
ADDRESS COMMAND "C:Delete <>NIL:" TempFile "QUIET"

/* EndOfFile */