From ba46c304bdffdce0b6019a47f6759ce6abbeef90 Mon Sep 17 00:00:00 2001
From: Stefan Ritter <xeno@thehappy.de>
Date: Tue, 16 Aug 2011 10:51:41 +0200
Subject: Initial commit

---
 file.tcl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 file.tcl

(limited to 'file.tcl')

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"
-- 
cgit v1.2.3