Someone

bind raw - 221 freenodeservices::MyUModes
bind dcc m|- ident freenodeservices::Nick:ident
bind dcc m|- identify freenodeservices::Nick:ident
bind join - "chanserv" freenodeservices::onjoin-rp
bind join - "$botnick" freenodeservices::onjoin-rp

#namespace begin:
namespace eval freenodeservices {

set nspass "feedthegeeks"

proc MyUModes {from keyword text} {
  set mymodes [lrange $text 0 end]
  set chan $freenodeservices::channel
  if {[string match "*e*" $mymodes] == "1"} {
    putserv "PRIVMSG ChanServ :OP $chan"
    return 0
  } else {
    putserv "PRIVMSG NickServ :IDENTIFY $freenodeservices::nspass"
    timer 2 [list AskChanServ $chan]
    return 0
  }
}
proc AskChanServ {chan} {
  putserv "PRIVMSG ChanServ :OP $chan"
  return 0
}
proc Nick:ident {h i t} {
  putidx $i "Identifying to NickServ :o)"
  putlog "#$h# identify (Identifying to NickServ)"
  putserv "PRIVMSG NickServ :IDENTIFY $freenodeservices::nspass"
  return 0
}

proc onjoin-rp {nick uhost hand chan} {
  set channel $chan
  putserv "MODE $::botnick"
  return 0
}



	
putlog "op on join loaded.."
#namespace end
}