new tld scripts ask wikipedia table

1 files changed, 15 insertions, 0 deletions

diff --git a/tld.tcl b/tld.tcl
new file mode 100644
index 0000000..5cd7606
--- /dev/null
+++ b/tld.tcl
@@ -0,0 +1,15 @@
+bind pub - !tld 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/tld.pl $arg]" "\n"]
+   foreach out $output {
+      putserv "PRIVMSG $chan :$out"
+   }
+}
+
+putlog "filetype by lookshe loaded"