/*
    $VER: AddToAlias.zprx 1.01 (30-Oct-94) Copyright (c) Nils Görs

    Dies ist ein  ARexx-Script für  Zodiac's Point mit  dem die Netz-
    adresse der aktuellen Nachricht automatisch in die Aliasliste ge-
    speichert wird.

    Sie dürfen dieses Skript beliebig kopieren,  solange  es  zusammen
    mit  Zodiac's  Point  eingesetzt wird, aber verändern Sie es bitte
    nicht ohne Erlaubnis des Autors.

    Sie erreichen den Autor wie folgt:

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

   Verwenden Sie bitte nach Möglichkeit elektronische Post!


    Hinweise zur 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/AddToAlias.zprx %s" hinzu.


V1.00  > V1.01:  Es wird nun automatisch erkannt, ob die Adresse schon
in Ihrer Liste vorhanden ist.                                      */


/* Wo befindet sich ihre Aliasliste ??? */

Filename = "Zodiac:Bretter/alias.zp"
/* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 *      Bitte geben Sie hier ihre Präferenzen ein !                *
 *******************************************************************/
 
/*******************************************************************
 *      Bitte unterhalb dieser Zeile nichts mehr verändern!        *
 *******************************************************************/

NL = '0a'x                      /* Zeichen für Zeilenumbruch */

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 "nicht im Brett!"
  EXIT
 END
 ELSE

MESSAGEINFO AUTHOR
Username=Result

 IF ~OPEN(Alias.dat,Filename,Read) THEN
   DO
    requestnotify "Konnte" Filename "nicht finden!"
   EXIT
   END
  ELSE

  Bool=VERIFY(Username," ",MATCH)			/* Aus wievielen Zeichen besteht die Netzadresse ?? */
IF Bool ~== 0 THEN
 DO
  BoolEnd=VERIFY(Username,")",MATCH)			/* Wo endet der Realname ?? */
  Bool=Bool-1

  Netzadresse=LEFT(Username,bool)			/* Netzadresse rauskopieren */
  Boolend=Boolend-Bool-1
  Realname=RIGHT(Username,boolend)                      /* Realnamen rauskopieren */

Realname=COMPRESS(Realname,"()")			/* ( und ) werden aus String entfernt */


  CALL AddToAlias

 EXIT
 END
ELSE
 requeststring 'PROMPT "Bitte den _UserNamen eingeben"'
 Realname=result
 IF (Realname ~== '') THEN
  DO
  Netzadresse=Username
  CALL AddToAlias
  END

 ELSE
 RequestNotify 'Kein Name eingegeben!'
 EXIT

AddToAlias:
 DO
  Realname=INSERT(NL"N:",Realname)			/* [CR] und N: vor den Realnamen */
  Netzadresse=INSERT("A:",Netzadresse)			/* A: vor die Netzadresse */

   DO WHILE ~EOF(Alias.dat)
    InString=READLN(Alias.dat)
    Ergebniss=INDEX(InString,Netzadresse)

     IF Ergebniss == 1 THEN
      DO
       requestnotify Username||NL"befindet sich schon in Ihrer Aliasliste!"
       EXIT
      END
   END

  Netzadresse=INSERT(Netzadresse,NL"-")			/* [CR] und - an das Ende */
  CALL SEEK(Alias.dat,0,"E")				/* zum Ende des Files springen */
  CALL WRITELN(Alias.dat,Realname)			/* Realnamen anfügen */
  CALL SEEK(Alias.dat,0,"E")				/* zum Ende des Files springen */
  CALL WRITELN(Alias.dat,Netzadresse)			/* Netzadresse anfügen */
  CALL SEEK(Alias.dat,0,"E")				/* zum Ende des Files springen */
  requestnotify Username||NL"wurde in Ihre Aliasliste aufnommen!"

 END