/*
   $VER: ForwardSafedMail.zprx 1.0 (10.11.95) Copyright (c) Nils Görs.

   Ein ARexx-Skript für "Zodiac's Point" zum weiterleiten von Mails.


   Funktionsbeschreibung:

    Dieses Skript leitet archivierte Nachrichten in ein Brett weiter.
    Die Originalnachricht kann dabei direkt gelöscht werden.


   Installation:

    Kopieren sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
    fügen  sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
    "F1:SYS:Rexxc/RX ZPOINT:Rexx/ForwardSafedMail.zprx %s" hinzu.

    Alternativ hierzu können Sie auch folgende  Zeilen  in  die  Datei
    usermenus.zp einfügen:

    *4binden im Brett
    SYS:Rexxc/RX Zodiac:Rexx/ForwardSafedMail.zprx %s


   Autor dieses Skripts:

       Nils Görs              Tel. : +49 (0)202 784258
       Kaiserstr. 97a         EMail: N.Goers@Art-Line.de
       42329 Wuppertal          oder über das ZP-Support-Brett.

   Verwenden Sie bitte nach Möglichkeit elektronische Post!

*/

/* Wie heißt das Brett, in das die Nachrichten weitergeleitet werden
   sollen ? */
ZielBrett = "Nachrichtenarchiv"

/* Sollen die archivierten Nachrichten gelöscht werden ? */
Loeschen  = "Nein"
/* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 *      Bitte geben Sie hier ihre Präferenzen ein !                *
 *******************************************************************/
 
/*******************************************************************
 *      Bitte unterhalb dieser Zeile nichts mehr verändern!        *
 *******************************************************************/
OPTIONS RESULTS
/* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
PARSE ARG zpPort
IF zpPort == "" THEN
   zpPort = "ZPoint"
ADDRESS VALUE zpPort

WHICHLEVEL
IF (result ~= 'BOARDMENU') THEN DO
 requestnotify "Bitte begeben Sie sich in das Brettmenü"
 EXIT
END

Loeschen = UPPER(Loeschen)


JUMPTOBOARD 3

more = 1
 DO WHILE more
  BOARDINFO PATH
  if exists(result"/messages.zp") THEN CALL _checkBoard
  DOWN
  more = (RC)
 END

GUILOCK OFF
EXIT

_CheckBoard:
  ENTERBOARD			/* begebe Dich in das Brett, ziehe nicht über LOS */
  GUILOCK ON
mail = 1
  DO WHILE mail
    MESSAGEINFO SAFE
     IF result == 1 THEN DO
      FORWARDMESSAGE ZielBrett 'INTERNAL'
      IF loeschen == "JA" THEN DELETE FORCE ONE
     END
    DOWN
    mail = (RC)
  END
  BOARDMENU
RETURN
/*EOF*/