15 lines
325 B
Tcl
15 lines
325 B
Tcl
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 "tld by lookshe loaded"
|