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

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

(limited to 'wiki.tcl')

diff --git a/wiki.tcl b/wiki.tcl
new file mode 100644
index 0000000..deb98da
--- /dev/null
+++ b/wiki.tcl
@@ -0,0 +1,50 @@
+# lastseen by xeno
+
+bind pub - !wiki wiki
+bind pub - !ewiki ewiki
+#bind pub - !say say
+bind pub - !google say
+
+proc say {nick host hand chan arg} {
+#   putserv "PRIVMSG $chan :$arg";
+#   putserv "PRIVMSG $chan :das hier ist [string trimleft $chan #]";
+}
+
+proc wiki {nick host hand chan arg} {
+   global do_wiki
+   if {[info exists do_wiki($nick:$chan)]} {
+      putserv "NOTICE $nick :no flooding!"
+      return 0;
+   }
+   set do_wiki($nick:$chan) 1
+   timer 1 "unset do_wiki($nick:$chan)"
+   set arg [string trim $arg]
+if {$arg == ""} {
+   return 0
+}
+
+   set output [split "[exec perl /home/eggdrop/eggdrop/scripts/wiki.pl \"$arg\" de]" "\n"]
+   foreach out $output {
+      putserv "PRIVMSG $chan :$out";
+   }
+}
+
+proc ewiki {nick host hand chan arg} {
+   global do_wiki
+   if {[info exists do_wiki($nick:$chan)]} {
+      return 0;
+   }
+   set do_wiki($nick:$chan) 1
+   timer 1 "unset do_wiki($nick:$chan)"
+   set arg [string trim $arg]
+if {$arg == ""} {
+   return 0
+}
+
+   set output [split "[exec perl /home/eggdrop/eggdrop/scripts/wiki.pl $arg en]" "\n"]
+   foreach out $output {
+      putserv "PRIVMSG $chan :$out";
+   }
+}
+
+putlog "wiki by lookshe loaded"
-- 
cgit v1.2.3