/* $VER: ArchivPMs.zp 1.0 (23.04.94), ©1994 by Jean-Marie de Crozals

   Leitet PMs in Brett mit konfigurierbarem Namen weiter... */


user = 'jeannot@#?'
brett = 'Persönliches Nachrichtenarchiv'

parse arg zpPort /* Holt sich den Portnamen aus der Befehlszeile */

address value zpPort /* Kommandos von ZP benutzen können */
options results /* Resultate werden in "result" übergeben */

WHICHLEVEL
if (result ~= 'BOARD') then
  do
  if (result ~= 'BOARDMENU') then
    BOARDMENU
  JUMPTOBOARD 3 /* PM-Brett */
  ENTERBOARD
  end

JUMPTOMESSAGE 1
downrc = rc
jumprc = 1

  do while (jumprc & downrc)
  JUMPTOMESSAGE NAME '"'user'"'
  jumprc = rc
  
  if (jumprc) then
    do
    MESSAGEINFO SUBJECT
    inforesult = left(result,2)

    if inforesult = 'Re' then
      do
      FORWARDMESSAGE '"'brett'" INTERNAL'
      if (~rc) then
        REQUESTNOTIFY 'Konnte Nachricht nicht weiterleiten!'
      else
        DELETE ONE
      end
    end
  DOWN
  downrc = rc
  end