egghelp/eggheads community

accept listen script only from a ip

2004-10-31T14:00:19-04:00

Here's a proc to find the host matching a idx, it should help you on the way.

Code:

proc findidxhost {idx} {  foreach c [dcclist script] {    if {[lindex $c 0] == $idx} {      return "[lindex $c 2]"    }              }     return 0}

Statistics: Posted by greenbear — Sun Oct 31, 2004 2:00 pm

accept listen script only from a ip

2004-10-31T13:58:02-04:00

i suppose you could do something like this

Code:

listen 12345 script conngrab proc conngrab {newidx} {   utimer [expr ${::ident-timeout} + 5] [list control $newidx connmsg]} proc connmsg {idx msg} {   if {[lindex [split [lindex [lindex [dcclist script] 0] 2] @] 1] == "ip"} {    putlog "idx: $idx, msg: $msg"  }  killdcc $idx}

Statistics: Posted by spock — Sun Oct 31, 2004 1:58 pm

accept listen script only from a ip

2004-10-31T11:58:57-04:00

Hello,

im searching of a way to accept connections for a telnet port only from a given ip adress. How is this possible? My tcl code bellow, now i want that only from a specified ip that connection could be established or drop it imediate if is not from that ip.

listen 12345 script conngrab

proc conngrab {newidx} {
control $newidx connmsg
}

proc connmsg {idx msg} {
putlog "idx: $idx, msg: $msg"
return 0
}

thanx, noid

Statistics: Posted by Guest — Sun Oct 31, 2004 11:58 am