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