home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / emis14p.zip / emismt.cmd < prev    next >
OS/2 REXX Batch file  |  1995-01-04  |  2KB  |  53 lines
  1. /* 
  2. Rexx-Skript für den Emis/PM MausTausch für verschiedene
  3. Terminal-Programme. Das Verzeichnis der Mitteilungsbank
  4. muß übergeben werden. Dort wird auch auch die Datei 
  5. 'emismt.cfg' gelesen.
  6. */
  7. arg msgBaseDir
  8.  
  9. /* Prüfe, ob das Verzeichnis existiert */
  10. curDir = directory()
  11. if msgBaseDir \= "" Then do
  12.     if substr(msgBaseDir, length(msgBaseDir),1) = '\' Then
  13.         msgBaseDir = substr(msgBaseDir, 1, length(msgBaseDir)-1)
  14.     msgBaseDir = directory(msgBaseDir)
  15. End
  16. If msgBaseDir = "" Then
  17.     Error("Verzeichnis der Mitteilungsbank nicht gefunden", 10002);
  18. say "Mitteilungsbank im Verzeichnis:" msgBaseDir
  19.  
  20. /* Packen des INFILEs und Löschen des OUTFILE.ZIP */
  21. 'del infile.zip'
  22. 'zip infile infile.txt'
  23. if rc \= 0 Then Error("Infile kann nicht gepackt werden", 10003)
  24. 'del outfile.zip'
  25.  
  26. /* Lesen des MausTausch-Programms */
  27. if stream('emismt.cfg', 'c', 'open read') \= 'READY:' then
  28.     Error("Fehler beim Lesen der Datei 'emismt.cfg'", 10001)
  29. progid=linein("emismt.cfg")
  30. if stream('emismt.cfg', 'c', 'close') \= 'READY:' then
  31.     Error("Fehler beim Lesen der Datei 'emismt.cfg'", 10001)
  32.  
  33. /* Starte das spezielle Skript */
  34. Call directory(curDir)
  35. 'call' progid msgBaseDir
  36. if rc  \= 0 Then 
  37.     Error("Fehler beim MausTausch-Skript", rc)
  38.  
  39. /* Auspacken des OUTFILEs */
  40. Call directory(msgBaseDir)
  41. 'del outfile.txt'
  42. 'unzip outfile'
  43. if rc \= 0 Then 
  44.     Error("Outfile kann nicht ausgepackt werden", 10004)
  45. Say ("Emis-MausTausch erfolgreich")
  46. exit 0
  47.  
  48. /* Fehlerbehandlung */
  49. Error:
  50. Say "FEHLER ("arg(2)"): " arg(1)
  51. /* pull a */
  52. Exit arg(2)
  53.