bind pub - !filetype proc_file

proc proc_file {nick host hand chan arg} {
   set arg [string trim $arg]
   if {$arg == ""} {
      return 0
   }

   set output [split "[exec perl /home/eggdrop/eggdrop/scripts/file.pl $arg /home/eggdrop/eggdrop/scripts/fileextensions.txt X]" "\n"]
   foreach out $output {
      putserv "PRIVMSG $chan :$out"
   }
}

putlog "filetype by lookshe loaded"