another way :p
/save > write all channels in $network $+ .inf
/perform > rejoin all channels you have /save
/total > see wich channels you have /save
this code work in any network, nothing to do, really simple.
if you like rejoin automatically, add this code before.

ON *:CONNECT: { perform }

alias save {
  var %n = $network $+ .inf, %x = $chan(0), %i = 0
  while (%x != %i) {
    inc %i
    if (%i == 1) { write -c %n $chan(%i) }
    else { write %n $chan(%i) }
  }
  total
}
alias total {
  var %n = $network $+ .inf, %i = 1, %chans
  while (%i <= $lines(%n)) {
    var %chans = $addtok(%chans,$read(%n,%i),32)
    inc %i
  }
  echo -at I have perform ( $+ $lines(%n) $+ /20 chans) 8(4 $+ %chans $+ 8)
}  
alias perform {
  var %n = $network $+ .inf, %a = $lines(%n), %i 0
  while (%a != %i) {
    inc %i
; the "timer 1 $calc(10 * %i)" is optional if you would perform a chan every 10 second, if not, then remove it 
    .timer 1 $calc(10 * %i) join $read(%n,%i)
  }
}