Someone

proc dcc_botjoin {handle idx channel} {
     global defchanmodes home verno
          if {([llength $channel] != 1) || ([string first # $channel] == -1)}{
              putdcc $idx "Usage: .join #channel"
              return 0
                }
          if {[addchannel $channel $defchanmodes ""]} {
                putcmdlog "  «.»   Status: I have joined $channel - requested by $handle «.»  "
              putserv "NOTICE $home :NOTICE: $handle Made me Join $channel."
          } else {
              putdcc $idx "  «.»   Status: I'm already on $channel! «.»  "
          }
                return 0
                }