diff options
Diffstat (limited to 'file.tcl')
-rw-r--r-- | file.tcl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/file.tcl b/file.tcl new file mode 100644 index 0000000..cde8e03 --- /dev/null +++ b/file.tcl @@ -0,0 +1,15 @@ +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" |