18 lines
389 B
Tcl
18 lines
389 B
Tcl
|
# 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"
|