Hamish - Tcl Greet

bind join - * join_greet
proc join_greet {nick host handle channel} {
  putserv "NOTICE $nick :REPLACE THIS BIT WITH GREET MESSAGE"
}