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