bind pub - !help read_file_proc
 
set filepath "./scripts/autoreply.txt"
 
proc read_file_proc {nick uhost hand chan text} {
    global filepath
    
    set openit [open $filepath r]
    set readit [read $openit]
    
    while {![eof $readit]} {
        set out [split $openit \n]
    }
    close $openit
}