Connection established

Ofloo · Post by **Ofloo** » Wed Sep 10, 2003 6:54 pm

how do i check this

socket host port,

if the connection is established or not

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 ...

Ofloo · Post by **Ofloo** » Wed Sep 10, 2003 9:47 pm

Code: Select all

bind dcc - check pcheck:dcc

proc 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 ?

strikelight · Post by **strikelight** » Fri Sep 12, 2003 3:14 am

Ofloo wrote:
Code: Select all
bind dcc - check pcheck:dcc

proc 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.

stdragon · Post by **stdragon** » Fri Sep 12, 2003 9:43 am

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.

Ofloo · Post by **Ofloo** » Fri Sep 12, 2003 8:31 pm

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

stdragon · Post by **stdragon** » Sat Sep 13, 2003 11:17 am

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

Ofloo · Post by **Ofloo** » Sun Sep 14, 2003 12:32 pm

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.