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

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

(limited to 'firstseen.tcl')

diff --git a/firstseen.tcl b/firstseen.tcl
new file mode 100644
index 0000000..7697cf1
--- /dev/null
+++ b/firstseen.tcl
@@ -0,0 +1,17 @@
+# lastseen by xeno
+
+bind pub - !firstseen firstseen
+
+proc firstseen {nick host hand chan arg} {
+   set arg [string trim $arg]
+if {$arg == ""} {
+   return 0
+}
+
+      set output [split "[exec perl /home/eggdrop/eggdrop/scripts/firstseen.pl logs [string trimleft $chan #] $arg]" "\n"]
+   foreach out $output {
+      putserv "PRIVMSG $chan :$out";
+   }
+}
+
+putlog "firstseen by lookshe loaded"
-- 
cgit v1.2.3