home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
c't freeware shareware 2001 January
/
CT_SW0101.ISO
/
mac
/
software
/
kommunik
/
misc
/
zoc400wg.exe
/
setup.fil
/
script
/
ZOCXFER.ZRX
< prev
Wrap
Text File
|
1996-08-26
|
2KB
|
55 lines
/***********************************************************************
EINE BESCHREIBUNG ZUR VERWENDUNG DIESER DATEI STEHT IN ZOCXFER.DOC
***********************************************************************/
/* Aufrufparameter tracen: PRE/POST UPLOAD/DOWNLOAD <dateiname> */
PARSE ARG WITH "'"prepost"' '"upDOwnload"' '"file"'"
/* Die folgende Zeile nicht lîschen !!! */
newfile= file
/* Verzeichnis, Dateiname und Extension der Datei abfragen */
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
/******************************************************************/
/* Vor einem Filetransfer */
/******************************************************************/
IF updownload="UPLOAD" THEN DO
/**************************************************************/
/* Vor einem Upload */
/**************************************************************/
END
ELSE DO
/**************************************************************/
/* Vor einem Download */
/**************************************************************/
END
END
ELSE DO
/******************************************************************/
/* Nach einem Filetransfer */
/******************************************************************/
IF updownload="UPLOAD" THEN DO
/***************************************************************/
/* Nach einem Upload */
/***************************************************************/
END
ELSE DO
/***************************************************************/
/* Nach einem Download */
/***************************************************************/
END
END
RETURN newfile