blob: 7697cf1ae76f97c24161a94ee263159a4ebe9126 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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"
|
