Simple eggdrop welcome script

#to use do this on the partyline
# .chanset <channel> +welcome
# .chanset <channel> welcome_msg "<the welcome message>"

setudef flag welcome
setudef str welcome_message

bind join - welcome:join
proc welcome:join {nick host hand chan} {
    if {![channel get $chan welcome]} { return }
    if {[channel get $chan welcome_message] eq ""} { return }
    putserv "NOTICE $nick :[channel get $chan welcome_message]"
}

putlog "welcome script loaded"