/[tcldrop]/tcldrop/modules/dcc.tcl
ViewVC logotype

Diff of /tcldrop/modules/dcc.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by fireegl, Tue Nov 18 03:43:27 2003 UTC revision 1.21 by fireegl, Wed Nov 19 01:45:44 2003 UTC
# Line 237  proc ::tcldrop::dcc::Connect {options so Line 237  proc ::tcldrop::dcc::Connect {options so
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} {
# Line 545  proc ::tcldrop::dcc::start {event} { Line 545  proc ::tcldrop::dcc::start {event} {
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          }          }

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26