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

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

(limited to 'name.tcl')

diff --git a/name.tcl b/name.tcl
new file mode 100644
index 0000000..2d36333
--- /dev/null
+++ b/name.tcl
@@ -0,0 +1,20 @@
+# slap by lookshe
+
+bind pub - !name proc_name
+
+proc proc_name {nick host hand chan arg} {
+   #putserv "PRIVMSG $chan :[clock format [NetTime ntp.nasa.gov]]"
+   set arg [string trim $arg]
+   if {$arg == ""} {
+      set output [split "[exec cat /home/eggdrop/eggdrop/scripts/names.txt]" "\n"]
+      foreach out $output {
+         putserv "PRIVMSG $nick :$out"
+      }
+   } else {
+      exec echo $arg >> /home/eggdrop/eggdrop/scripts/names.txt
+      exec echo $arg by $nick >> /home/eggdrop/eggdrop/scripts/names_nick.txt
+      putserv "NOTICE $nick :$arg added to list"      
+   }
+}
+
+putlog "name by lookshe loaded"
-- 
cgit v1.2.3