motd.tcl

# UNIXwz0r motd

###########################
#= CONFIGURATION SECTION =#
###########################

## PUT THE CHANNEL HERE IN WHICH YOU WANT THIS SCRIPT TO WORK ##
## YOU CAN USE THIS SCRIPT IN ONLY ONE CHANNEL SO DONOT ENTER MORE THAN ONE CHANNEL IT WILL CAUSE TROBLE ##

set urchan "#bsdgeekclub"

## ENTER THE PATH OF THE FILE CONTAINING WELCOME MESSAGES ##
## IF YOU WILL LEAVE IT AS IT IS YOU HAVE TO PUT THE "motd.txt" FILE INTO SCRIPTS FOLDER ##

set txtfile1 "/home/gary/motd.txt"

###########################
# CONFIGURATION ENDS HERE #
###########################


#--------------------------------------------------------------------------------------------------------------------#
#  SCRIPT STARTS FROM HERE.YOU CAN MAKE MODIFICATIONS AT UR OWN RISK, I DONT RESTRICT YOU TO NOT TO TOUCH THE CODE!  #
#--------------------------------------------------------------------------------------------------------------------#

bind join - * UNIXwz0r:wjoin

proc UNIXwz0r:wjoin {nick host handle chan} {
 global urchan txtfile1
 set aire $urchan
 set ranadil [open $txtfile1 r]
 set readvar [split [read $ranadil] \n]
 close $ranadil
 foreach line $readvar {
 puthelp "PRIVMSG $aire :$line"

 }
}


#Ever Seen such simple coding ??? eh

##################################################################################################
putlog "UNIXwz0r motd.tcl script Loaded!"
##################################################################################################