code:

on *:JOIN:#:{ 
  if (%whois. [ $+ [ $chan ] ] && $nick != $me) { 
    whois $nick 
  } 
} 
raw 319:*:{ 
  if (%whois) { 
    msg %whois $2 is currently on: $3- 
    unset %whois 
  } 
}