home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / ADM144.lha / ADM / ARexx / ALIAS_ZP.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-07-26  |  2.1 KB  |  85 lines
  1. /* $VER: ALIAS_ZP.rexx 0.3 (16.1.1994)
  2.  
  3.    Usage: rx ALIAS_ZP.rexx <Ausgabedatei>
  4.  
  5.    Beispielscript um eine Z-Netz-Adresse in Adressmaster zu finden
  6.    und an die Aliasliste von Zodiac's Point anzuhaengen.
  7.    Der E-Mailadresse muss immer ein 'Z:' vorangestellt sein.
  8.  
  9.    Z.B.: Z:Hallo@da.zer.sub.org
  10.  
  11.    Written by Hans Joachim Schiefer. */
  12.  
  13.  
  14.  
  15. OPTIONS RESULTS                            /* Rückgabewerte zulassen */
  16.  
  17.                                            /* Wurde ein Argument angegeben? */
  18.  
  19. IF arg() ~=1 THEN outfile="*"
  20.              else PARSE ARG outfile;
  21.  
  22. IF ~Open(datei,outfile,"A") THEN DO        /* Ausgabedatei öffnen und */
  23.    SAY "Kann Ausgabedatei nicht öffnen!"   /* gefundene Adresse anhaengen */
  24.    EXIT
  25. END
  26.  
  27.  
  28. SAY 'Bitte Nachnamen eingeben'
  29.  
  30. PULL WORT
  31.  
  32. fst   = 1                          /* Anfangsposition = 1 (= erste Adresse) */
  33. found = 0
  34.  
  35. ADM.LASTNAME = WORT
  36.  
  37. DO FOREVER                         /* Endlosschleife */
  38.  
  39.    ADDRESS 'ADM.1'
  40.  
  41.    SEARCH fst ADM                  /* Eintrag suchen */
  42.  
  43.    found = RESULT
  44.  
  45.    IF found >-1 THEN DO        /* Rückgabewert = Nummer der gefunden Adresse */
  46.  
  47.       GETADDRESS ADM       /* Adresse holen in Stemvar ADM   */
  48.  
  49.  
  50.       e1 = upper(ADM.EMAIL1)
  51.  
  52.       e2 = upper(ADM.EMAIL2)
  53.  
  54.          if (pos('Z',e1)) THEN DO  /* Wurde 'Z' in ADM.EMAIL1 gefunden dann */
  55.  
  56.             ok = WriteLn(datei," ")
  57.             ok = WriteLn(datei,"N:" || ADM.FIRSTNAME || " " ||ADM.LASTNAME)
  58.             ok = WriteLn(datei,"A:" || right(ADM.EMAIL1,length(e1)-2))
  59.             ok = WriteLn(datei,"B:" || "Hallo " || ADM.FIRSTNAME)
  60.             ok = WriteLn(datei,"-")
  61.  
  62.          END /* DO */
  63.  
  64.          if (pos('Z',e2)) THEN DO /* Wurde 'Z' in ADM.EMAIL2 gefunden dann */
  65.  
  66.             ok = WriteLn(datei," ")
  67.             ok = WriteLn(datei,"N:" || ADM.FIRSTNAME || " " ||ADM.LASTNAME)
  68.             ok = WriteLn(datei,"A:" || right(ADM.EMAIL2,length(e2)-2))
  69.             ok = WriteLn(datei,"B:" || "Hallo " || ADM.FIRSTNAME)
  70.             ok = WriteLn(datei,"-")
  71.  
  72.          END /* DO */
  73.  
  74.       fst = found + 1
  75.  
  76.       END /* DO */
  77.  
  78.    ok = Close(datei)
  79.  
  80.       EXIT 0
  81.  
  82.    END /* IF */
  83.  
  84. END /* DO */
  85.