#Returns the number of seconds nick has been visiting channel
proc onlinetime {nick channel} {
return [expr [clock seconds] - [getchanjoin $nick $channel]]
}
#Sends message to all members of channel who joined more than 48hours ago
proc checkjoined {channel message} {
set threshold [expr [clock seconds] - 172800]
foreach nick [chanlist $channel] {
if {[getchanjoin $nick $channel] < $threshold} {
puthelp "PRIVMSG $nick :$message"
}
}
}
You'll most likely need some glue-code to implement this...