Need linking tcl...

[pirahna]

Could anyone make a tcl that will allow me to use
.addleaf <nick> <ip>:<port>
and
.addhub <nick> <ip>:<port>

All the right flags should then be set automatic..

[MORA]

bind dcc n|- addhub dcc:addbot
bind dcc n|- addleaf dcc:addbot
bind dcc n|- addalthub dcc:addbot

proc dcc:addbot {h i a} {
global lastbind
if {[lindex $a 3] == ""} { putidx $i "Usage: .$lastbind handle ip port nick!ident@host" ; return 0 }
putcmdlog "#$h# $lastbind [split $a]"
switch -exact -- $lastbind {
"addhub" { set flags "+ghp" }
"addleaf" { set flags "+gs" }
"addalthub" { set flags "+gap" }
}
addbot [lindex $a 0] [lindex $a 1]:[lindex $a 2]/[lindex $a 2]
chattr [lindex $a 0] +fo
botattr [lindex $a 0] $flags
addhost [lindex $a 0] [lindex $a 3]
}

[caesar]

actualy is 'ip:port'..

[MORA]

actually IS NOT !

addbot [lindex $a 0] [lindex $a 1]:[lindex $a 2]/[lindex $a 2]
lindex 0 = botnick
1= ip
2=port

yes, you should use [join [lindex to fix char probs

[caesar]

Actualy I was talking about the "Usage: .$lastbind handle ip port nick!ident@host" msg and seems that I've forgot to mention that :]

[MORA]

Hmm?

me too.

it takes 4 arguments.
handle ip port irchost
then first it adds the user (argument 0) with the ip (argument 1) and sets the port for both user and bots to port (argument 2)
then it chattr the bot (argument 0) +fo
then it botattr the bot (argument 0) to whatever the bottype may be needing.
lastly it adds the irchost (argument 3) to the bot (argument 0)

Why would it be ip:port ?

[caesar]

The ip:port thing is for the hub..

[spock]

no it can be for leafs aswell... try .link leaf from your hub. it uses the information from the address field (.chaddr ip:port)