home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
zow314.exe
/
INSTALL.FIL
/
SCRIPT
/
ZOCXFER.ZRX
< prev
Wrap
Text File
|
1996-08-26
|
2KB
|
55 lines
/***********************************************************************
PLEASE SEE ZOCXFER.DOC FOR A DESCRIPTION OF HOW TO USE THIS FILE
***********************************************************************/
/* get the call parameters: PRE/POST UPLOAD/DOWNLOAD <filename> */
PARSE ARG WITH "'"prepost"' '"updownload"' '"file"'"
/* don't delete the following line !!! */
newfile= file
/* get filepath, filename and extension from file */
filepath= FILESPEC("Path", file);
filename= FILESPEC("Name", file);
PARSE VALUE filename WITH filestem"."fileext
SAY "ZOCXFER.CMD: "prepost"|"updownload"|"filepath"-"filestem"-"fileext
IF prepost="PRE" THEN DO
/******************************************************************/
/* Before file transfers */
/******************************************************************/
IF updownload="UPLOAD" THEN DO
/***************************************************************/
/* Before uploads */
/***************************************************************/
END
ELSE DO
/***************************************************************/
/* Before downloads */
/***************************************************************/
END
END
ELSE DO
/*******************************************************************/
/* After file transfers */
/*******************************************************************/
IF updownload="UPLOAD" THEN DO
/***************************************************************/
/* After uploads */
/***************************************************************/
END
ELSE DO
/***************************************************************/
/* After downloads */
/***************************************************************/
END
END
RETURN newfile