home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / FBL / TCPBATCH / DEMO / SCRIPTS / UKAZKA09.TCP < prev    next >
Encoding:
Text File  |  1997-07-13  |  857 b   |  29 lines
  1. // ukßzka Φ.9 - script zaÜle 100 °ßdek zaΦφnajφcφch "220-" a potΘ jednu "220 "
  2. // ------------ a tak simuluje dlouhou ·vodnφ odpov∞∩ ftp-serveru
  3.  
  4. // Pou₧ity p°φkazy: Send, IfDef, Label, GoTo, IncrementCounter, TestCounter
  5. // Respektuje d°φve navßzanΘ spojenφ
  6.  
  7. // Script nßsleduje typicky po parametru "-a 21 -n c_PocetRadek 1" a p°ipojenφ
  8. // libovoln²m ftp-klientem. Zalo₧φ ΦφtaΦ c_PocetRadek a nastavφ jej na 1
  9.  
  10. Label SmyΦka
  11. // Zahßjenφ smyΦky odesφlßnφ
  12.  
  13. Send "220-Line #" c_PocetRadek nl
  14. // PoÜle dalÜφ °ßdku "220-"
  15.  
  16. IncrementCounter c_PocetRadek
  17. // Zv∞tÜφ ΦφtaΦ o 1
  18.  
  19. TestCounter c_PocetRadek <= 100
  20. // Porovnß ΦφtaΦ a na zßklad∞ porovnßnφ nastavφ TRUE
  21.  
  22. IfDef TRUE GoTo SmyΦka
  23. // V∞tvenφ typu while, tzn. opakuj smyΦku dokud platφ podmφnka
  24.  
  25. Send "220 FTP server ready." nl
  26. // Poslednφ °ßdka ·vodu.
  27.  
  28. // spojenφ z∙stßvß otev°enΘ
  29.