!seen add on
on 1!:JOIN:#: rnickbufs | writeini download/seen.log entradas $nick $address $ctime #
on 1!:PART:#: rnickbufs | writeini download/seen.log entradas $nick $address $ctime #
on 1!:QUIT: rnickbufs | writeini download/seen.log entradas $nick $address $ctime #
on 1!:KICK:#: rnickbufs | writeini download/seen.log entradas $knick $address($knick,2) $ctime
on 1:NICK: rnickbufs | writeini download/seen.log entradas $nick $address $ctime | writeini download/seen.log entradas $newnick $address $ctime
raw 311:*: if $group(#whosig) != on { rnickbufs | writeini download/seen.log entradas $2 $3 $+ @ $+ $4 $ctime }
alias RNICKBUFs {
if %seen.tam < 1000 { set %seen.tam 30000 }
var %lofseen = $lof(download/seen.log)
if %lofseen > %seen.tam {
var %nlseen = $rand(2,$lines(download/seen.log))
write -d $+ %nlseen download/seen.log
}
if (%lofseen > $calc(%seen.tam + 3000)) { write -c download/seen.log | echo 12 -se < Updating !seen log > }
}
#seen on
on 1:TEXT:!seen *:*: {
if %seen.f >= 3 return
inc %seen.f 1 | .timerFLSEEN 1 20 unset %seen.f
if $comchan($2,1) != $null { notice $nick 0,7 !seen 15,15ยท $2 2is now in $comchan($2,1) | .timerSSEEN -m 1 200 sss noti | halt }
sacaseen $2
if $result != $null {
notice $nick $result
.timerSSEEN -m 1 200 sss noti
}
}
#seen end
alias SACASEEN {
var %seen.n $readini download/seen.log entradas $1
if %seen.n != $null {
var %seen.d = $gettok(%seen.n,2,32)
var %seen.c = $gettok(%seen.n,3,32) | if %seen.c != $null { %seen.c = on the channel %seen.c }
return 0,7 !seen 15,15ยท $1 3[ $+ $gettok(%seen.n,1,32) $+ ]2, seen on $asctime(%seen.d,d) - $asctime(%seen.d,mmm) at $asctime(%seen.d,hh) $+ : $+ $asctime(%seen.d,nn tt) ( $replace($replace($duration($calc($ctime - %seen.d)),day,day),wk,wk) ago ) %seen.c
}
}
menu menubar {
add ons
.!seen( $group(#seen) )
..on / off: if $group(#seen) != on .enable #seen | else .disable #seen
..-
..see log: run notepad download/seen.log | echo -se 10!seen LOG =2 $lof(download/seen.log) bytes
..-
..remove log: remove download/seen.log
..log size ( %seen.tam ): {
set %seen.tam $$?="Max. log file size ? $+ $crlf $+ $crlf Now: %seen.tam ( max. 60000, 30000 by default) $+ $crlf $+ $crlf More big = more slow"
if %seen.tam > 60000 { set %seen.tam 60000 }
}
..-
..search nick: sacaseen $$?="Nick ?" | if $result == $null { echo -se 0,7 !seen 15,15ยท nick not found. } | else { echo -se $result }
..-
..unload: .unload -rs seen.mrc
}
on 1:CONNECT: unset %seen.f | rnickbufs
on 1:LOAD: echo -se 0,7 !seen 15,15ยท2 add on 2loaded.
