Initial commit

1 files changed, 17 insertions, 0 deletions

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"