accept listen script only from a ip

[noid]

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

[spock]

i suppose you could do something like this

Code: Select all

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
}

[greenbear]

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

Code: Select all

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