237 |
# FixMe: The type may not sposta be called TELNET_ID yet, need to find out: |
# FixMe: The type may not sposta be called TELNET_ID yet, need to find out: |
238 |
set hostname [lindex [fconfigure $sock -peername] 1] |
set hostname [lindex [fconfigure $sock -peername] 1] |
239 |
::tcldrop::idx::ChInfo $idx [list idx $idx sock $sock handle * ident {-telnet} hostname $hostname ip $ip remote -telnet@$hostname port $port type TELNET_ID other {t-in waited 1s} timestamp [unixtime]] |
::tcldrop::idx::ChInfo $idx [list idx $idx sock $sock handle * ident {-telnet} hostname $hostname ip $ip remote -telnet@$hostname port $port type TELNET_ID other {t-in waited 1s} timestamp [unixtime]] |
240 |
::ident::ident -sock $sock -command [list ::tcldrop::dcc::Ident $idx] |
::ident::ident -sock $sock -timeout [expr { ${::ident-timeout} * 1000 }] -command [list ::tcldrop::dcc::Ident $idx] |
241 |
} |
} |
242 |
|
|
243 |
proc ::tcldrop::dcc::Write {idx} { |
proc ::tcldrop::dcc::Write {idx} { |
545 |
# FixMe: The type may not sposta be TELNET_ID yet, need to find out: |
# FixMe: The type may not sposta be TELNET_ID yet, need to find out: |
546 |
::tcldrop::idx::Register $idx [list idx $idx sock stdout handle * ident User hostname Console remote User@Console port 0 type TELNET_ID other "t-in waited 1s" timestamp [unixtime]] |
::tcldrop::idx::Register $idx [list idx $idx sock stdout handle * ident User hostname Console remote User@Console port 0 type TELNET_ID other "t-in waited 1s" timestamp [unixtime]] |
547 |
# FixMe: Create a bind for when people successfully login and set the console settings elsewhere: |
# FixMe: Create a bind for when people successfully login and set the console settings elsewhere: |
|
#console $idx |
|
548 |
# Turn off logging to Stdout, because it's a dcc session now, not a screen: |
# Turn off logging to Stdout, because it's a dcc session now, not a screen: |
549 |
unbind log - * ::tcldrop::Stdout |
unbind log - * ::tcldrop::Stdout |
550 |
} |
} |