312 |
putidx $idx {Try another one please: } |
putidx $idx {Try another one please: } |
313 |
} else { |
} else { |
314 |
putidx $idx {Okay, now choose and enter a password: } |
putidx $idx {Okay, now choose and enter a password: } |
315 |
adduser $line *!$chatinfo(ident)@$chatinfo(ip) |
adduser $line *!$chatinfo(remote) |
316 |
::tcldrop::idx::ChInfo $idx [list handle $line type TELNET_PW other {newp waited 3s} timestamp [unixtime] traffictype partyline] |
::tcldrop::idx::ChInfo $idx [list handle $line type TELNET_PW other {newp waited 3s} timestamp [unixtime] traffictype partyline] |
317 |
} |
} |
318 |
} |
} |