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   
Text File  |  1996-08-26  |  2KB  |  55 lines
  1. /*********************************************************************** 
  2.  
  3.    EINE BESCHREIBUNG ZUR VERWENDUNG DIESER DATEI STEHT IN ZOCXFER.DOC
  4.  
  5. ***********************************************************************/
  6.  
  7. /* Aufrufparameter tracen: PRE/POST UPLOAD/DOWNLOAD <dateiname> */
  8. PARSE ARG WITH "'"prepost"' '"upDOwnload"' '"file"'"
  9.  
  10. /* Die folgende Zeile nicht lîschen !!! */
  11. newfile= file
  12.  
  13. /* Verzeichnis, Dateiname und Extension der Datei abfragen */
  14. filepath= FILESPEC("Path", file);
  15. filename= FILESPEC("Name", file);
  16. PARSE VALUE filename WITH filestem"."fileext
  17.  
  18. SAY "ZOCXFER.CMD: "prepost"|"upDOwnload"|"filepath"-"filestem"-"fileext 
  19.  
  20. IF prepost="PRE" THEN DO 
  21.     /******************************************************************/
  22.     /* Vor einem Filetransfer                                         */
  23.     /******************************************************************/
  24.  
  25.     IF updownload="UPLOAD" THEN DO 
  26.         /**************************************************************/
  27.         /* Vor einem Upload                                           */
  28.         /**************************************************************/
  29.     END
  30.     ELSE DO
  31.         /**************************************************************/
  32.         /* Vor einem Download                                         */
  33.         /**************************************************************/
  34.     END
  35. END
  36. ELSE DO 
  37.     /******************************************************************/
  38.     /* Nach einem Filetransfer                                        */
  39.     /******************************************************************/
  40.  
  41.     IF updownload="UPLOAD" THEN DO 
  42.         /***************************************************************/
  43.         /* Nach einem Upload                                           */
  44.         /***************************************************************/
  45.     END
  46.     ELSE DO
  47.         /***************************************************************/
  48.         /* Nach einem Download                                         */
  49.         /***************************************************************/
  50.     END
  51. END
  52.  
  53. RETURN newfile
  54.  
  55.