/*       $VER: 9.0 bbsExtKill.rexx 10 Mar 1995 (10.3.95)

****************************************************************************
FOR XENOLINK PRO BBS. $VERS:1.0 (18.03.95) by Derek Scott,2:259/75
****************************************************************************

Deletes All Files/ & Email/ for user in doors:bbbbsCD/

*/
/* read the configuration parameters from XCONFIG:BBBBScd.CFG */
x=OPEN(f,'xconfig:BBBBScd.config','R')
IF x~=0 THEN 
  DO
    bbspath=READLN(f)
    CALL CLOSE(f)
  END
ELSE
    bbspath='doors:bbbbsCD/' 
/*************************************************************************/


LF='0A'x
PARSE ARG name
PRINT 'Deleting Archive Files...'
ADDRESS COMMAND 'c:delete 'bbspath'files/'name'#?'
PRINT 'Deleting Email Logs...'
ADDRESS COMMAND 'c:delete 'bbspath'email/'name'#?'

EXIT
/* bbsExtKill.rexx */