egghelp/eggheads community

Connection established

2003-09-14T12:32:02-04:00

i know if {[catch [....] error] == 1} just do not understand the manual about that .. could you xplain it maybe little closer .. what it exactly does and what i need to think about when i script this cause ive tryed that and it sometimes did say it connected even tho there was no open port so .. euhm it did connect to the ip but .. well you get the point i think.

Statistics: Posted by Ofloo — Sun Sep 14, 2003 12:32 pm

Connection established

2003-09-13T11:17:17-04:00

Use the "catch" command to catch errors and handle them. It's in the tcl manual.

Statistics: Posted by stdragon — Sat Sep 13, 2003 11:17 am

Connection established

2003-09-12T20:31:09-04:00

i know that it connects but when the error comes i got one problem .. witch is that it won't finish the script

Statistics: Posted by Ofloo — Fri Sep 12, 2003 8:31 pm

Connection established

2003-09-12T09:43:18-04:00

Since you are not using async sockets, you can tell if the socket connects because if it doesn't, you'll get a tcl error.

Statistics: Posted by stdragon — Fri Sep 12, 2003 9:43 am

Connection established

2003-09-12T03:14:22-04:00

Code:
bind dcc - check pcheck:dccproc check:dcc {hand idx arg} {  set hst [lindex $arg 0]  set prt [lindex $arg 1]  set sock [socket $hst $prt]  if {![eof $sock] == 1} {    putlog "Connection established"    close $sock  } else {    putlog "Connection failed."  }}
ok so far so good but now if the socket can't connect it shows an error .. ?

also how can i make it connect to an udp port ?

TCL does not natively support udp connections. From my understanding, TCL8.4.x was supposed to include support but they decided against it. You will need to google for a TCL udp extension, or create your own.

Statistics: Posted by strikelight — Fri Sep 12, 2003 3:14 am

Connection established

2003-09-10T21:47:04-04:00

Code:

bind dcc - check pcheck:dccproc check:dcc {hand idx arg} {  set hst [lindex $arg 0]  set prt [lindex $arg 1]  set sock [socket $hst $prt]  if {![eof $sock] == 1} {    putlog "Connection established"    close $sock  } else {    putlog "Connection failed."  }}

ok so far so good but now if the socket can't connect it shows an error .. ?

also how can i make it connect to an udp port ?

Statistics: Posted by Ofloo — Wed Sep 10, 2003 9:47 pm

Connection established

2003-09-10T18:54:46-04:00

how do i check this

socket host port,

if the connection is established or not

Code:

proc check:dcc {hand idx arg} {  set hst [lindex $arg 0]  set prt [lindex $arg 1]  set sock [socket $hst $prt]  if {[fileevent readable $sock] == 1} {    putlog "Connection established"  } else {    putlog "Connection failed."  }}

i know i am missing some stuff on fileevent but how or what do i do after i found out if the connection is readable .?

i just need to know if a connection can be made to see if a certain port is open ... before i run a sript to perfrom commands on that port ...

Statistics: Posted by Ofloo — Wed Sep 10, 2003 6:54 pm