/*
   $VER: AmiReq-Start-Script 1.0 (3.12.95) Copyright (c) von Nils Görs


   Funktionsbeschreibung:

    Dieses Skript dient zum Aufruf von AmiReq 2.10 Z geschrieben von
    Volker Stolz.


   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/AmiReq.zprx %s" hinzu.

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

    *AmiReq
    SYS:Rexxc/RX Zodiac:Rexx/AmiReq.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!
*/

/*----------------------------------------------------------------*/
/* Wo befindet sich Amireq ?                                      */
AmiReq   = "Zodiac:Tools/AmiReq/AmiReq"

/*----------------------------------------------------------------*/
/* Hier den Pfad und Namen des Savefiles angeben
   (Grundeinstellung = s:amireq.file)                             */
SaveFile = "Zodiac:Tools/AmiReq/amireq.file"

/*----------------------------------------------------------------*/
/* Hier wird die LIMITgröße der UUcodes festgelegt.               */
Limit    = "256k"

/*----------------------------------------------------------------*/
/* Wie lautet das Verzeichnis? (/Aminet wird angehangen)          */
ReqPath  = "/DARK-FTP"

/*----------------------------------------------------------------*/
/* Wenn Sie die Dateien lieber beim FileServer Ihrer Mailbox be-
   stellen möchten und nicht beim FTP-Mailer in Paderborn.        */
Maps       = "Ja"

/*----------------------------------------------------------------*/
/* Soll das Neuflag der Mail gelöscht werden ?                    */
NewFlag    = "Nein"

/*----------------------------------------------------------------*/
/* Sollen die .lha Files nach dem verschicken der Bestellung aus
   der Savefile-Liste gelöscht werden?                            */
KillReqLha = "Nein"

/*----------------------------------------------------------------*/
/* An welche Adresse sollen die bestellten Dateien, vom FTP Server,
   geschickt werden?                                              */
ReplyTo    = ""

/* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 ***    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 ~= "BOARD" THEN DO
   REQUESTNOTIFY "Bitte begeben Sie sich in ein Brett!"
   EXIT
 END

      Maps = UPPER(Maps)
   NewFlag = UPPER(NewFlag)
KillReqLha = UPPER(KillReqLha)

param = " "
IF Maps       = "JA" THEN param = "M "
IF NewFlag    = "JA" THEN param = param||"N "
IF KillReqLha = "JA" THEN param = param||"K "
IF ReplyTo    ~= ""  THEN param = param||"R="ReplyTo||" "

ADDRESSINFO ADR
Username = result
nummer= INDEX(Username,"@")
Username = LEFT(Username,nummer-1)

ADDRESS COMMAND "SETENV NAME=zp_Username STRING="Username

IF param ~= " " THEN
 ADDRESS COMMAND AmiReq zpPort "S="SaveFile "L="Limit "P="ReqPath param
 ELSE
  ADDRESS COMMAND AmiReq zpPort "S="SaveFile "L="Limit "P="ReqPath
EXIT
/*EOS*/