Someone

on $*:TEXT:/^[!.]whois (on|off)/Si:#:{ 
  if ($2 == on) { 
    if (!%whois. [ $+ [ $nick ] ]) { 
      set %whois. [ $+ [ $nick ] ] on 
      notice $nick Whois on join is now on 
    } 
    else { notice $nick My whois on join function is already on for this channel } 
  } 
  elseif ($2 == off) { 
    if (%whois. [ $+ [ $chan ] ]) { 
      unset %whois. [ $+ [ $chan ] ] 
      notice $nick Whois on join is now off 
    } 
    else { notice $nick My whois on join function is already off } 
  } 
} 
on *:JOIN:#:{ 
  if (%whois. [ $+ [ $nick ] ] && $nick != $me) { 
    set %whois $chan 
    whois $nick 
  } 
} 
raw 319:*:{ 
  if (%whois) { 
    notice $chan %whois $2 is currently on: $3- 
    unset %whois 
  } 
}