diff options
author | lookshe <lookshe@fumuga.com> | 2012-11-02 15:14:13 +0100 |
---|---|---|
committer | lookshe <lookshe@fumuga.com> | 2012-11-02 15:14:13 +0100 |
commit | b4acc69e49d027c476bae4be3e50fcde1904ce51 (patch) | |
tree | f767467b0f6c143cf79d85a1937b232351f7ca54 /tld.tcl | |
parent | 3cb7dabc47c4b2faea44dfd7a4f1957f294cb999 (diff) |
new tld scripts ask wikipedia table
Diffstat (limited to 'tld.tcl')
-rw-r--r-- | tld.tcl | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -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" |