(fwd) Re: tcl socket

Andrey Gerzhov (kittle@freeland.alex-ua.com)
Wed, 26 Nov 1997 03:18:18 +0200 (EET)

-- forwarded message --
Path: freeland.alex-ua.com!barmaglot.alexradio.kiev.ua!f188.n463.z2!f116.n463.z2!f58.n463!f238.n5020!f443.n5020!ddt.demos.su!f400.n5020!f510.n5020!xtalk.msk.su!xtalk.msk.su!not-for-mail
Newsgroups: fido.ru.unix
Distribution: fido
X-Comment-To: Seva Semenov
From: Boris Tobotras <Boris.Tobotras@f510.n5020.z2.fidonet.org>
Date: Tue, 25 Nov 97 07:59:38 +0200
Subject: Re: tcl socket
Message-ID: <3154080731@f510.n5020.z2.fidonet.ftn>
References: <65b607$e3j@anka.da.mtelecom.ru>
Organization: Linux inside
X-FTN-AREA: RU.UNIX
X-FTN-MSGID: 2:5020/510@fidonet bbff73db
X-FTN-REPLY: anka.da.mtelecom.ru 079a7fb3
X-FTN-Tearline: Gnus v5.5/XEmacs 20.3 - "London"
X-FTN-Origin: Linux inside (2:5020/510@fidonet)
X-FTN-SEEN-BY: 50/381 520 461/121 463/16 18 27 58 67 72 116 126 130 138 156 159
X-FTN-SEEN-BY: 463/173 188 246 432 600 690 691 707 2033 6666 464/100 466/10 467/67
X-FTN-SEEN-BY: 469/38 999 478/20 490/63 4613/204 4614/1 6 4615/21 777 4623/17
X-FTN-SEEN-BY: 4625/1 4635/4 8 40 5000/7 5001/15 211 5002/16 5004/16 5006/1 5007/1
X-FTN-SEEN-BY: 5010/21 5011/13 201 5015/28 5020/35 47 52 62 68 118 194 200 204 225
X-FTN-SEEN-BY: 5020/238 240 242 255 300 302 400 423 443 463 477 487 509 510 604
X-FTN-SEEN-BY: 5020/1057 1169 1200 5022/5 5023/8 11 5024/11 5028/51 5029/5 5030/87
X-FTN-SEEN-BY: 5030/115 5031/3 5032/3 5033/2 3 5034/1 5036/1 5048/1 4 5049/1 6 256
X-FTN-SEEN-BY: 5050/5050 5051/15 5053/16 5054/9 10 5057/1 5058/4 5059/2 5060/88
X-FTN-SEEN-BY: 5061/7 15 5064/5 5065/1 10 5066/2 5069/1 2 5075/10 5077/3 5080/1003
X-FTN-SEEN-BY: 5083/21 5084/10 5085/250 5090/2 5100/21
X-FTN-PATH: 5020/510 400 443 238 463/58 116
X-FTN-PATH: 463/188
Lines: 37
Xref: freeland.alex-ua.com fido.ru.unix:3629

>>>>> "Seva" == Seva Semenov writes:

Seva> $ tclsh8.0
Seva> % socket -server qwe 2222
Seva> proc qwe {args} {puts $args}

Seva> Почему когда я конекчусь к 2222 порту ничего не печатается на
Seva> консоль?

#! /usr/local/bin/tclsh

socket -server doAccept 8888

set byebye 0

proc doAccept { channel host port } {
global byebye

puts "Connection from ${host}:${port}\n"

while { ![eof $channel] } {
gets $channel line
puts $line
}
close $channel
set byebye 1
}

while { $byebye == 0 } {
vwait var
}

А у тебя просто tclsh блокируется на чтении клавиатуры.

-- 
	Best regards, -- Boris.
-- end of forwarded message --



-- 








                                                      Kittle