menu * {
Auto-Connect
.Add
.. $network : auto-connect add $network $server $port $$input(Group name,e,,$network)
.. Other network : {
var %network.name = $$input(Enter network name,e)
auto-connect add %network.name $$input(Enter server address",e,%network.name) $$input(Enter port number or range,e,%network.name,6667) $$input(Group name,e,%network.name,%network.name)
}
.Delete
.. $network : auto-connect del $network
.. Other network : auto-connect del $$input(Enter network name,e)
.List : auto-connect list
}
alias -l auto-connect {
if $1 == add {
writeini -n $scriptdirAuto-connect.ini $2 $3 $4 $5
if $readini($scriptdirAuto-connect.ini,n,$2,$3) == $4 $5 {
.echo -a Network: $2 Server: $3 Port: $4 Group: $5 Added to Auto-Connect file
}
else {
.echo -a Error Network: $2 Server: $3 Port: $4 Group: $5 Not added to Auto-Connect file
}
}
elseif $1 == del {
remini $scriptdirAuto-connect.ini $2
}
elseif $1 == list {
if !$window(@Auto-Connect) { window @Auto-Connect }
var %a = 1, %b = $ini($scriptdirAuto-Connect.ini,0)
while %a <= %b {
.aline @Auto-Connect $ini($scriptdirAuto-Connect.ini,%a)
var %c = 1, %d = $ini($scriptdirAuto-Connect.ini,%a,0)
while %c <= %d {
.aline -i @Auto-Connect $ini($scriptdirAuto-Connect.ini,%a,%c)
inc %c
}
inc %a
}
}
}