>>> affils.tcl

##############################################################################
# affils.tcl 1.0 by PietruH                                                  #
# Change !affils  below to whatever you want the trigger the script          #
# with.                                                                      #
# If affils.sh is not located in /glftpd/bin/, then change the path          #
# to 'set binary' below.                                                     #
# affils.sh and affils text must be in one direction                         #
##############################################################################


bind pub - !affils affils

proc affils {nick uhost handle chan arg} {
 set binary {/glftpd/bin/affils.sh}
set section [lindex $arg 0]
 foreach line [split [exec $binary] "\n"] {
      putquick "PRIVMSG $chan :$line"
}
}


putlog "affils.tcl 1.0 by PietruH loaded"

>>> affils.sh

#by PietruH (change path to affils.txt file)
cat /glftpd/site/_STAFF/text/affils.txt