greet

set greetchan "#channel"
set txtfile "scripts/greet.txt"
#
bind join - * JoinGreet:wjoin

proc JoinGreet:wjoin {nick host handle chan} {
global greetchan txtfile
      set aire $greetchan
      set ranadil [open $txtfile r]
      set readvar [split [read $ranadil] \n]
      close $ranadil
      putserv "PRIVMSG $aire :[lindex $readvar [rand [llength $readvar]]]"
}

putlog "On Join Notice"