sub irc_public {
    my ($kernel, $who, $where, $msg) = @_[KERNEL, ARG0 .. ARG2];
    run_script($kernel, $bot_version, $bot_nick, $irc_admins, $qstat_master,
$who, $where, $msg, $qstat_addr, $User_Info, @randquote);
}