Initial commit

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"