home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / emis14p.zip / taumta.cmd < prev    next >
OS/2 REXX Batch file  |  1995-02-24  |  938b  |  36 lines
  1. /* 
  2. Rexx script für MausTausch mit TAUSCH.CMD von Werner Hunger @ HD
  3. für alte ATARI-Quarks
  4.  
  5. Autor: Carsten Härle
  6. Version: 1.0
  7. Datum: 24.2.95
  8.  
  9. Beim Aufruf ist das aktuelle Verzeichnis das Emis/PM-Verzeichnis.
  10. Als Parameter wird das Verzeichnis der Mitteilungsbank übergeben.
  11. Dort befindet sich ein INFILE.ZIP und wird ein OUTFILE.ZIP hinterlassen.
  12. */
  13. arg msgBaseDir
  14.  
  15. /* Variablen setzen */
  16. ErrBase = 10300
  17. curDir = directory()
  18. Call directory msgBaseDir 
  19.  
  20. /* Lade Parameter */
  21. if stream('emismt.cfg', 'c', 'open read') \= 'READY:' Then
  22.     Error("Die Datei 'emismt.cfg' konnte nicht geöffnet werden", ErrBase)
  23. Call linein "emismt.cfg"
  24. bbs = linein("emismt.cfg")
  25. phone = linein("emismt.cfg")
  26. name = linein("emismt.cfg")
  27. pass = linein("emismt.cfg")
  28.  
  29. '@Call' curDir || '\tauscha' '"'bbs'"' '"'phone'"' '"'name'"' '"'pass'"'
  30. return rc
  31.  
  32. /* Fehlerbehandlung */
  33. Error:
  34. Say "FEHLER ("arg(2)"): " arg(1)
  35. Exit arg(2)
  36.