16 lines
387 B
Tcl
16 lines
387 B
Tcl
|
bind pub - !filetype 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/file.pl $arg /home/eggdrop/eggdrop/scripts/fileextensions.txt X]" "\n"]
|
||
|
|
foreach out $output {
|
||
|
|
putserv "PRIVMSG $chan :$out"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
putlog "filetype by lookshe loaded"
|