home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / FBL / TCPBATCH / DEMO / SCRIPTS / UKAZKA03.TCP < prev    next >
Text File  |  1997-07-13  |  675b  |  18 lines
  1. // ukßzka Φ.3 - script pou₧iteln² pro ob∞ strany spojenφ na zkouÜku, zda
  2. // ------------ je propustnΘ tcp/ip spojenφ
  3.  
  4. // Pou₧ity p°φkazy: Connect, Accept, Disconnect, IfDef, IfNotDef, Question
  5.  
  6. Question "Mßm pracovat jako klient spojenφ?"
  7. // pokud obsluha odpovφ Ano (Yes), definuje globßlnφ symbol CONSENT
  8.  
  9. IfDef CONSENT Connect ? 4444
  10. // pokud je CONSENT definovßn, pokusφ se o navßzßnφ spojenφ (obsluha musφ
  11. // za b∞hu scriptu zadat IP-adresu nebo DNS-jmΘno partnerskΘho poΦφtaΦe)
  12.  
  13. IfNotDef CONSENT Accept 4444
  14. // pokud CONSENT definovßn nenφ, Φekß na navßzßnφ spojenφ od jinΘho subjektu
  15.  
  16. Disconnect
  17. // ukonΦφ spojenφ (test ji₧ je v tuto chvφli proveden)
  18.